пытаюс создать сервис автозапуск
добавил reference system.configuration.install
добавил reference system.ServiceProcess
Public Class serviceF
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sIns As New System.ServiceProcess.ServiceInstaller
System.ServiceProcess.Design.ServiceInstallerDialog
sIns.ServiceName = "serviceName"
sIns.DisplayName = "displayName"
sIns.Description = "description"
sIns.StartType = ServiceProcess.ServiceStartMode.Automatic
Dim iDic As System.Collections.IDictionary
iDic = ???ЧЁ ЕМУ ПРИСВОИТЬ???
sIns.Install(iDic)
End Sub
End Class
Ответить
|