timer - run program every 5 minutes

honeypot · Feb 5, 2004

Hi there

i've created a program that basically reads a file, checks for the word "error" and then emails sum1 with the "errors". What i need to do now is set the program to read the file every 5 minutes, which ive tried to do but i've messed up somewhere?! when the file has been read, it only sends new errors via email. here is my code:
Imports System
Imports System.IO
Imports System.Collections
Imports System.Web
Public Class Form1
Inherits System.Windows.Forms.Form
Private Shared myTimer As New System.Windows.Forms.Timer
'Private Shared exitFlag As Boolean = False
Private Shared Sub TimerEventProcessor(ByVal myObject As Object, ByVal myEventArgs As EventArgs)
myTimer.Stop()
Dim LineNo As String
Dim CurrentLineNo As New Integer
If GetSetting("OrEM", "Settings", "LineNo&quot

= "" Then
SaveSetting("OrEM", "Settings", "LineNo", "1&quot

End If
LineNo = Val(GetSetting("OrEM", "Settings", "LineNo&quot

)
Dim objReader As New StreamReader("c:\ProjectSearch\sx3liveALRT.LOG&quot

Dim sLine As String = ""
Dim arrText As New ArrayList

Do
sLine = objReader.ReadLine() : CurrentLineNo = CurrentLineNo + 1
If CurrentLineNo >= LineNo Then
If InStr(UCase(sLine), "MON&quot

Or InStr(UCase(sLine), "TUE&quot

Or InStr(UCase(sLine), "WED&quot

Or InStr(UCase(sLine), "THU&quot

Or InStr(UCase(sLine), "FRI&quot

Or InStr(UCase(sLine), "SAT&quot

Then
sLine = objReader.ReadLine() : CurrentLineNo = CurrentLineNo + 1
If InStr(UCase(sLine), "ERROR&quot

Then arrText.Add(sLine)
While sLine <> ""
sLine = objReader.ReadLine() : CurrentLineNo = CurrentLineNo + 1

End While
End If
End If
If Not sLine Is Nothing Then

End If
Loop Until sLine Is Nothing
objReader.Close()
'create mail notification
Dim mailMsg As New System.Web.Mail.MailMessage
mailMsg.BodyFormat = Mail.MailFormat.Text
mailMsg.To = "???"
mailMsg.Subject = "???"
mailMsg.From = "???"

Dim txtBody As String

For Each sLine In arrText
txtBody = txtBody & sLine & vbCrLf
Next

mailMsg.Body = txtBody
System.Web.Mail.SmtpMail.SmtpServer = "???"
System.Web.Mail.SmtpMail.Send(mailMsg)
SaveSetting("OrEm", "Settings", "LineNo", Trim(Str(CurrentLineNo - 2)))
LineNo = Val(GetSetting("OrEM", "Settings", "LineNo&quot

)

' myTimer.Start()

'adds the event and the event handler for the method that will process the timer event to the timer
AddHandler myTimer.Tick, AddressOf TimerEventProcessor
CurrentLineNo = 0
'sets the timer interval to 5 minutes
myTimer.Interval = 30000
myTimer.Start()
'runs the timer, and raises the event
' While exitFlag = False
'Processes all the events in the queue
Application.DoEvents()
'End While
End Sub

Any help much appreciated. Thanx.

rosenk · Feb 5, 2004

I'm having trouble understanding what your problem is. Does this not work at all for you, currently? Or is it only executing once?

honeypot · Feb 5, 2004

the program runs, doesn't appear to do anything though & i don't get any emails? (im sorry im very new to this), before i tried to run it every 5 mins, i would get an email containing the error lines. it's got to be summat to do wiv the timer?

rosenk · Feb 5, 2004

Ah, I understand now.

I think your problem is either (or both) that your timer is not enabled or that you don't have your event handler registered.

Code:

Private Shared [COLOR=red]WithEvents[/color] myTimer As New System.Windows.Forms.Timer

Private Shared Sub TimerEventProcessor(ByVal myObject As Object, ByVal myEventArgs As EventArgs) [COLOR=red]Handles myTimer.Tick[/color]

Then, in your [tt]New()[/tt] of the form, you can add:

Code:

myTimer.Interval = 30000
myTimer.Enabled = True

You can also get rid of the lines:

Code:

AddHandler myTimer.Tick, AddressOf TimerEventProcessor

'sets the timer interval to 5 minutes
myTimer.Interval = 30000
myTimer.Start()

Since that'll already be done at that point.

honeypot · Feb 5, 2004

ooh thanx - i'll give that a try now

chiph · Feb 5, 2004

Don't forget that the timer in the Windows.Forms namespace is dependent on the form processing windows messages (the win32 message pump) behind the scenes.

You might want to look at the timer in the Threading namespace, as you don't need a form for that one.

There was a good article on the differences between the three timers found in the framework in a recent issue of MSDN magazine.

Chip H.

If you want to get the best response to a question, please check out FAQ222-2244 first

honeypot · Feb 5, 2004

i tried rosenk's method and unfortunately that still didn't work. ive also written the program as a console application - which works without the timer!! i'd also like to know how to get the program to email only when errors occur, NOT when there aren't any errors? my console app code is this:

Imports System
Imports System.IO
Imports System.Collections
Imports System.Web

Module Module1

Sub Main()

Dim myTimer As New System.Timers.Timer
Dim LineNo As String
myTimer.Stop()
Dim CurrentLineNo As New Integer
If GetSetting("OrEM", "Settings", "LineNo&quot

= "" Then
SaveSetting("OrEM", "Settings", "LineNo", "1&quot

End If
LineNo = Val(GetSetting("OrEM", "Settings", "LineNo&quot

)
Dim objReader As New StreamReader("c:\ProjectSearch\sx3liveALRT.LOG&quot

Dim sLine As String = ""
Dim arrText As New ArrayList

Do
sLine = objReader.ReadLine() : CurrentLineNo = CurrentLineNo + 1
If CurrentLineNo >= LineNo Then
If InStr(UCase(sLine), "MON&quot

Or InStr(UCase(sLine), "TUE&quot

Or InStr(UCase(sLine), "WED&quot

Or InStr(UCase(sLine), "THU&quot

Or InStr(UCase(sLine), "FRI&quot

Or InStr(UCase(sLine), "SAT&quot

Then
sLine = objReader.ReadLine() : CurrentLineNo = CurrentLineNo + 1
If InStr(UCase(sLine), "ERROR&quot

Then arrText.Add(sLine)
While sLine <> ""
sLine = objReader.ReadLine() : CurrentLineNo = CurrentLineNo + 1

End While
End If
End If
If Not sLine Is Nothing Then

End If
Loop Until sLine Is Nothing
objReader.Close()
'create mail notification
Dim mailMsg As New System.Web.Mail.MailMessage
mailMsg.BodyFormat = Mail.MailFormat.Text
mailMsg.To = "??"
mailMsg.Subject = "??"
mailMsg.From = "??"

Dim txtBody As String

For Each sLine In arrText
txtBody = txtBody & sLine & vbCrLf
Next

mailMsg.Body = txtBody
System.Web.Mail.SmtpMail.SmtpServer = "??"
System.Web.Mail.SmtpMail.Send(mailMsg)
SaveSetting("OrEm", "Settings", "LineNo", Trim(Str(CurrentLineNo - 2)))
LineNo = Val(GetSetting("OrEM", "Settings", "LineNo&quot

)

CurrentLineNo = 0
myTimer.Start()
End Sub

End Module

honeypot · Feb 6, 2004

Hi there

Ok, the timers seems fine now, next prob is this: I want the program to email only if the file contains new "errors" but NOT to email if there are no new instances of the "error" word. so i wrapped the mail code in if sline <> "" then ... (mail code)...end if and it doesnt seem to mail at all now (i added errors manually to the file to check it). Could u pls tell me where im going wrong? Thanx!

Imports System
Imports System.IO
Imports System.Collections
Imports System.Web

Module Module1

Sub Main()

Dim myTimer As New System.Timers.Timer
Dim LineNo As String
myTimer.Stop()
Dim CurrentLineNo As New Integer
If GetSetting("OrEM", "Settings", "LineNo&quot

= "" Then
SaveSetting("OrEM", "Settings", "LineNo", "1&quot

End If
LineNo = Val(GetSetting("OrEM", "Settings", "LineNo&quot

)
Dim objReader As New StreamReader("filename&quot

Dim sLine As String = ""
Dim arrText As New ArrayList

Do
sLine = objReader.ReadLine() : CurrentLineNo = CurrentLineNo + 1
If CurrentLineNo >= LineNo Then
If InStr(UCase(sLine), "MON&quot

Or InStr(UCase(sLine), "TUE&quot

Or InStr(UCase(sLine), "WED&quot

Or InStr(UCase(sLine), "THU&quot

Or InStr(UCase(sLine), "FRI&quot

Or InStr(UCase(sLine), "SAT&quot

Then
sLine = objReader.ReadLine() : CurrentLineNo = CurrentLineNo + 1
If InStr(UCase(sLine), "ERROR&quot

Then arrText.Add(sLine)
While sLine <> ""
sLine = objReader.ReadLine() : CurrentLineNo = CurrentLineNo + 1

End While
End If
End If
If Not sLine Is Nothing Then

End If
Loop Until sLine Is Nothing
objReader.Close()

If sLine <> "" Then
'create mail notification
Dim mailMsg As New System.Web.Mail.MailMessage
mailMsg.BodyFormat = Mail.MailFormat.Text
mailMsg.To = "me@co.uk"
mailMsg.Subject = "name"
mailMsg.From = "name"

Dim txtBody As String

For Each sLine In arrText
txtBody = txtBody & sLine & vbCrLf
Next

mailMsg.Body = txtBody
System.Web.Mail.SmtpMail.SmtpServer = "server"
System.Web.Mail.SmtpMail.Send(mailMsg)
End If
SaveSetting("OrEm", "Settings", "LineNo", Trim(Str(CurrentLineNo - 2)))
LineNo = Val(GetSetting("OrEM", "Settings", "LineNo&quot

)

CurrentLineNo = 0
myTimer.Interval = 30000
myTimer.Start()
End Sub

End Module

rosenk · Feb 6, 2004

Code:

While sLine <> &quot;&quot;
    sLine = objReader.ReadLine() : CurrentLineNo = CurrentLineNo + 1
End While

All this code is going to do is keep reading lines from the file until it gets to a blank line. (Even if

Code:

CurrentLineNo

becomes much greater than

Code:

LineNo

.) Is that what you intended?

Not sure what the input file really looks like, so I can't be sure if it would or wouldn't, but seems more likely that it's not what you'd want.

honeypot · Feb 9, 2004

my app seems to be working fine now - thank you all for ur help

ive since realised that maybe i should have written the program as a windows form? because the console app runs through, does what it's supposed to do and then exits, whereas a windows form would continue to run until it is manually closed - how can i get my console app to run continuously in the background without closing? is this possible?

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

timer - run program every 5 minutes

honeypot

Technical User

rosenk

Programmer

honeypot

Technical User

rosenk

Programmer

honeypot

Technical User

chiph

Programmer

honeypot

Technical User

honeypot

Technical User

rosenk

Programmer

honeypot

Technical User

Similar threads

Part and Inventory Search

Sponsor