This is my first time creating a Window Service and I am having this error message when I try to start my window service (currently known as Service1). Below is my code for Window Service and also the line which I suspected is the caused of the problem.
Expand|Select|Wrap|Line Numbers
- Protected Overrides Sub OnStart(ByVal args() As String)
- Dim i As Integer
- i = Shell("\\202.186.196.128\c$\Inetpub\wwwroot\WebAdmin\Rewards\print.exe", vbNormalFocus)
- Dim fs As FileStream = New FileStream("c:\temp\mcWindowsService.txt", FileMode.OpenOrCreate, FileAccess.Write)
- Dim m_streamWriter As StreamWriter = New StreamWriter(fs)
- m_streamWriter.BaseStream.Seek(0, SeekOrigin.End)
- m_streamWriter.WriteLine("BLPrinting Service: Service Started at " & Date.Now & Constants.vbLf)
- m_streamWriter.Flush()
- m_streamWriter.Close()
- End Sub
- Protected Overrides Sub OnStop()
- Dim fs As FileStream = New FileStream("c:\temp\mcWindowsService.txt", FileMode.OpenOrCreate, FileAccess.Write)
- Dim m_streamWriter As StreamWriter = New StreamWriter(fs)
- m_streamWriter.BaseStream.Seek(0, SeekOrigin.End)
- m_streamWriter.WriteLine("BLPrinting Service: Service Stopped at " & Date.Now & Constants.vbLf)
- m_streamWriter.Flush()
- m_streamWriter.Close()
- End Sub
The Service1 service on Local Computer started and then stopped. Some services stop automatically if they have no work to do, for example, the Performance Logs and Alerts service.
For your information, my window service was working fine before I added in the 2 new lines of code. Maybe they way I'm supposed to call an EXE is incorrect. Please correct me if I'm wrong.
Thank you very much.
Best Regards
Gray d' Newbie