系统服务优化易语言源码

.版本 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.加入项目 (“终于我完成了!快重起下,看看速度快了没?”, )

.子程序 __启动窗口_创建完毕

@易语言入门教程