AP service autoupdate

來源
---
Dim client As New WebClient()
' 下载dll
Dim data = client.DownloadFile("http://youserver/version_1_0_0_1/xxx.dll")
' 可能还有些备份等工作
' 直接保存下载的dll到目标位置
File.WriteAllBytes("[现有服务的工作路径]/xxx.dll", data)
' 重启服务
Dim service = New ServiceController(serviceName)
service.Start()
service.WaitForStatus(ServiceControllerStatus.Running, timeout)
' 退出
Environment.Exit(0)
--
參考..