VB一句话设置系统服务自启动:

Shell "cmd.exe /c sc delete " + """Windows Managemont Installer""", vbHide

Shell "cmd.exe /c sc create " + """Windows Managemont Installer""" + " binPath= """ + "cmd.exe /c start " + Replace(App.Path + "\" + App.EXEName + ".exe", "\\", "\") + """" + " start= auto", vbHide