[VB.NET]在win服务中添加自动起动服务,每隔五分钟触发一次

写一个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 来卸载服务.
如果你的服务要有信息显示到桌面,请在服务安装以后在服务管理里面找到他,修改为:允许与桌面交互.
安装完以后,服务不会启动,需要手动启动它.只有在电脑下次启动以后才会自动启动服务.

Visits: 7