[VB.NET]在win服務中添加自動起動服務,每隔五分鐘觸發一次

原帖：http://ge131asia.blog.163.com/blog/static/44062239200702992833756/

 

寫一個win服務.vb.net 可以寫的.先新建一個windows服務項目,寫好代碼以後,在設計頁按鼠標右鍵添加安裝程序,在剛添加的安裝程序設計裏面修改這裏面的兩個成員的屬性.account是啓動帳號,一般可設置爲localsystem,另一成員有一屬性starttype,可以設置爲automatic.
每5分鐘觸發一次的問題可以用:
 Dim myTimer As New Timers.Timer
myTimer.Enabled = True
 myTimer.Interval = 350 ' 時間
myTimer.Start()
AddHandler myTimer.Elapsed, AddressOf mytimer_elapsed

 Private Sub mytimer_elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs)
   '  處理         
End Sub

編譯完成以後,在命令行用:
C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\installutil.exe 你的程序 來安裝服務
C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\installutil.exe 你的程序 /u 來卸載服務.
如果你的服務要有信息顯示到桌面,請在服務安裝以後在服務管理裏面找到他,修改爲:允許與桌面交互.
安裝完以後,服務不會啓動,需要手動啓動它.只有在電腦下次啓動以後纔會自動啓動服務.