.版本 2 .程序集 窗口程序集1 .子程序 _按钮1_被单击 .局部变量 DisabledServ, 文本型, , "30" .局部变量 DemandServ, 文本型, , "21", ' 本源码来自三叶资源网(www.sanye.cx) .局部变量 AutoServ, 文本型, , "28" .局部变量 DisabledServName, 文本型, , "30" .局部变量 DemandServName, 文本型, , "21" .局部变量 AutoServName, 文本型, , "28" .局部变量 t, 整数型 .局部变量 i, 整数型 t ＝ 0 DisabledServ [1] ＝ “Alerter” DisabledServ [2] ＝ “ClipSrv” DisabledServ [3] ＝ “TrkWks” DisabledServ [4] ＝ “MSDTC” DisabledServ [5] ＝ “ERSvc” DisabledServ [6] ＝ “FastUserSwitchingCompatibility” DisabledServ [7] ＝ “helpsvc” DisabledServ [8] ＝ “HidServ” DisabledServ [9] ＝ “ImapiService” DisabledServ [10] ＝ “CiSvc” DisabledServ [11] ＝ “Messenger” DisabledServ [12] ＝ “SwPrv” DisabledServ [13] ＝ “mnmsrvc” DisabledServ [14] ＝ “NetDDE” DisabledServ [15] ＝ “NetDDEdsdm” DisabledServ [16] ＝ “RSVP” DisabledServ [17] ＝ “RemoteRegistry” DisabledServ [18] ＝ “NtmsSvc” DisabledServ [19] ＝ “RemoteAccess” DisabledServ [20] ＝ “seclogon” DisabledServ [21] ＝ “wscsvc” DisabledServ [22] ＝ “ShellHWDetection” DisabledServ [23] ＝ “SENS” DisabledServ [24] ＝ “srservice” DisabledServ [25] ＝ “TlntSvr” DisabledServ [26] ＝ “TermService” DisabledServ [27] ＝ “UPS” DisabledServ [28] ＝ “VSS” DisabledServ [29] ＝ “WebClient” DisabledServ [30] ＝ “W32Time” ' 服务 DisabledServName [1] ＝ “Alerter” DisabledServName [2] ＝ “ClipBook” DisabledServName [3] ＝ “Distributed Link Tracking Client” DisabledServName [4] ＝ “Distributed Transaction Coordinator” DisabledServName [5] ＝ “Error Reporting Service” DisabledServName [6] ＝ “Fast User Switching Compatibility” DisabledServName [7] ＝ “Help and Support” DisabledServName [8] ＝ “Human Interface Device Access” DisabledServName [9] ＝ “IMAPI CD-Burning COM Service” DisabledServName [10] ＝ “Indexing Service” DisabledServName [11] ＝ “Messenger” DisabledServName [12] ＝ “MS Software Shadow Copy Provider” DisabledServName [13] ＝ “NetMeeting Remote Desktop Sharing” DisabledServName [14] ＝ “Network DDE” DisabledServName [15] ＝ “Network DDE DSDM” DisabledServName [16] ＝ “QoS RSVP” DisabledServName [17] ＝ “Remote Registry” DisabledServName [18] ＝ “Removable Storage” DisabledServName [19] ＝ “Routing and Remote Access” DisabledServName [20] ＝ “Secondary Logon” DisabledServName [21] ＝ “Security Center” DisabledServName [22] ＝ “Shell Hardware Detection” DisabledServName [23] ＝ “System Event Notification” DisabledServName [24] ＝ “System Restore Service” DisabledServName [25] ＝ “Telnet” DisabledServName [26] ＝ “Terminal Services” DisabledServName [27] ＝ “Uninterruptible Power Supply” DisabledServName [28] ＝ “Volume Shadow Copy” DisabledServName [29] ＝ “WebClient” DisabledServName [30] ＝ “Windows Time” ' Demand DemandServ [1] ＝ “AppMgmt” DemandServ [2] ＝ “COMSysApp” DemandServ [3] ＝ “HTTPFilter” DemandServ [4] ＝ “dmadmin” DemandServ [5] ＝ “Netlogon” DemandServ [6] ＝ “Netman” DemandServ [7] ＝ “xmlprov” DemandServ [8] ＝ “NtLmSsp” DemandServ [9] ＝ “SysmonLog” DemandServ [10] ＝ “WmdmPmSN” DemandServ [11] ＝ “RasAuto” DemandServ [12] ＝ “RasMan” DemandServ [13] ＝ “RDSessMgr” DemandServ [14] ＝ “RpcLocator” DemandServ [15] ＝ “SCardSvr” DemandServ [16] ＝ “SSDPSRV” DemandServ [17] ＝ “TapiSrv” DemandServ [18] ＝ “stisvc” DemandServ [19] ＝ “MSIServer” DemandServ [20] ＝ “Wmi” DemandServ [21] ＝ “WmiApSrv” ' DemandServ[] = "WudfSvc" ' DemandServ[] = "WMPNetworkSvc" DemandServName [1] ＝ “Application Management” DemandServName [2] ＝ “COM+ System Application” DemandServName [3] ＝ “HTTP SSL” DemandServName [4] ＝ “Logical Disk Manager Administrative Service” DemandServName [5] ＝ “Net Logon” DemandServName [6] ＝ “Network Connections” DemandServName [7] ＝ “Network Provisioning Service” DemandServName [8] ＝ “NT LM Security Support Provider” DemandServName [9] ＝ “Performance Logs and Alerts” DemandServName [10] ＝ “Portable Media Serial Number Service” DemandServName [11] ＝ “Remote Access Auto Connection Manager” DemandServName [12] ＝ “Remote Access Connection Manager” DemandServName [13] ＝ “Remote Desktop Help Session Manager” DemandServName [14] ＝ “Remote Procedure Call (RPC) Locator” DemandServName [15] ＝ “Smart Card” DemandServName [16] ＝ “SSDP Discovery Service” DemandServName [17] ＝ “Telephony” DemandServName [18] ＝ “Windows Image Acquisition (WIA)” DemandServName [19] ＝ “Windows Installer” DemandServName [20] ＝ “Windows Management Instrumentation Driver Extensions” DemandServName [21] ＝ “WMI Performance Adapter” ' 自动 AutoServ [1] ＝ “ALG” AutoServ [2] ＝ “wuauserv” AutoServ [3] ＝ “BITS” AutoServ [4] ＝ “EventSystem” AutoServ [5] ＝ “Browser” AutoServ [6] ＝ “CryptSvc” AutoServ [7] ＝ “DcomLaunch” AutoServ [8] ＝ “Dhcp” AutoServ [9] ＝ “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” AutoServ [1] ＝ “Application Layer Gateway Service” AutoServ [2] ＝ “Automatic Updates” AutoServ [3] ＝ “Background Intelligent Transfer Service” AutoServ [4] ＝ “COM+ Event System” AutoServ [5] ＝ “Computer Browser” AutoServ [6] ＝ “Cryptographic Services” AutoServ [7] ＝ “DCOM Server Process Launcher” AutoServ [8] ＝ “DHCP Client” AutoServ [9] ＝ “DNS Client” AutoServ [10] ＝ “Event Log” AutoServ [11] ＝ “IPSEC Services” AutoServ [12] ＝ “Logical Disk Manager” AutoServ [13] ＝ “Network Location Awareness (NLA)” AutoServ [14] ＝ “Plug and Play” AutoServ [15] ＝ “Print Spooler” AutoServ [16] ＝ “Protected Storage” AutoServ [17] ＝ “Remote Procedure Call (RPC)” AutoServ [18] ＝ “Security Accounts Manager” AutoServ [19] ＝ “Server” AutoServ [20] ＝ “Task Scheduler” AutoServ [21] ＝ “TCP/IP NetBIOS Helper” AutoServ [22] ＝ “Themes” AutoServ [23] ＝ “Universal Plug and Play Device Host” AutoServ [24] ＝ “Windows Audio” AutoServ [25] ＝ “Windows Firewall/Internet Connection Sharing (ICS)” AutoServ [26] ＝ “Windows Management Instrumentation” AutoServ [27] ＝ “Wireless Zero Configuration” AutoServ [28] ＝ “Workstation” .变量循环首 (1, 30, 1, i) 列表框1.加入项目 (“正在设置该服务为禁止” ＋ DisabledServName [i], ) 运行 (“sc config ” ＋ DisabledServ [i] ＋ “” ＋ “start= disabled”, 真, #隐藏窗口) 延时 (t) 列表框1.加入项目 (“正在停用” ＋ DisabledServName [i], ) 运行 (“sc stop ” ＋ DisabledServ [i], 真, #隐藏窗口) 延时 (t) .变量循环尾 () .变量循环首 (1, 21, 1, i) 列表框1.加入项目 (“正在设置该服务为手动” ＋ DemandServName [i], ) 运行 (“sc config ” ＋ DemandServ [i] ＋ “” ＋ “start= disabled”, 真, #隐藏窗口) 延时 (t) .如果真 (i ＝ 6 或 i ＝ 12 或 i ＝ 16 或 i ＝ 17) 列表框1.加入项目 (“正在启用” ＋ DemandServName [i], ) 运行 (“sc start ” ＋ DemandServ [i], 真, #隐藏窗口) 延时 (t) .如果真结束 .如果真 (i ≠ 6 或 i ≠ 12 或 i ≠ 16 或 i ≠ 17) 列表框1.加入项目 (“正在停用” ＋ DemandServName [i], ) 运行 (“sc stop ” ＋ DemandServ [i], 真, #隐藏窗口) 延时 (t) .如果真结束 .变量循环尾 () .变量循环首 (1, 28, 1, i) 列表框1.加入项目 (“正在将如下服务调整为自动” ＋ AutoServName [i], ) 运行 (“sc config ” ＋ AutoServ [i] ＋ “ start= auto”, 真, #隐藏窗口) 延时 (t) .变量循环尾 () 列表框1.加入项目 (“终于我完成了!快重起下,看看速度快了没?”, ) .子程序 __启动窗口_创建完毕