7,762
社区成员
发帖
与我相关
我的任务
分享
Sub Main()
Call InitServiceTable("MyService", AddressOf ServiceMain)
StartServiceCtrlDispatcher ServiceTable
End Sub
Sub ServiceMain(ByVal argc As Long, ByVal argv As Long)
ServiceStatus.dwServiceType = SERVICE_WIN32_OWN_PROCESS
ServiceStatus.dwCurrentState = SERVICE_START_PENDING
ServiceStatus.dwControlsAccepted = SERVICE_ACCEPT_STOP Or SERVICE_ACCEPT_PAUSE_CONTINUE Or SERVICE_ACCEPT_SHUTDOWN
ServiceStatus.dwServiceSpecificExitCode = 0
ServiceStatus.dwWin32ExitCode = 0
ServiceStatus.dwCheckPoint = 0
ServiceStatus.dwWaitHint = 0
hStatus = RegisterServiceCtrlHandler("MyService", AddressOf ControlHandler)
If hStatus = 0 Then Exit Sub
ServiceStatus.dwCurrentState = SERVICE_RUNNING
Call SetServiceStatus(hStatus, ServiceStatus)
While True
Sleep 5000
Wend
End Sub
加载中
试试用AI创作助手写篇文章吧