johnnykenshien
Member
- Joined
- Jun 6, 2008
- Messages
- 9
- Programming Experience
- Beginner
Hello vb.net geniuses, i just want to ask some help with my code. Im trying to create a windows service program that writes a log every 30 minutes but i know how what the problem of my coding it wont works.
thanks in advance!
thanks in advance!
VB.NET:
Public Class Service1
Private mvTimer As System.Timers.Timer
Dim mLogFile As String
Private Sub mvTimer_Elapsed(ByVal pSender As Object, ByVal pArgs As System.Timers.ElapsedEventArgs)
'this event had better fire!!
mvTimer.Enabled = False
mvTimer.Stop()
WriteLog("Hellow World!!!!")
mvTimer.Enabled = True
mvTimer.Start()
End Sub
Protected Overrides Sub OnStart(ByVal args() As String)
mLogFile = My.Application.Info.DirectoryPath & "\WindowsService.Log"
WriteLog("Service Starts now...")
Dim TimerInterval As Integer = ((60000 * 60) * 30)
mvTimer = New System.Timers.Timer(TimerInterval)
AddHandler mvTimer.Elapsed, AddressOf mvTimer_Elapsed
mvTimer.AutoReset = True
mvTimer.Enabled = True
mvTimer.Start()
End Sub
Protected Overrides Sub OnStop()
' Add code here to perform any tear-down necessary to stop your service.
WriteLog("Service ends now...")
End Sub
Public Sub WriteLog(ByVal pMsg As String)
pMsg = Format(Now, "HH:mm:ss : ") & pMsg & vbCrLf & vbCrLf
FileIO.FileSystem.WriteAllText(mLogFile, pMsg, True)
End Sub
End Class