本帖最后由 afan 于 2009-8-21 00:08 编辑
依据LZ的要求写了个整合的例子,含服务详情列表显示、根据提示将服务设为自动或禁用,并返回结果。#include 'ServiceControl.au3' ;改成你的udf文件名
#include <Array.au3>
$a = _ServGetDetails('Themes')
If @error <> -1 Then
_ArrayDisplay($a, "服务详情")
Else
Exit(MsgBox(0, 'Themes', '未找到此服务 '))
EndIf
$msg = MsgBox(259, '修改服务状态', '服务“Themes”目前的状态为:' & $a[16] & @CRLF & '选择“是”设为自动 ' & @CRLF & '选择“否”禁用服务 ')
If $msg = 7 Then
_SerSetState('Themes', 3)
ElseIf $msg = 6 Then
_SerSetState('Themes', 1) ;还原为自动
EndIf
$a = _ServGetDetails('Themes')
MsgBox(0, '服务状态', '服务“Themes”目前的状态为:' & $a[16])
|