Solved

System.Timers does not work

Posted on 2006-10-29
2
405 Views
Last Modified: 2008-01-09
Hi,

I have been struggling with this problem for a while and would appreciated any help.

I am trying to use a third party class library in my console application to obtain PageRank for a specific url on a timely bases (every 24 hours).    If I call my "getPageRank" method using a while loop and a thread.sleep() everything works fine.  However, when I try to use the System.timers.Timer object, my program does not execute the functions from the 3rd party DLL (in my case,  pr.GetPageRank(path) does not get executed), and so the application does not progress beyond that point.  I eventually end up getting the following error:

----------------------
The CLR has been unable to transition from COM context 0x1a0c38 to COM context 0x1a0da8 for 60 seconds. The thread that owns the destination context/apartment is most likely either doing a non pumping wait or processing a very long running operation without pumping Windows messages. This situation generally has a negative performance impact and may even lead to the application becoming non responsive or memory usage accumulating continually over time. To avoid this problem, all single threaded apartment (STA) threads should use pumping wait primitives (such as CoWaitForMultipleHandles) and routinely pump messages during long running operations.
--------------------


 My code is as follow:

-----------------
Private pr As New htmlsnap2Net.CHtmlSnap
Private WithEvents MainTimer As New System.Timers.Timer

 Sub Main()

        MainTimer.Interval = 86400000
        MainTimer.Enabled = True
        MainTimer.AutoReset = True

        Console.WriteLine("Press any key to end!")
        Console.ReadLine()

End Sub

Private Sub MainTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles MainTimer.Elapsed
        Console.WriteLine("PageRank: " & ObtainPageRank("my url goes here"))
End Sub

Private Function ObtainPageRank(ByVal path As String) As Integer
        Dim pagerank As Integer = 0
        pagerank = pr.GetPageRank(path)
       
        Return pagerank
End Function
0
Comment
Question by:espadana
2 Comments
 
LVL 85

Accepted Solution

by:
Mike Tomlinson earned 70 total points
ID: 17829527
Explore using the ApplicationContext() class to keep your app from ending:
http://msdn2.microsoft.com/en-us/library/system.windows.forms.applicationcontext.aspx

Something like...

Module Module1

    Public Sub Main()
        Application.Run(New MyContext)
    End Sub

    Public Class MyContext
        Inherits ApplicationContext

        Private pr As New htmlsnap2Net.CHtmlSnap
        Private WithEvents MainTimer As New System.Timers.Timer

        Public Sub New()
            MainTimer.Interval = TimeSpan.TicksPerDay '86400000
            MainTimer.AutoReset = True
            MainTimer.Start()
        End Sub

        Private Sub MainTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles MainTimer.Elapsed
            Console.WriteLine("PageRank: " & ObtainPageRank("my url goes here"))
        End Sub

        Private Function ObtainPageRank(ByVal path As String) As Integer
            Dim pagerank As Integer = 0
            pagerank = pr.GetPageRank(path)

            Return pagerank
        End Function

    End Class

End Module
0
 

Author Comment

by:espadana
ID: 17832572
Thank you! It seems to be working
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
HTML - Color not displaying correctly in EMAIL. 6 54
VB.net Progress Bar - Maximum Value too large 2 24
Optimize the query 5 49
UDP Data Capture Thread Issue 7 29
Parsing a CSV file is a task that we are confronted with regularly, and although there are a vast number of means to do this, as a newbie, the field can be confusing and the tools can seem complex. A simple solution to parsing a customized CSV fi…
The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (http://www.ecb.europa.eu/stats/exch…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…

680 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question