- 帖子
- 172
- 主題
- 39
- 精華
- 20
- 積分
- 177
- 點名
- 0
- 作業系統
- Microsoft Windows XP
- 軟體版本
- Microsoft Office 2003
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 高雄
- 註冊時間
- 2010-5-1
- 最後登錄
- 2023-3-19
 
|
Private Sub AA_Click()
If SwitchService("Messenger", True) Then
MsgBox "OK !"
End If
End Sub
Private Function SwitchService(strSvcName As String, blnOpen As Boolean) As Boolean
Dim strWMIcls As String
Dim objSvc As Object
strWMIcls = "Win32_Service"
Set objSvc = GetObject("winmgmts:").InstancesOf(strWMIcls)(strWMIcls & ".Name=""" & strSvcName & """")
SwitchService = CallByName(objSvc, IIf(blnOpen, "StartService", "StopService"), 1) = 0
End Function |
|
發表於 2010-5-9 22:07
| 
