首页| 论坛| 搜索| 消息
主题:自动服务优化程序+AU3源码
霸王硬上弓发表于 2008-12-21 20:11
ot;Dnscache"
$AutoServ[10] = "Eventlog"
$AutoServ[11] = "PolicyAgent"
$AutoServ[12] = "dmserver"
$AutoServ[13] = "Nla"
$AutoServ[14] = "PlugPlay"
$AutoServ[15] = "Spooler"
$AutoServ[16] = "ProtectedStorage"
$AutoServ[17] = "RpcSs"
$AutoServ[18] = "SamSs"
$AutoServ[19] = "lanmanserver"
$AutoServ[20] = "Schedule"
$AutoServ[21] = "LmHosts"
$AutoServ[22] = "Themes"
$AutoServ[23] = "upnphost"
$AutoServ[24] = "AudioSrv"
$AutoServ[25] = "SharedAccess"
$AutoServ[26] = "winmgmt"
$AutoServ[27] = "WZCSVC"
$AutoServ[28] = "lanmanworkstation"
$AutoServName[1] = "Application Layer Gateway Service"
$AutoServName[2] = "Automatic Updates"
$AutoServName[3] = "Background Intelligent Transfer Service"
$AutoServName[4] = "COM+ Event System"
$AutoServName[5] = "Computer Browser"
$AutoServName[6] = "Cryptographic Services"
$AutoServName[7] = "DCOM Server Process Launcher"
$AutoServName[8] = "DHCP Client"
$AutoServName[9] = "DNS Client"
$AutoServName[10] = "Event Log"
$AutoServName[11] = "IPSEC Services"
$AutoServName[12] = "Logical Disk Manager"
$AutoServName[13] = "Network Location Awareness (NLA)"
$AutoServName[14] = "Plug and Play"
$AutoServName[15] = "Print Spooler"
$AutoServName[16] = "Protected Storage"
$AutoServName[17] = "Remote Procedure Call (RPC)"
$AutoServName[18] = "Security Accounts Manager"
$AutoServName[19] = "Server"
$AutoServName[20] = "Task Scheduler"
$AutoServName[21] = "TCP/IP NetBIOS Helper"
$AutoServName[22] = "Themes"
$AutoServName[23] = "Universal Plug and Play Device Host"
$AutoServName[24] = "Windows Audio"
$AutoServName[25] = "Windows Firewall/Internet Connection Sharing (ICS)"
$AutoServName[26] = "Windows Management Instrumentation"
$AutoServName[27] = "Wireless Zero Configuration"
$AutoServName[28] = "Workstation"

For $i=1 To 30
ToolTip(@CR&" 正在将如下服务调整为“禁用”: " & @CRLF & " " & $DisabledServName[$i] & " " & @CR, @DesktopWidth-260, @DesktopHeight-120)
RunWait("sc config " & $DisabledServ[$i] & " start= disabled","",@SW_HIDE)
Sleep($t)
ToolTip(@CR&" 正在停用: " & @CRLF & " " & $DisabledServName[$i] & " " & @CR, @DesktopWidth-260, @DesktopHeight-120)
RunWait("sc stop " & $DisabledServ[$i],"",@SW_HIDE)
Sleep($t)
Next
For $i=1 To 21
ToolTip(@CR&" 正在将如下服务调整为“手动”: " & @CRLF & " " & $DemandServName[$i] & " " & @CR, @DesktopWidth-260, @DesktopHeight-120)
RunWait("sc config " & $DemandServ[$i] & " start= demand","",@SW_HIDE)
Sleep($t)
If $i=6 Or $i=12 Or $i=16 Or $i=17 Then
ToolTip(@CR&" 正在启用: " & @CRLF & " " & $DemandServName[$i] & " " & @CR, @DesktopWidth-260, @DesktopHeight-120)
RunWait("sc start " & $DemandServ[$i],"",@SW_HIDE)
Sleep($t)
Else
ToolTip(@CR&" 正在停用: " & @CRLF & " " & $DemandServName[$i] & " " & @CR, @DesktopWidth-260, @DesktopHeight-120)
RunWait("sc stop " & $DemandServ[$i],"",@SW_HIDE)
Sleep($t)
EndIf
Next
For $i=1 To 28
ToolTip(@CR&" 正在将如下服务调整为“自动”: " & @CRLF & " " & $AutoServName[$i] & " " & @CR, @DesktopWidth-260, @DesktopHeight-120)
RunWait("sc config " & $AutoServ[$i] & " start= auto","",@SW_HIDE)
Sleep($t)
ToolTip(@CR&" 正在启用: " & @CRLF & " " & $AutoServName[$i] & " " & @CR, @DesktopWidth-260, @DesktopHeight-120)
RunWait("sc start " & $AutoServ[$i],"",@SW_HIDE)
Sleep($t)
Next
ToolTip(@CR&" 服务优化完成! " & @CR, @DesktopWidth-260, @DesktopHeight-120)
Sleep(3000)
下一页上一页  (2/4)
回帖(7):
7 # z3960
04-02 08:07
谢谢分享办法
6 # z3960
04-02 08:07
进来看一看教程
5 # 呆呆
07-16 19:50
我下了个AU3工具,但还不知道怎么使用!
4 # cq1680
06-29 00:46
哎,看不懂。。
3 # ds419
06-27 22:50
好东西啊研究下
2 # andywahaha
06-17 21:43
今天才发现这么好的东西,谢谢!!!!!!!!!1
1 # 三人行华
01-20 11:17
看过了,回贴是种美德…Au3脚本…呵呵。

全部回帖(7)»
最新回帖
收藏本帖
发新帖