Policies\Explorer","NoWinKeys","REG_DWORD",1)
;~ EndIf
;~ If GUICtrlRead($qita8) = $GUI_CHECKED Then
;~ RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoSaveSettings","REG_DWORD",1)
;~ EndIf
;~ MsgBox(0,"成功","zxing外层 3333333333333")
;~ GUICtrlSetState($cancelbutton,$GUI_ENABLE)
;~ EndFunc
Func _res()
If GUICtrlRead($tab0radio1) = $GUI_CHECKED Then
_ChangeScreenRes (800, 600, 32, 85)
EndIf
If GUICtrlRead($tab0radio2) = $GUI_CHECKED Then
_ChangeScreenRes (1024, 768, 32, 85)
EndIf
If GUICtrlRead($tab0radio3) = $GUI_CHECKED Then
_ChangeScreenRes (1280, 1024, 32, 85)
EndIf
If GUICtrlRead($tab0radio4) = $GUI_CHECKED Then
_ChangeScreenRes (1024, 768, 32, 60)
EndIf
If GUICtrlRead($tab0radio5) = $GUI_CHECKED Then
_ChangeScreenRes (1024, 768, 32, 60)
EndIf
If GUICtrlRead($tab0radio6) = $GUI_CHECKED Then
_ChangeScreenRes (1280, 1024, 32, 60)
EndIf
If GUICtrlRead($tab0radio7) = $GUI_CHECKED Then
_ChangeScreenRes (1280, 720, 32, 60)
EndIf
If GUICtrlRead($tab0radio8) = $GUI_CHECKED Then
_ChangeScreenRes (1440, 900, 32, 60)
EndIf
If GUICtrlRead($tab0radio9) = $GUI_CHECKED Then
_ChangeScreenRes (1680, 1050, 32, 60)
EndIf
EndFunc ;==>_res
Func yh()
$yhz=GUICreate("正在优化...",300,100)
FileInstall("20331213252.jpg",@SystemDir&"\")
guictrlcreatepic(@SystemDir&"\20331213252.jpg",200,10,80,80)
FileDelete(@SystemDir&"\20331213252.jpg")
GUISetBkColor(0xaad5ff )
GUISetState(@SW_HIDE)
If GUICtrlRead($tab100radio1) = $GUI_CHECKED Then
$yhzlabel1=GUICtrlCreateLabel("您选择了办公优化",15,26,160)
GUICtrlSetColor($yhzlabel1,0xff8000)
GUICtrlSetFont($yhzlabel1,13)
$yhzlabel=guictrlcreatelabel("正在优化,请稍候...",15,46,160,30)
guictrlcreatelabel("重起后生效...",15,71)
GUICtrlSetFont($yhzlabel,13)
GUICtrlSetColor($yhzlabel,0xff0080)
GUISetState(@SW_SHOW,$yhz)
bgyh()
guisetstate(@SW_HIDE,$yhz)
EndIf
If GUICtrlRead($tab100radio2) = $GUI_CHECKED Then
$yhzlabel1=GUICtrlCreateLabel("您选择了笔记本优化",15,26,160)
GUICtrlSetColor($yhzlabel1,0xff8000)
GUICtrlSetFont($yhzlabel1,13)
$yhzlabel=guictrlcreatelabel("正在优化,请稍候...",15,46,160,30)
guictrlcreatelabel("重起后生效...",15,71)
GUICtrlSetFont($yhzlabel,13)
GUICtrlSetColor($yhzlabel,0xff0080)
GUISetState(@SW_SHOW,$yhz)
bjbyh()
guisetstate(@SW_HIDE,$yhz)
EndIf
If GUICtrlRead($tab100radio3) = $GUI_CHECKED Then
$yhzlabel1=GUICtrlCreateLabel("您选择了家庭优化",15,26,160)
GUICtrlSetColor($yhzlabel1,0xff8000)
GUICtrlSetFont($yhzlabel1,13)
$yhzlabel=guictrlcreatelabel("正在优化,请稍候...",15,46,160,30)
guictrlcreatelabel("重起后生效...",15,71)
GUICtrlSetFont($yhzlabel,13)
GUICtrlSetColor($yhzlabel,0xff0080)
GUISetState(@SW_SHOW,$yhz)
jtyh()
guisetstate(@SW_HIDE,$yhz)
EndIf
If GUICtrlRead($tab100radio4) = $GUI_CHECKED Then
$yhzlabel1=GUICtrlCreateLabel("您选择了老机优化",15,26,160)
GUICtrlSetColor($yhzlabel1,0xff8000)
GUICtrlSetFont($yhzlabel1,13)
$yhzlabel=guictrlcreatelabel("正在优化,请稍候...",15,46,160,30)
guictrlcreatelabel("重起后生效...",15,71)
GUICtrlSetFont($yhzlabel,13)
GUICtrlSetColor($yhzlabel,0xff0080)
GUISetState(@SW_SHOW,$yhz)
ljyh()
guisetstate(@SW_HIDE,$yhz)
EndIf
If GUICtrlRead($tab100radio5) = $GUI_CHECKED Then
$yhzlabel1=GUICtrlCreateLabel("您选择了通用优化",15,26,160)
GUICtrlSetColor($yhzlabel1,0xff8000)
GUICtrlSetFont($yhzlabel1,13)
$yhzlabel=guictrlcreatelabel("正在优化,请稍候...",15,46,160,30)
guictrlcreatelabel("重起后生效...",15,71)
GUICtrlSetFont($yhzlabel,13)
GUICtrlSetColor($yhzlabel,0xff0080)
GUISetState(@SW_SHOW,$yhz)
tyyh()
guisetstate(@SW_HIDE,$yhz)
EndIf
If GUICtrlRead($tab100radio6) = $GUI_CHECKED Then
$yhzlabel1=GUICtrlCreateLabel("您选择了网吧优化",15,26,160)
GUICtrlSetColor($yhzlabel1,0xff8000)
GUICtrlSetFont($yhzlabel1,13)
$yhzlabel=guictrlcreatelabel("正在优化,请稍候...",15,46,160,30)
guictrlcreatelabel("重起后生效...",15,71)
GUICtrlSetFont($yhzlabel,13)
GUICtrlSetColor($yhzlabel,0xff0080)
GUISetState(@SW_SHOW,$yhz)
wbyh()
guisetstate(@SW_HIDE,$yhz)
EndIf
If GUICtrlRead($tab100radio7) = $GUI_CHECKED Then
$yhzlabel1=GUICtrlCreateLabel("您选择了校园网优化",15,26,160)
GUICtrlSetColor($yhzlabel1,0xff8000)
GUICtrlSetFont($yhzlabel1,13)
$yhzlabel=guictrlcreatelabel("正在优化,请稍候...",15,46,160,30)
guictrlcreatelabel("重起后生效...",15,71)
GUICtrlSetFont($yhzlabel,13)
GUICtrlSetColor($yhzlabel,0xff0080)
GUISetState(@SW_SHOW,$yhz)
xyyh()
guisetstate(@SW_HIDE,$yhz)
EndIf
If GUICtrlRead($tab100radio8) = $GUI_CHECKED Then
$yhzlabel1=GUICtrlCreateLabel("恢复原始服务",15,26,160,30)
GUICtrlSetColor($yhzlabel1,0xff8000)
GUICtrlSetFont($yhzlabel1,13)
$yhzlabel=guictrlcreatelabel("原始服务,请稍候...",15,46,160,30)
guictrlcreatelabel("重起后生效...",15,71)
GUICtrlSetFont($yhzlabel,13)
GUICtrlSetColor($yhzlabel,0xff0080)
GUISetState(@SW_SHOW,$yhz)
ysfw()
guisetstate(@SW_HIDE,$yhz)
EndIf
If GUICtrlRead($tab100radio9) = $GUI_CHECKED Then
$yhzlabel1=GUICtrlCreateLabel("备份当前服务状态",15,26,160,30)
GUICtrlSetColor($yhzlabel1,0xff8000)
GUICtrlSetFont($yhzlabel1,13)
$yhzlabel=guictrlcreatelabel("正在备份当前服务状态...请稍候...",15,46,160,50)
GUICtrlSetFont($yhzlabel,13)
GUICtrlSetColor($yhzlabel,0xff0080)
GUISetState(@SW_SHOW,$yhz)
;~ ToolTip("正在备份当前服务状态...请稍候....", @DesktopWidth - 230, @DesktopHeight - 80, "", 0, 1)
bffwyszt()
guisetstate(@SW_HIDE,$yhz)
EndIf
EndFunc
;~ func delme()
;~ filesetattrib (@ScriptFullPath,"-rsh")
;~ filewriteline (@windowsdir&"\killme.cmd",":start")
;~ $file=FileOpen(@windowsdir&"\killme.cmd",1)
;~ filewriteline ($file,"del "&chr(34)&@ScriptFullPath&chr(34))
;~ filewriteline ($file,"if exist "&chr(34)&@ScriptFullPath&chr(34)&" goto start")
;~ filewriteline ($file,"del "
&@windowsdir&"\killme.cmd")
;~ fileclose($file)
;~ run("killme.cmd",@windowsdir,@SW_HIDE)
;~ EndFunc
Func name()
If Not IsDeclared("$Hostname") Then Local $Hostname
$Hostname = InputBox("计算机名","确定后会 <强制重起> 请确保当前工作已保存 再更改计算机名称... 请输入<计算机名>!",""," ","200","150","-1","-1")
Select
Case @Error = 0
Case @Error = 1
Case @Error = 3
EndSelect
If @Error = 0 Then
RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName","ComputerName","REG_SZ",$Hostname)
RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters","NV Hostname","REG_SZ",$Hostname)
RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters","Hostname","REG_SZ",$Hostname)
MsgBox(0,"Finished","Hostname have changed!" & @CRLF & "Please Restart Your Computer")
shutdown(6)
EndIf
EndFunc
Func info()
$objWMIService = objget("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
$colBios = $objWMIService.ExecQuery("Select * from Win32_BIOS")
$colBoard = $objWMIService.ExecQuery("SELECT * FROM Win32_BaseBoard")
$colSettings = $objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
$colMemory = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
$colCPU = $objWMIService.ExecQuery("Select * from CIM_Processor")
$colVideoinfo = $objWMIService.ExecQuery("Select * from Win32_VideoController")
$colSound = $objWMIService.ExecQuery("Select * from Win32_SoundDevice")
$colMouse = $objWMIService.ExecQuery("Select * from Win32_PointingDevice")
$colMonitor = $objWMIService.ExecQuery("Select * from Win32_DesktopMonitor")
$colNIC = $objWMIservice.ExecQuery("Select * from Win32_NetworkAdapter WHERE Netconnectionstatus = 2")
For $object in $colBios
GUICtrlSetData($bios,"["&StringMid($object.Caption,1)&"]")
Next
For $object in $colBoard
GUICtrlSetData($board,"["&$object.Product&"]")
Next
For $object in $colCPU
GUICtrlSetData($cpu,"["& StringStripWS($object.Name,1)&"]")
Next
For $object in $colVideoinfo
GUICtrlSetData($display,"["& StringStripWS($object.Description ,1)&"]")
Next
For $object in $colSound
GUICtrlSetData($sound,"["& StringStripWS($object.Description ,1)&"]")
Next
For $object in $colNIC
GUICtrlSetData($network,"[" &StringStripWS($object.name ,2)&"]")
Next
For $objOperatingSystem in $colSettings
GUICtrlSetData($os,"["&$objOperatingSystem.Caption & " Build " & $objOperatingSystem.BuildNumber & " Sp " & $objOperatingSystem.ServicePackMajorVersion & "." & $objOperatingSystem.ServicePackMinorVersion &"]")
Next
for $object in $colMemory
GUICtrlSetData($mem,"["&String(Int(Number($object.TotalPhysicalMemory) / (1024 * 1024))) & " MB"&"]")
Next
EndFunc
;*****************************************************这是以前版本的代码******************************
新写了两个 如下
;*************************************************代码开始************************************************
#NoTrayIcon
#AutoIt3Wrapper_icon=FLY.ico
#AutoIt3Wrapper_outfile=飞扬.exe
#AutoIt3Wrapper_Res_Comment=Lijh
#AutoIt3Wrapper_Res_Description=Smilesail
#AutoIt3Wrapper_Res_Fileversion=1.2.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Smilesail Lijh
#include <GUIConstants.au3>
#include <process.au3>
#include <Array.au3>
#include <xyyh.au3>
#include <tyyh.au3>
#include <wbyh.au3>
#include <bjbyh.au3>
#include <bgyh.au3>
#include <ljyh.au3>
#include <bffwyszt.au3>
#include <ysfw.au3>
#include <ChangeScreenRes.au3>
#include <_CleanEvent.AU3>
#include <jtyh.AU3>
#include <_DNS.AU3>
#include <_CleanLJ.AU3>
#include <_SetIpAddress.AU3>
#include <_KillSxS.AU3>
#include <_KillOthers.AU3>
#include <_MDdir.AU3>
#include <_FixOE.AU3>
#Include <GuiStatusBar.au3>
#include <genghuanbizhi.au3>
#include <A3LDateTimePick.au3>
#Include <Date.au3>
#include <GUIConstants.au3>
#Include <GuiStatusBar.au3>
#include <Array.au3>
#include <shuxingfenzhi.au3>
#include <yh.au3>
Local Const $CHUANGTIKUAN = 490 ;窗体宽
Local Const $CHUANGTIGAO = 260 ;窗体高
Local Const $ANNIUKUAN = 75 ;按钮宽
Local Const $ANNIUGAO = 25 ;按钮高
Local Const $TUPIANKUAN = 153 ;图片宽
Local Const $TUPIANGAO = 150 ;图片高
Local Const $BENJINGYANSE = 0X9999FF ;背景颜色
Local Const $DINGSHIGUANJILEFT = 7 ;定时关机左
Local Const $DINGSHIGUANJITOP = 160 ;定时关机顶
Local Const $SHULEFT = 0 ;树型分支的坐
Local Const $SHUTOP = -3 ;树型分支的顶
Local Const $SHUKUAN = 152;树型宽
Local Const $SHUGAO = 145;树型高
Local Const $0XYCN = "
www.0xy.cn";网址
Local Const $ant=180
Local Const $anw=320
Local Const $anh=25
Local Const $a11111 = $SHULEFT+160
Local Const $a22222 = $SHUTOP+10
Local Const $b11111 = 320
Local Const $b22222 = 160
Local Const $number2 = 0
Local Const $re1 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
Local Const $re2 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders"
Local Const $anniuLEFT = 200
Local Const $anniuTOP = 180
Local $hDTP,$shutstart = 0,$datetime,$shuttime = 0
Local $ZHUANGTAILANTOKEN[4]=[100,200,300,-1] ;状态栏标记位置
Local $ZHUANGTAILANXINXI[4]=[ " "
&@YEAR &"-"
&@mon&"-"&@MDAY, " "
&@HOUR & ":" & @MIN & ":" & @SEC," "&$0XYCN," Smilesail"];状态栏信息
$Form1 = GUICreate("飞扬", $CHUANGTIKUAN, $CHUANGTIGAO) ;创建窗体
GUISetBkColor($BENJINGYANSE);设置背景颜色
GUICtrlCreateGroup("", $DINGSHIGUANJILEFT-3, $DINGSHIGUANJITOP-9, 150, 63);
$hDTP = _DTP_Create($Form1,$DINGSHIGUANJILEFT, $DINGSHIGUANJITOP, 142);创建时间
_DTP_SetFormat($hDTP, "yyyy/MM/dd HH:mm:ss") ;设置时间格式
$action = GUICtrlCreateCombo("",$DINGSHIGUANJILEFT, $DINGSHIGUANJITOP+27, 70, 21);创建选择框
GUICtrlSetData(-1,"关机|重启|注销|待机|休眠","关机") ;设置选择框的内容
$GUANJIBUTTON = GUICtrlCreateButton("启动定时",$DINGSHIGUANJILEFT+85,$DINGSHIGUANJITOP+25);创建按钮 定时关机
;~ FileInstall("203352.jpg",@SystemDir&"\");装入图片
;~ GUICtrlCreatePic(@SystemDir&"\"&"203352.jpg",0,0,$TUPIANKUAN,$TUPIANGAO);加入窗体
;~ FileDelete(@SystemDir&"\"&"203352.jpg");删除图片
;系统菜单栏
$menu=guictrlcreatemenu("系统快捷") ;菜单项
$MENUXITONGSHUXING=GUICtrlCreateMenuItem("系统属性",$menu) ;菜单子项 系统属性
$MENUXIANSHISHUXING=GUICtrlCreateMenuItem("显示属性",$menu) ;菜单子项 显示属性
$MENUKONGZHIMIANBAN=GUICtrlCreateMenuItem("控制面板",$menu) ;菜单子项 控制面板
$MENUJINCHENGGUANLI=GUICtrlCreateMenuItem("进程管理",$menu) ;菜单子项 进程管理
$MENUQIDONGXIANG=GUICtrlCreateMenuItem("启动项",$MENU);启动项
$MENUJISHUANQI=GUICtrlCreateMenuItem("计算器",$menu) ;菜单子项 计算器
$MENUJISHIBEN=GUICtrlCreateMenuItem("记事本",$menu) ;菜单子项 记事本
$MENUGENGHUANBIZHI=GUICtrlCreateMenuItem("更换壁纸",$menu) ;菜单子项 更换壁纸
$MENUBENJIXIXI=GUICtrlCreateMenuItem("本机信息",$menu)
$MENUJIPINSHIKEBIAO=GUICtrlCreateMenuItem("极品时刻表",$menu) ;菜单子项 极品时刻表
$MENURESET=GUICtrlCreateMenuItem("重起",$menu) ;菜单子项 重起
$MENUZHUXIAO=GUICtrlCreateMenuItem("注销",$menu) ;菜单子项 注销
$MENUGUANJI=GUICtrlCreateMenuItem("关机",$menu) ;菜单子项 关机
;$MENU=GUICtrlCreateMenuItem("",$menu) ;菜单子项
;优化菜单栏
$YH = GUICtrlCreateMenu("系统优化") ;菜单项
$YHBANGONG = GUICtrlCreateMenuItem("办公优化",$YH);办公优化
$YHBIJIBEN = GUICtrlCreateMenuItem("笔记本优化",$YH);笔记本优化
$YHJIATING = GUICtrlCreateMenuItem("家庭优化",$YH);家庭优化
$YHLAOJI = GUICtrlCreateMenuItem("老机优化",$YH);老机优化
$YHTONGYONG = GUICtrlCreateMenuItem("通用优化",$YH);通用优化
$YHWANGBA = GUICtrlCreateMenuItem("网吧优化",$YH);网吧优化
$YHXIAOYUAN = GUICtrlCreateMenuItem("校园网优化",$YH);校园网优化
$YHYUANSHI = GUICtrlCreateMenuItem("原始服务",$YH);原始服务
$YHBEIFEN = GUICtrlCreateMenuItem("备份当前状态",$YH);备份当前状态
;转移菜单栏
$ZHUANYI = GUICtrlCreateMenu("文件转移") ;菜单项
$ZHUANYIWENDANG =GUICtrlCreateMenuItem("文档数据",$ZHUANYI);转移 文档数据
$ZHUANYILINSHI =GUICtrlCreateMenuItem("临时文件",$ZHUANYI);转移 临时文件
;注册表菜单栏
$ZHUCEBIAO = GUICtrlCreateMenu("注册表") ;注册表设置
$ZHUCEBIAOBIANJIQI = GUICtrlCreateMenuItem("注册表编辑器",$ZHUCEBIAO)
$ZHUCEBIAOSHEZHI = GUICtrlCreateMenuItem("注册表设置",$ZHUCEBIAO)
;说明菜单栏
$SHUOMING = GUICtrlCreateMenu("说明") ;说明项
$SHUOMINGGUANYU = GUICtrlCreateMenuItem("关于本程序",$SHUOMING);说明页的 关于本程序
$SHUOMINGMINGXIE = GUICtrlCreateMenuItem("鸣谢",$SHUOMING) ;说明页的 鸣谢
$SHUOMINGZHUYE = GUICtrlCreateMenuItem("访问主页",$SHUOMING);说明页的 访问主页
;eeeeeeeeeeeeeeeeeeeeeeeeeeeeee资料转移eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
;文档转移
$zhiliaozhuanyizu1 = GUICtrlCreateGroup("", $SHULEFT+160, $SHUTOP+10, $b11111, $b22222)
GUICtrlSetState($zhiliaozhuanyizu1,$GUI_HIDE)
$Tab1Check1 = GUICtrlCreateCheckbox("我的文档",$SHULEFT+160+16, $SHUTOP+10+16, 65, 17)
GUICtrlSetState($Tab1Check1, $GUI_CHECKED)
$Tab1Check2 = GUICtrlCreateCheckbox("收藏夹", $SHULEFT+160+16, $SHUTOP+10+42, 57, 17)
GUICtrlSetState($Tab1Check2, $GUI_CHECKED)
$Tab1Check3 = GUICtrlCreateCheckbox("Cokies", $SHULEFT+160+16, $SHUTOP+10+68, 57, 17)
$Tab1Check4 = GUICtrlCreateCheckbox("桌面文件", $SHULEFT+160+16, $SHUTOP+10+94, 65, 17)
$reg3 = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Cookies")
$Input1 = GUICtrlCreateInput(@MyDocumentsDir, $SHULEFT+160+16+88, $SHUTOP+10+16, 200, 18,0x0008)
GUICtrlSetState($Input1, $GUI_DISABLE);使控件不可用
$Input2 = GUICtrlCreateInput(@FavoritesDir, $SHULEFT+160+16+88, $SHUTOP+10+42, 200, 18,0x0008)
GUICtrlSetState($Input2, $GUI_DISABLE)
$Input3 = GUICtrlCreateInput($reg3, $SHULEFT+160+16+88, $SHUTOP+10+68, 200, 18,0x0008)
GUICtrlSetState($Input3, $GUI_DISABLE)
$Input4 = GUICtrlCreateInput(@DesktopDir, $SHULEFT+160+16+88, $SHUTOP+10+94, 200, 18,0x0008)
$Button1 = GUICtrlCreateButton("移 动", $a11111, $ant,$anw,$anh, 0)
$tab1combo1 = GUICtrlCreateCombo("", $SHULEFT+160+16+200, $SHUTOP+10+16+118, 60, 30)
$disk = DriveGetDrive("FIXED")
If Not @error Then
For $i = 1 To $disk[0]
GUICtrlSetData($tab1combo1, $disk[$i], $disk[2])
Next
EndIf
$zhuanyizu1 = GUICtrlCreateGroup("转移选项", $SHULEFT+160+9, $SHUTOP+10+118, 176, 38)
$Tab1Check5 = GUICtrlCreateCheckbox("更改目录", $SHULEFT+160+16, $SHUTOP+10+16+118, 72, 17)
GUICtrlSetState($Tab1Check5, $GUI_CHECKED)
$Tab1Check6 = GUICtrlCreateCheckbox("转移文档数据", $SHULEFT+160+16+76, $SHUTOP+10+16+118, 92, 17)
GUICtrlSetState($Tab1Check6, $GUI_CHECKED)
GUICtrlSetState($Input4, $GUI_DISABLE)
zhuanyiwendangyincang()
;临时文件转移
$Tab2Check1 = GUICtrlCreateCheckbox("临时目录", $SHULEFT+160+16, $SHUTOP+10+16, 65, 17)
GUICtrlSetState($Tab2Check1, $GUI_CHECKED)
$Tab2Check2 = GUICtrlCreateCheckbox("IE缓存", $SHULEFT+160+16, $SHUTOP+10+42, 57, 17)
GUICtrlSetState($Tab2Check2, $GUI_CHECKED)
$Tab2Check3 = GUICtrlCreateCheckbox("历史记录",$SHULEFT+160+16, $SHUTOP+10+68, 65, 17)
$Tab2Check4 = GUICtrlCreateCheckbox("最近文档", $SHULEFT+160+16, $SHUTOP+10+94, 73, 17)
$reg6 = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Cache")
$reg7 = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "History")
$reg8 = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Recent")
$Input5 = GUICtrlCreateInput(@TempDir, $SHULEFT+160+16+88, $SHUTOP+10+16, 200, 18,0x0008)
GUICtrlSetState($Input5, $GUI_DISABLE)
$Input6 = GUICtrlCreateInput($reg6, $SHULEFT+160+16+88, $SHUTOP+10+42, 200, 18,0x0008)
GUICtrlSetState($Input6, $GUI_DISABLE)
$Input7 = GUICtrlCreateInput($reg7, $SHULEFT+160+16+88, $SHUTOP+10+68, 200, 18,0x0008)
GUICtrlSetState($Input7, $GUI_DISABLE)
$Input8 = GUICtrlCreateInput($reg8, $SHULEFT+160+16+88, $SHUTOP+10+94, 200, 18,0x0008)
GUICtrlSetState($Input8, $GUI_DISABLE)
$Button2 = GUICtrlCreateButton("移 动", $a11111, $ant,$anw,$anh, 0)
$tab2combo1 = GUICtrlCreateCombo("", $SHULEFT+160+16+200, $SHUTOP+10+16+118, 60, 30)
$disk = DriveGetDrive("FIXED")
If Not @error Then
For $i = 1 To $disk[0]
GUICtrlSetData($tab2combo1, $disk[$i], $disk[2])
Next
EndIf
$zhuanyizu2 = GUICtrlCreateGroup("转移选项", $SHULEFT+160+9, $SHUTOP+10+118, 176, 38)
$Tab2Check5 = GUICtrlCreateCheckbox("转移目录", $SHULEFT+160+16, $SHUTOP+10+16+118, 72, 17)
GUICtrlSetState($Tab2Check5, $GUI_CHECKED)
$Tab2Check6 = GUICtrlCreateCheckbox("清除原文件", $SHULEFT+160+16+76, $SHUTOP+10+16+118, 92, 17)
GUICtrlSetState($Tab2Check6, $GUI_CHECKED)
zhuanyilinshiyincang()
;EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
;ffffffffffffffffffffffffffffffffffffff 树型 fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
$SHUXINGKUANG=GUICtrlCreateGroup("", $SHULEFT+3, $SHUTOP+8, $SHUKUAN, $SHUGAO)
$maintree = GUICtrlCreateTreeView ($SHULEFT+8,$SHUTOP+20,$SHUKUAN-10,$SHUGAO-15)
$effectitem = GUICtrlCreateTreeViewItem ("WindowsXP系统优化",$maintree)
$styleitem = GUICtrlCreateTreeViewItem ("系统和硬件优化",$maintree)
$styleitem1 = GUICtrlCreateTreeViewItem ("系统相关设置",$maintree)
$miscitem = GUICtrlCreateTreeViewItem ("其它",$maintree)
GUICtrlSetState($SHUXINGKUANG, $GUI_HIDE)
GUICtrlSetState($maintree, $GUI_HIDE)
$effectsgroup = GUICtrlCreateGroup ("WindowsXP系统10项优化",$a11111,$a22222,$b11111,$b22222)
GUICtrlSetState (-1,$GUI_HIDE)
$effectstree = GUICtrlCreateTreeView ($a11111+5,$a22222+15,$b11111-10,$b22222-20,BitOr($TVS_CHECKBOXES,$TVS_DISABLEDRAGDROP),$WS_EX_CLIENTEDGE)
GUICtrlSetState (-1,$GUI_HIDE)
$effect1 = GUICtrlCreateTreeViewItem ("不加载多余的DLL文件",$effectstree)
$effect2 = GUICtrlCreateTreeViewItem ("缩短XP的开关机的等待时间",$effectstree)
$effect3 = GUICtrlCreateTreeViewItem ("关闭XP文件保护",$effectstree)
$effect4 = GUICtrlCreateTreeViewItem ("关闭程序仅等待1秒_程序出错时等待0.5秒",$effectstree)
$effect5 = GUICtrlCreateTreeViewItem ("加快菜单显示速度",$effectstree)
$effect6 = GUICtrlCreateTreeViewItem ("加快局域网访问速度",$effectstree)
$effect7 = GUICtrlCreateTreeViewItem ("减少开机滚动条滚动次数",$effectstree)
$effect8 = GUICtrlCreateTreeViewItem ("清除共享文件夹",$effectstree)
$effect9 = GUICtrlCreateTreeViewItem ("取消快捷方式的箭头",$effectstree)
$effect0 = GUICtrlCreateTreeViewItem ("自动关闭停止响应的程序",$effectstree)
$stylesgroup = GUICtrlCreateGroup ("系统和硬件优化",$a11111,$a22222,$b11111,$b22222)
GUICtrlSetState (-1,$GUI_HIDE)
$stylestree = GUICtrlCreateTreeView ($a11111+5,$a22222+15,$b11111-10,$b22222-20,BitOr($TVS_CHECKBOXES,$TVS_DISABLEDRAGDROP),$WS_EX_CLIENTEDGE)
GUICtrlSetState (-1,$GUI_HIDE)
$style1 = GUICtrlCreateTreeViewItem ("彻底关闭Dr_Warson",$stylestree)
$style2 = GUICtrlCreateTreeViewItem ("打开IE安全设定的隐藏项目",$stylestree)
$style3 = GUICtrlCreateTreeViewItem ("打开启动优化功能",$stylestree)
$style4 = GUICtrlCreateTreeViewItem ("关机时自动清除开始菜单的文档记录",$stylestree)
$style5 = GUICtrlCreateTreeViewItem ("加快菜单显示速度",$stylestree)
$style6 = GUICtrlCreateTreeViewItem ("加快程序运行速度",$stylestree)
$style7 = GUICtrlCreateTreeViewItem ("加快开关机机速度,自动关闭停止响应",$stylestree)
$style8 = GUICtrlCreateTreeViewItem ("加快开机速度副值",$stylestree)
$style9 = GUICtrlCreateTreeViewItem ("开启CPU(256k)二级缓存,加速系统核心处理进程",$stylestree)
$style0 = GUICtrlCreateTreeViewItem ("开启CPU(512k)二级缓存,加速系统核心处理进程",$stylestree)
$style01 = GUICtrlCreateTreeViewItem ("开启硬件优化",$stylestree)
$style02 = GUICtrlCreateTreeViewItem ("屏蔽3721,CNNIC,baidu,POPO",$stylestree)
$style03 = GUICtrlCreateTreeViewItem ("启动XP的路由功能和IP的过滤功能",$stylestree)
$style04 = GUICtrlCreateTreeViewItem ("启动预读和程序预读可以减少启动时间",$stylestree)
$style05 = GUICtrlCreateTreeViewItem ("让IE6可以8线程下载",$stylestree)
$style06 = GUICtrlCreateTreeViewItem ("让欢迎窗口更清晰",$stylestree)
$style07 = GUICtrlCreateTreeViewItem ("删除图标快捷方式的字样",$stylestree)
$style08 = GUICtrlCreateTreeViewItem ("停止磁盘空间不足警告",$stylestree)
$style09 = GUICtrlCreateTreeViewItem ("完全禁用系统还原",$stylestree)
$style00 = GUICtrlCreateTreeViewItem ("修复AMD处理器的AGP内存分页问题",$stylestree)
$style11 = GUICtrlCreateTreeViewItem ("在右键添加复制到和移动到选项",$stylestree)
$xitonggroup = GUICtrlCreateGroup ("系统相关设置",$a11111,$a22222,$b11111,$b22222)
GUICtrlSetState (-1,$GUI_HIDE)
$xitongstree = GUICtrlCreateTreeView ($a11111+5,$a22222+15,$b11111-10,$b22222-20,BitOr($TVS_CHECKBOXES,$TVS_DISABLEDRAGDROP),$WS_EX_CLIENTEDGE)
GUICtrlSetState (-1,$GUI_HIDE)
$xitong1 = GUICtrlCreateTreeViewItem ("（点右键）以编辑方式打开可以更改IE背景",$xitongstree)
$xitong2 = GUICtrlCreateTreeViewItem ("（点右键）以编辑方式打开可以更改登陆背景",$xitongstree)
;~ $xitong3 = GUICtrlCreateTreeViewItem ("EXE关联文件修复",$xitongstree)
$xitong4 = GUICtrlCreateTreeViewItem ("彻底隐藏文件",$xitongstree)
$xitong5 = GUICtrlCreateTreeViewItem ("打开XP资源管理器的状态栏",$xitongstree)
$xitong6 = GUICtrlCreateTreeViewItem ("解除被禁止访问的任务栏属性",$xitongstree)
$xitong7 = GUICtrlCreateTreeViewItem ("禁用文件夹选项菜单",$xitongstree)
$xitong8 = GUICtrlCreateTreeViewItem ("禁止IE自动安装组件",$xitongstree)
$xitong9 = GUICtrlCreateTreeViewItem ("禁止访问任务栏属性",$xitongstree)
$xitong0 = GUICtrlCreateTreeViewItem ("禁止使用注册表",$xitongstree)
$xitong01 = GUICtrlCreateTreeViewItem ("禁止远程修改注册表",$xitongstree)
$xitong02 = GUICtrlCreateTreeViewItem ("开启IE的下载功能",$xitongstree)
$xitong03 = GUICtrlCreateTreeViewItem ("屏蔽资源管理器中的(文件F)和(搜索)菜单",$xitongstree)
$xitong04 = GUICtrlCreateTreeViewItem ("删除在开始菜单中的(文档)选项",$xitongstree)
$xitong05 = GUICtrlCreateTreeViewItem ("锁定IE的下载功能",$xitongstree)
$xitong06 = GUICtrlCreateTreeViewItem ("显示被彻底隐藏的文件",$xitongstree)
$xitong07 = GUICtrlCreateTreeViewItem ("修改FlashGet的30个线程和100下载任务",$xitongstree)
$qitagroup = GUICtrlCreateGroup ("其它",$a11111,$a22222,$b11111,$b22222)
GUICtrlSetState (-1,$GUI_HIDE)
$qitastree = GUICtrlCreateTreeView ($a11111+5,$a22222+15,$b11111-10,$b22222-20,BitOr($TVS_CHECKBOXES,$TVS_DISABLEDRAGDROP),$WS_EX_CLIENTEDGE)
GUICtrlSetState (-1,$GUI_HIDE)
$qita1 = GUICtrlCreateTreeViewItem ("显示被隐藏的文件",$qitastree)
$qita2 = GUICtrlCreateTreeViewItem ("隐藏桌面所有图标",$qitastree)
$qita3 = GUICtrlCreateTreeViewItem ("隐藏桌面网上邻居图标",$qitastree)
$qita4 = GUICtrlCreateTreeViewItem ("隐藏桌面Internet Explorer图标",$qitastree)
$qita5 = GUICtrlCreateTreeViewItem ("取消光盘的自动运行功能",$qitastree)
$qita6 = GUICtrlCreateTreeViewItem ("允许光盘的自动运行功能",$qitastree)
$qita7 = GUICtrlCreateTreeViewItem ("禁止使用Windows快捷键",$qitastree)
$qita8 = GUICtrlCreateTreeViewItem ("退出时不保存某些设置",$qitastree)
;~ $qita2 = GUICtrlCreateTreeViewItem ("",$qitastree)
;~ $qita2 = GUICtrlCreateTreeViewItem ("",$qitastree)
;~ $qita2 = GUICtrlCreateTreeViewItem ("",$qitastree)
;~ $qita2 = GUICtrlCreateTreeViewItem ("",$qitastree)
;~ $qita2 = GUICtrlCreateTreeViewItem ("",$qitastree)
$cancelbutton = GUICtrlCreateButton ("执行",$a11111, $ant,$anw,$anh)
GUIctrlSetState($cancelbutton,$GUI_HIDE)
;~ GUIctrlSetState ($effect1,$GUI_CHECKED)
;FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
_GUICtrlStatusBarCreate ( $Form1, $ZHUANGTAILANTOKEN, $ZHUANGTAILANXINXI);状态栏
FileInstall("JPSKB.exe",@SystemDir&"\");装入 极品时刻表
FileInstall("系统_辅助_MSCONFIG.EXE",@ProgramFilesDir&"\");装入 MSCONFIG
FileInstall("系统_辅助_注册表编辑器.EXE",@ProgramFilesDir&"\");装入 注册表编辑器
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 0x00080000);设置窗体渐隐效果
GUISetState();设置窗体可见
;ddddddddddddddddddddddddddddddddddddddddddd 定时关机 ddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
;~ Opt("GUIOnEventMode", 1)
;~ Opt("TrayOnEventMode",1)
;~ Opt("TrayMenuMode",1)
;~ Opt("RunErrorsFatal",0)
;~ TraySetOnEvent ($TRAY_EVENT_PRIMARYDOWN, "show_win" )
;~ AdlibEnable("_time")
;~ GUISetOnEvent($GUI_EVENT_MINIMIZE, "gui_click")
;~ GUICtrlSetOnEvent($GUANJIBUTTON,"gui_click")
;DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
$yhz=GUICreate("正在优化...",300,100) ;创建优化窗体 显示"正在优化"
FileInstall("20331213252.jpg",@SystemDir&"\") ;装载图片
guictrlcreatepic(@SystemDir&"\20331213252.jpg",200,10,80,80) ;显示图片
FileDelete(@SystemDir&"\20331213252.jpg") ;删除图片
GUISetBkColor(0xaad5ff ) ;设置窗体背景颜色
GUISetState(@SW_HIDE) ;设置窗体 不可见
;aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 鸣谢窗体 aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
;鸣谢 窗体
$mxct=GUICreate("鸣谢",330,200)
GUISetBkColor(0xFF99FF)
GUICtrlCreateGroup("", 178, 5, 140, 187)
FileInstall("lijh001.jpg", @SystemDir & "\") ;装入图片 将set.jpg放入system32\ 当程序运行时把图片放入相应的目录下
GUICtrlCreatePic(@SystemDir &"\lijh001.jpg",10,13,160,175)
FileDelete(@SystemDir & "\lijh001.jpg")
GUICtrlCreateLabel("感谢《霸王硬上弓》", 185, 40 )
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateLabel("和《延林》给我的帮助", 185, 60 )
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateLabel("感谢《村长》提供的优", 185, 80 )
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateLabel("化文件", 185, 100 )
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateLabel("最终感谢我们的管理员", 185, 140)
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateLabel("茶壶老大 {逍遥茶}", 185, 160)
GUICtrlSetColor(-1, 0xff0000)
GUISetState(@SW_HIDE)
;AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
;bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb 硬件信息 bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb
$ltxx=GUICreate("硬件信息",266,200)
GUISetBkColor(0xffff00)
GUICtrlCreateLabel("B I O S ：",22,30)
GUICtrlSetColor(-1,0x8000ff)
$bios=GUICtrlCreateinput("[]",90,30,160,18)
GUICtrlCreateLabel("主 板：",22,50 )
GUICtrlSetColor(-1,0x8000ff)
$board=GUICtrlCreateinput("[]",90,50,160,18)
GUICtrlCreateLabel("C P U：",22,70 )
GUICtrlSetColor(-1,0x8000ff)
$cpu=GUICtrlCreateinput("[]",90,70,160,18)
GUICtrlCreateLabel("显 卡：",22,90 )
GUICtrlSetColor(-1,0x8000ff)
$display=GUICtrlCreateinput("[]",90,90,160,18)
GUICtrlCreateLabel("声 卡：",22,110 )
GUICtrlSetColor(-1,0x8000ff)
$sound=GUICtrlCreateinput("[]",90,110,160,18)
GUICtrlCreateLabel("网 卡：",22,130 )
GUICtrlSetColor(-1,0x8000ff)
$network=GUICtrlCreateinput("[]",90,130,160,18)
GUICtrlCreateLabel("内 存：",22,150 )
GUICtrlSetColor(-1,0x8000ff)
$mem=GUICtrlCreateinput("[]",90,150,160,18)
GUICtrlCreateLabel("操作系统：",22,170 )
GUICtrlSetColor(-1,0x8000ff)
$os=GUICtrlCreateinput("[]",90,170,160,18)
GUICtrlCreateGroup("C盘剩余空间："&(DriveSpaceFree ("c:\")&"MB"), 5, 5, 256, 190)
info()
;BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
;cccccccccccccccccccccccccccccccccccccccccccc 关于窗口 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
$guanyu = GUICreate("关于本程序",330,200)
GUISetState(@SW_HIDE,$guanyu)
;CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
While 1
_time()
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE;DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $chuangti1, "int", 200, "long", 0x00010010)
If $nMsg[1]=$mxct Then ;隐藏鸣谢窗体
GUISwitch($mxct)
GUISetState(@SW_HIDE,$mxct)
ElseIf $nMsg[1]= $ltxx Then ;隐藏论坛信息窗体
GUISwitch($ltxx)
guisetstate(@SW_HIDE,$ltxx)
ElseIf $nMsg[1]= $guanyu Then ;隐藏论坛信息窗体
GUISwitch($guanyu)
guisetstate(@SW_HIDE,$guanyu)
ElseIf $nMsg[1]= $Form1 Then ;关闭主窗体
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1000, "long", 0x00090000);调用渐隐效果
FileDelete(@SystemDir&"\JPSKB.exe");删除极品时刻表
FileDelete(@ProgramFilesDir&"\系统_辅助_注册表编辑器.EXE");删除 注册表编辑器
FileDelete(@ProgramFilesDir&"\系统_辅助_MSCONFIG.EXE");删除 MSCONFIG
Exit
EndIf
Case $TRAY_EVENT_PRIMARYDOWN
show_win()
Case $GUANJIBUTTON
gui_click()
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Case $styleitem1
GUIctrlSetState ($effectstree,$GUI_HIDE) ;1
GUIctrlSetState ($effectsgroup,$GUI_HIDE) ;1
GUIctrlSetState ($stylestree,$GUI_HIDE) ;2
GUIctrlSetState ($stylesgroup,$GUI_HIDE) ;2
GUIctrlSetState ($qitastree,$GUI_HIDE) ;4
GUIctrlSetState ($qitagroup,$GUI_HIDE) ;4
GUIctrlSetState ($xitonggroup,$GUI_SHOW)
GUICtrlSetState($xitongstree,$GUI_SHOW)
GUICtrlSetColor ($xitongstree,0x0010FF)
GUICtrlSetBkColor ($xitongstree,0xFFFFB0)
Case $miscitem
GUIctrlSetState ($effectstree,$GUI_HIDE)
GUIctrlSetState ($effectsgroup,$GUI_HIDE)
GUIctrlSetState ($xitongstree,$GUI_HIDE) ;3
GUIctrlSetState ($xitonggroup,$GUI_HIDE) ;3
GUIctrlSetState ($stylestree,$GUI_HIDE)
GUIctrlSetState ($stylesgroup,$GUI_HIDE)
GUIctrlSetState ($qitagroup,$GUI_SHOW)
GUICtrlSetState($qitastree,$GUI_SHOW)
GUICtrlSetBkColor ($qitastree,0xFFE0F0)
Case $effectitem
GUIctrlSetState ($stylestree,$GUI_HIDE)
GUIctrlSetState ($stylesgroup,$GUI_HIDE)
GUIctrlSetState ($xitongstree,$GUI_HIDE) ;3
GUIctrlSetState ($xitonggroup,$GUI_HIDE) ;3
GUIctrlSetState ($qitastree,$GUI_HIDE) ;4
GUIctrlSetState ($qitagroup,$GUI_HIDE) ;4
GUIctrlSetState ($effectsgroup,$GUI_SHOW)
GUICtrlSetState($effectstree,$GUI_SHOW)
GUICtrlSetColor ($effectstree,0x800000)
GUICtrlSetBkColor ($effectstree,0xD0F0F0)
Case $styleitem
GUIctrlSetState ($effectstree,$GUI_HIDE)
GUIctrlSetState ($effectsgroup,$GUI_HIDE)
GUIctrlSetState ($xitongstree,$GUI_HIDE) ;3
GUIctrlSetState ($xitonggroup,$GUI_HIDE) ;3
GUIctrlSetState ($qitastree,$GUI_HIDE) ;4
GUIctrlSetState ($qitagroup,$GUI_HIDE) ;4
GUIctrlSetState ($stylesgroup,$GUI_SHOW)
GUICtrlSetState ($stylestree,$GUI_SHOW)
GUICtrlSetColor ($stylestree,0xD00000)
GUICtrlSetBkColor ($stylestree,0xD0FFD0)
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;系统菜单栏
Case $MENUXITONGSHUXING
_rundos("sysdm.cpl");打开系统属性
Case $MENUXIANSHISHUXING
_RunDOS("desk.cpl");打开显示属性
Case $MENUKONGZHIMIANBAN
Run("control.exe"); 打开控制面板
Case $MENUJINCHENGGUANLI
Run("taskmgr.exe");打开任务管理器
Case $MENUQIDONGXIANG
Run(@ProgramFilesDir&"\系统_辅助_MSCONFIG.EXE") ;运行MSCONFIG
Case $MENUJISHUANQI
Run("calc.exe");打开计算器
Case $MENUJISHIBEN
Run("notepad.exe");打开记事本
Case $MENUGUANJI
Shutdown(1+4);关机
Case $MENUGENGHUANBIZHI
_ChangeWallpaper(FileOpenDialog("","","图片文件(*.*)"),2);更换壁纸
Case $MENUBENJIXIXI
GUISetState(@SW_SHOW,$ltxx)
Case $MENUJIPINSHIKEBIAO
Run("JPSKB.exe");打开极品时刻表
Case $MENUZHUXIAO
Shutdown(0+4);注销
Case $MENURESET
Shutdown(2+4);重起
;优化菜单栏
Case $YHBANGONG
YHBANGONG($yhz) ;办公优化
Case $YHBIJIBEN
YHBIJIBEN($yhz) ;笔记本优化
Case $YHJIATING
YHJIATING($yhz) ;家庭优化
Case $YHLAOJI
YHLAOJI($yhz) ;老机优化
Case $YHTONGYONG
YHTONGYONG($yhz) ;通用优化
Case $YHWANGBA
YHWANGBA($yhz) ;网吧优化
Case $YHXIAOYUAN
YHXIAOYUAN($yhz) ;校园网优化
Case $YHYUANSHI
YHYUANSHI($yhz) ;恢复原始状态
Case $YHBEIFEN
YHBEIFEN($yhz) ;备份当前状态
;资料转移菜单栏
Case $ZHUANYIWENDANG
zhucebiaoyincang()
zhuanyilinshiyincang()
zhuanyiwendangxianshi()
GUICtrlSetState($zhiliaozhuanyizu1,$GUI_SHOW)
Case $ZHUANYILINSHI
zhucebiaoyincang()
zhuanyiwendangyincang()
zhuanyilinshixianshi()
GUICtrlSetState($zhiliaozhuanyizu1,$GUI_SHOW)
;注册表菜单栏
Case $ZHUCEBIAOBIANJIQI
Run(@ProgramFilesDir&"\系统_辅助_注册表编辑器.EXE") ;运行注册表编辑器
Case $ZHUCEBIAOSHEZHI
zhuanyiwendangyincang()
zhuanyilinshiyincang()
GUICtrlSetState($zhiliaozhuanyizu1,$GUI_HIDE)
GUICtrlSetState($maintree,$GUI_SHOW)
GUICtrlSetState($SHUXINGKUANG,$GUI_SHOW)
GUICtrlSetState($cancelbutton,$GUI_SHOW)
;说明菜单栏
Case $SHUOMINGMINGXIE
GUISetState(@SW_SHOW,$mxct) ;鸣谢窗体显示
Case $SHUOMINGGUANYU
GUISetState(@SW_SHOW,$guanyu) ;关于窗体显示
Case $SHUOMINGZHUYE
Run(@ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE
www.0xy.cn");ShellExecute("[url]http://www.0xy.cn[/url]") ;借助外部程序访问主页
;hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh
Case $Button1
GUICtrlSetState($Button1,$GUI_DISABLE)
If GUICtrlRead($Tab1Check1) <> $GUI_CHECKED And GUICtrlRead($Tab1Check2) <> $GUI_CHECKED And GUICtrlRead($Tab1Check3) <> $GUI_CHECKED And GUICtrlRead($Tab1Check4) <> $GUI_CHECKED And GUICtrlRead($Tab1Check5) <> $GUI_CHECKED And GUICtrlRead($Tab1Check6) <> $GUI_CHECKED Then
MsgBox(0,"提示","对不起,您没有选择任何项目！")
ElseIf GUICtrlRead($Tab1Check5) = $GUI_CHECKED And GUICtrlRead($Tab1Check6) = $GUI_CHECKED Then
_JU1()
ElseIf GUICtrlRead($Tab1Check5) = $GUI_CHECKED Then
_JU2()
ElseIf GUICtrlRead($Tab1Check6) = $GUI_CHECKED Then
_JU3()
Else
MsgBox(0,"提示","请选择'转移选项'中的一项或全部")
EndIf
GUICtrlSetState($Button1,$GUI_ENABLE)
Case $Button2
GUICtrlSetState($Button2,$GUI_DISABLE)
If GUICtrlRead($Tab2Check1) <> $GUI_CHECKED And GUICtrlRead($Tab2Check2) <> $GUI_CHECKED And GUICtrlRead($Tab2Check3) <> $GUI_CHECKED And GUICtrlRead($Tab2Check4) <> $GUI_CHECKED And GUICtrlRead($Tab2Check5) <> $GUI_CHECKED And GUICtrlRead($Tab2Check6) <> $GUI_CHECKED Then
MsgBox(0,"提示","对不起,您没有选择任何项目！")
ElseIf GUICtrlRead($Tab2Check5) = $GUI_CHECKED And GUICtrlRead($Tab2Check6) = $GUI_CHECKED Then
_Check1()
ElseIf GUICtrlRead($Tab2Check5) = $GUI_CHECKED Then
_Check2()
ElseIf GUICtrlRead($Tab2Check6) = $GUI_CHECKED Then
_Check3()
Else
MsgBox(0,"提示","请选择'转移选项'中的一项或全部")
EndIf
GUICtrlSetState($button2,$GUI_ENABLE)
;HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
Case $cancelbutton
ZHUCEBIAOSHEZHI()
EndSwitch
WEnd
;dddddddddddddddddddddddddddddddddddddddddddddddddd 定时关机程序函数 dddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
Func gui_click()
If $shutstart = 0 Then
$datetime = _DTP_GetSystemTime($hDTP)
$shuttime = $datetime[0]&"/"&$datetime[1]&"/"&$datetime[2]&" "&$datetime[3]&":"&$datetime[4]&":"&$datetime[5]
If _DateDiff('s',_NowCalc(),$shuttime)>1 Then ;设置时间要超过1秒
$shutstart = 1
GUICtrlSetState($action,$GUI_DISABLE)
GUICtrlSetData ($GUANJIBUTTON,"取消定时")
$shuttime = $datetime[0]&"/"&$datetime[1]&"/"&$datetime[2]&" "&$datetime[3]&":"&$datetime[4]&":"&$datetime[5]
Else
MsgBox(0,"Error","时间设置不正确!")
EndIf
Else
GUICtrlSetState($action,$GUI_ENABLE)
$shutstart = 0
$shuttime = 0
GUICtrlSetData ($GUANJIBUTTON,"启动定时")
ToolTip("")
EndIf
EndFunc
Func _time()
If $shutstart = 1 Then
If _DateDiff('s',_NowCalc(),$shuttime)>0 Then
$timediff = _DateDiff('s',_NowCalc(),$shuttime)
$hour = Int($timediff/3600)
$minute = Int(Mod($timediff,3600)/60)
$second = Mod(Mod($timediff,3600),60)
ToolTip("剩余["&$hour&":"&$minute&":"&$second&"]")
Else
$shutstart = 0
GUICtrlSetState($action,$GUI_ENABLE)
GUICtrlSetData ($GUANJIBUTTON,"启动定时")
_shutdown()
EndIf
EndIf
EndFunc
Func _shutdown()
Switch GUICtrlRead($action)
Case "关机"
Shutdown(1+4)
Case "重启"
Shutdown(2+4)
Case "注销"
Shutdown(0+4)
Case "待机"
Shutdown(32+4)
Case "休眠"
Shutdown(64+4)
Case Else
MsgBox(0,"Error","感谢使用FLY!")
EndSwitch
EndFunc
Func show_win()
;~ Opt("TrayIconHide",1)
GuiSetState(@SW_SHOW , $Form1)
EndFunc
;DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
Func zhuanyiwendangyincang() ;转移文档 隐藏
GUICtrlSetState($Input1, $GUI_HIDE)
GUICtrlSetState($Input2, $GUI_HIDE)
GUICtrlSetState($Input3, $GUI_HIDE)
GUICtrlSetState($Input4, $GUI_HIDE)
GUICtrlSetState($Tab1Check1, $GUI_HIDE)
GUICtrlSetState($Tab1Check2, $GUI_HIDE)
GUICtrlSetState($Tab1Check3, $GUI_HIDE)
GUICtrlSetState($Tab1Check4, $GUI_HIDE)
GUICtrlSetState($Button1, $GUI_HIDE)
GUICtrlSetState($tab1combo1, $GUI_HIDE)
GUICtrlSetState($Tab1Check5, $GUI_HIDE)
GUICtrlSetState($Tab1Check6, $GUI_HIDE)
GUICtrlSetState($zhuanyizu1, $GUI_HIDE)
EndFunc
Func zhuanyiwendangxianshi() ;转移文档 显示
GUICtrlSetState($Tab1Check1,$GUI_SHOW)
GUICtrlSetState($Input1,$GUI_SHOW)
GUICtrlSetState($Input2,$GUI_SHOW)
GUICtrlSetState($Input3,$GUI_SHOW)
GUICtrlSetState($Input4,$GUI_SHOW)
GUICtrlSetState($Input4, $GUI_SHOW)
GUICtrlSetState($Tab1Check1, $GUI_SHOW)
GUICtrlSetState($Tab1Check2, $GUI_SHOW)
GUICtrlSetState($Tab1Check3, $GUI_SHOW)
GUICtrlSetState($Tab1Check4, $GUI_SHOW)
GUICtrlSetState($Button1, $GUI_SHOW)
GUICtrlSetState($tab1combo1, $GUI_SHOW)
GUICtrlSetState($Tab1Check5, $GUI_SHOW)
GUICtrlSetState($Tab1Check6, $GUI_SHOW)
GUICtrlSetState($zhuanyizu1, $GUI_SHOW)
EndFunc
Func zhucebiaoyincang() ;注册表 隐藏
GUICtrlSetState($SHUXINGKUANG, $GUI_HIDE)
GUICtrlSetState($maintree,$GUI_HIDE)
GUICtrlSetState($SHUXINGKUANG,$GUI_HIDE)
GUIctrlSetState($effectstree,$GUI_HIDE)
GUIctrlSetState($effectsgroup,$GUI_HIDE)
GUIctrlSetState($xitongstree,$GUI_HIDE)
GUIctrlSetState($xitonggroup,$GUI_HIDE)
GUIctrlSetState($qitastree,$GUI_HIDE)
GUIctrlSetState($qitagroup,$GUI_HIDE)
GUIctrlSetState($stylestree,$GUI_HIDE)
GUIctrlSetState($stylesgroup,$GUI_HIDE)
GUIctrlSetState($cancelbutton,$GUI_HIDE)
EndFunc
Func zhuanyilinshixianshi() ;转移临时 显示
GUICtrlSetState($Tab2Check1 , $GUI_SHOW)
GUICtrlSetState($Tab2Check2, $GUI_SHOW)
GUIctrlSetState($Tab2Check3, $GUI_SHOW)
GUIctrlSetState($Tab2Check4, $GUI_SHOW)
GUIctrlSetState($Input5, $GUI_SHOW)
GUIctrlSetState($Input6, $GUI_SHOW)
GUIctrlSetState($Input7, $GUI_SHOW)
GUIctrlSetState($Input8, $GUI_SHOW)
GUIctrlSetState($Button2, $GUI_SHOW)
GUIctrlSetState($tab2combo1, $GUI_SHOW)
GUIctrlSetState($zhuanyi, $GUI_SHOW)
GUIctrlSetState($Tab2Check5, $GUI_SHOW)
GUIctrlSetState($Tab2Check6, $GUI_SHOW)
GUIctrlSetState($zhuanyizu2,$GUI_SHOW)
EndFunc
Func zhuanyilinshiyincang() ;转移临时 隐藏
GUICtrlSetState($Tab2Check1 ,$GUI_HIDE)
GUICtrlSetState($Tab2Check2,$GUI_HIDE)
GUIctrlSetState($Tab2Check3,$GUI_HIDE)
GUIctrlSetState($Tab2Check4,$GUI_HIDE)
GUIctrlSetState($Input5,$GUI_HIDE)
GUIctrlSetState($Input6,$GUI_HIDE)
GUIctrlSetState($Input7,$GUI_HIDE)
GUIctrlSetState($Input8,$GUI_HIDE)
GUIctrlSetState($Button2,$GUI_HIDE)
GUIctrlSetState($tab2combo1,$GUI_HIDE)
GUIctrlSetState($zhuanyi,$GUI_HIDE)
GUIctrlSetState($Tab2Check5,$GUI_HIDE)
GUIctrlSetState($Tab2Check6,$GUI_HIDE)
GUIctrlSetState($zhuanyizu2,$GUI_HIDE)
EndFunc
;gggggggggggggggggggg 资料转移 函数 gggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggg
Func _JU1()
$ke = GUICtrlRead($Tab1Check1) <> $GUI_CHECKED And GUICtrlRead($Tab1Check2) <> $GUI_CHECKED And GUICtrlRead($Tab1Check3) <> $GUI_CHECKED And GUICtrlRead($Tab1Check4) <> $GUI_CHECKED
Select
Case $ke = 1
MsgBox(0,"提示","请返回选择相关项目！")
Case $ke <> 1
$rd1 = GUICtrlRead($tab1combo1)
ToolTip("正在转移相关文件及删除原文件,请稍候...", @DesktopWidth - 300, @DesktopHeight - 80, "", 0, 1)
If GUICtrlRead($Tab1Check1) = $GUI_CHECKED And @MyDocumentsDir <> $rd1 & "\我的文档" Then
DirCopy(@MyDocumentsDir,$rd1 & "\我的文档",1)
DirMove($rd1 & "\我的文档\My Music",$rd1 & "\我的文档\我的音乐")
DirMove($rd1 & "\我的文档\My Pictures",$rd1 & "\我的文档\图片收藏")
If @MyDocumentsDir = @UserProfileDir & "\My Documents" Then
FileRecycle(@MyDocumentsDir & "\*.*")
EndIf ;考虑到如果当前我的文档路径不是原系统默认位置时，可能“我的文档”文件夹中有其它如“COOKIES”类的文件，删除会出错
RegWrite($re1,"Personal","REG_SZ", $rd1 & "\我的文档")
RegWrite($re2,"Personal","REG_SZ", $rd1 & "\我的文档")
RegWrite($re1,"My Music","REG_SZ", $rd1 & "\我的文档\我的音乐")
RegWrite($re2,"My Music","REG_SZ", $rd1 & "\我的文档\我的音乐")
RegWrite($re1,"My Pictures","REG_SZ", $rd1 & "\我的文档\图片收藏")
RegWrite($re2,"My Pictures","REG_SZ", $rd1 & "\我的文档\图片收藏")
EndIf
If GUICtrlRead($Tab1Check2) = $GUI_CHECKED And @FavoritesDir <> $rd1 & "\我的文档\收藏夹" Then
DirCopy(@FavoritesDir,$rd1 & "\我的文档\收藏夹",1)
FileRecycle(@FavoritesDir & "\*.*")
RegWrite($re1,"Favorites","REG_SZ", $rd1 & "\我的文档\收藏夹")
RegWrite($re2,"Favorites","REG_SZ", $rd1 & "\我的文档\收藏夹")
EndIf
If GUICtrlRead($Tab1Check3) = $GUI_CHECKED And $reg3 <> $rd1 & "\我的文档\Cookies" Then
DirCopy($reg3,$rd1 & "\我的文档\Cookies",1)
FileRecycle($reg3 & "\*.*")
RegWrite($re1,"Cookies","REG_SZ",$rd1 & "\我的文档\Cookies")
RegWrite($re2,"Cookies","REG_SZ",$rd1 & "\我的文档\Cookies")
EndIf
If GUICtrlRead($Tab1Check4) = $GUI_CHECKED And @DesktopDir <> $rd1 & "\我的文档\桌面" Then
DirCopy(@DesktopDir,$rd1 & "\我的文档\桌面",1)
FileRecycle(@DesktopDir & "\*.*")
RegWrite($re1,"Desktop","REG_SZ",$rd1 & "\我的文档\桌面")
RegWrite($re2,"Desktop","REG_SZ",$rd1 & "\我的文档\桌面")
EndIf
FileRecycleEmpty(@HomeDrive)
ToolTip("")
MsgBox(0,"完成","转移成功,注销或重启后生效！",2)
EndSelect
EndFunc
Func _JU2()
$ke = GUICtrlRead($Tab1Check1) <> $GUI_CHECKED And GUICtrlRead($Tab1Check2) <> $GUI_CHECKED And GUICtrlRead($Tab1Check3) <> $GUI_CHECKED And GUICtrlRead($Tab1Check4) <> $GUI_CHECKED
Select
Case $ke = 1
MsgBox(0,"提示","请返回选择相关项目！")
Case $ke <> 1
$rd1 = GUICtrlRead($tab1combo1)
If GUICtrlRead($Tab1Check1) = $GUI_CHECKED And @MyDocumentsDir <> $rd1 & "\我的文档" Then
DirCreate($rd1 & "\我的文档\我的音乐")
DirCreate($rd1 & "\我的文档\我的视频")
DirCreate($rd1 & "\我的文档\图片收藏")
RegWrite($re1,"Personal","REG_SZ", $rd1 & "\我的文档")
RegWrite($re2,"Personal","REG_SZ", $rd1 & "\我的文档")
RegWrite($re1,"My Music","REG_SZ", $rd1 & "\我的文档\我的音乐")
RegWrite($re2,"My Music","REG_SZ", $rd1 & "\我的文档\我的音乐")
RegWrite($re1,"My Pictures","REG_SZ", $rd1 & "\我的文档\图片收藏")
RegWrite($re2,"My Pictures","REG_SZ", $rd1 & "\我的文档\图片收藏")
EndIf
If GUICtrlRead($Tab1Check2) = $GUI_CHECKED And @FavoritesDir <> $rd1 & "\我的文档\收藏夹" Then
DirCreate($rd1 & "\我的文档\收藏夹")
RegWrite($re1,"Favorites","REG_SZ", $rd1 & "\我的文档\收藏夹")
RegWrite($re2,"Favorites","REG_SZ", $rd1 & "\我的文档\收藏夹")
EndIf
If GUICtrlRead($Tab1Check3) = $GUI_CHECKED And $reg3 <> $rd1 & "\我的文档\Cookies" Then
DirCreate($rd1 & "\我的文档\Cookies")
RegWrite($re1,"Cookies","REG_SZ",$rd1 & "\我的文档\Cookies")
RegWrite($re2,"Cookies","REG_SZ",$rd1 & "\我的文档\Cookies")
EndIf
If GUICtrlRead($Tab1Check4) = $GUI_CHECKED And @DesktopDir <> $rd1 & "\我的文档\桌面" Then
DirCreate($rd1 & "\我的文档\桌面")
RegWrite($re1,"Desktop","REG_SZ",$rd1 & "\我的文档\桌面")
RegWrite($re2,"Desktop","REG_SZ",$rd1 & "\我的文档\桌面")
EndIf
MsgBox(0,"完成","目录更改成功,注销或重启后生效！",2)
EndSelect
EndFunc
Func _JU3()
$ke = GUICtrlRead($Tab1Check1) <> $GUI_CHECKED And GUICtrlRead($Tab1Check2) <> $GUI_CHECKED And GUICtrlRead($Tab1Check3) <> $GUI_CHECKED And GUICtrlRead($Tab1Check4) <> $GUI_CHECKED
Select
Case $ke = 1
MsgBox(0,"提示","请返回选择相关项目！")
Case $ke <> 1
$rd1 = GUICtrlRead($tab1combo1)
If GUICtrlRead($Tab1Check1) = $GUI_CHECKED And @MyDocumentsDir <> $rd1 & "\我的文档" Then
DirCopy(@MyDocumentsDir,$rd1 & "\我的文档",1)
If @MyDocumentsDir = @UserProfileDir & "\My Documents" Then
EndIf
EndIf
If GUICtrlRead($Tab1Check2) = $GUI_CHECKED And @FavoritesDir <> $rd1 & "\我的文档\收藏夹" Then
DirCopy(@FavoritesDir,$rd1 & "\我的文档\收藏夹",1)
EndIf
If GUICtrlRead($Tab1Check3) = $GUI_CHECKED And $reg3 <> $rd1 & "\我的文档\Cookies" Then
DirCopy($reg3,$rd1 & "\我的文档\Cookies",1)
EndIf
If GUICtrlRead($Tab1Check4) = $GUI_CHECKED And @DesktopDir <> $rd1 & "\我的文档\桌面" Then
DirCopy(@DesktopDir,$rd1 & "\我的文档\桌面",1)
EndIf
MsgBox(0,"完成","数据已备份到目标路径！",2)
EndSelect
EndFunc
Func _Check1()
$ke = GUICtrlRead($Tab2Check1) <> $GUI_CHECKED And GUICtrlRead($Tab2Check2) <> $GUI_CHECKED And GUICtrlRead($Tab2Check3) <> $GUI_CHECKED And GUICtrlRead($Tab2Check4) <> $GUI_CHECKED
Select
Case $ke = 1
MsgBox(0,"提示","请返回选择相关项目！")
Case $ke <> 1
$rd1 = GUICtrlRead($tab2combo1)
ToolTip("正在清理相关文件,请稍候...", @DesktopWidth - 250, @DesktopHeight - 80, "", 0, 1)
If GUICtrlRead($Tab2Check1) = $GUI_CHECKED and @TempDir <> $rd1 & "\Temp\FileTemp" Then
DirCreate($rd1 & "\Temp\FileTemp")
DirCopy(@TempDir,$rd1 & "\Temp\FileTemp",1)
FileRecycle(@TempDir & "\*.*")
RegWrite("HKEY_CURRENT_USER\Environment","Temp","REG_SZ", $rd1 & "\Temp\FileTemp")
RegWrite("HKEY_CURRENT_USER\Environment","Tmp","REG_SZ", $rd1 & "\Temp\FileTemp")
EndIf
If GUICtrlRead($Tab2Check2) = $GUI_CHECKED And $reg6 <> $rd1 & "\Temp\IE Temp" Then
DirCreate($rd1 & "\Temp\IE Temp")
DirCopy($reg6,$rd1 & "\Temp\IE Temp",1)
FileRecycle($reg6 & "\*.*")
RegWrite($re1,"Cache","REG_SZ", $rd1 & "\Temp\IE Temp")
RegWrite($re2,"Cache","REG_SZ", $rd1 & "\Temp\IE Temp")
EndIf
If GUICtrlRead($Tab2Check3) = $GUI_CHECKED And $reg7 <> $rd1 & "\Temp\History" Then
DirCreate($rd1 & "\Temp\History")
DirCopy($reg7,$rd1 & "\Temp\History",1)
FileRecycle($reg7 & "\*.*")
RegWrite($re1, "History","REG_SZ",$rd1 & "\Temp\History")
RegWrite($re2,"History","REG_SZ",$rd1 & "\Temp\History")
EndIf
If GUICtrlRead($Tab2Check4) = $GUI_CHECKED and $reg8 <> $rd1 & "\Temp\Recent" Then
DirCreate($rd1 & "\Temp\Recent")
DirCopy($reg8,$rd1 & "\Temp\Recent",1)
FileRecycle($reg8 & "\*.*")
RegWrite($re1, "Recent","REG_SZ",$rd1 & "\Temp\Recent")
RegWrite($re2,"Recent","REG_SZ",$rd1 & "\Temp\Recent")
EndIf
FileRecycleEmpty(@HomeDrive)
ToolTip("")
MsgBox(0,"完成","目标文件转移完成，注销或重启后生效！",2)
EndSelect
EndFunc
Func _Check2()
$ke = GUICtrlRead($Tab2Check1) <> $GUI_CHECKED And GUICtrlRead($Tab2Check2) <> $GUI_CHECKED And GUICtrlRead($Tab2Check3) <> $GUI_CHECKED And GUICtrlRead($Tab2Check4) <> $GUI_CHECKED
Select
Case $ke = 1
MsgBox(0,"提示","请返回选择相关项目！")
Case $ke <> 1
ToolTip("正在转移相关文件,请稍候...", @DesktopWidth - 250, @DesktopHeight - 80, "", 0, 1)
$rd1 = GUICtrlRead($tab2combo1)
If GUICtrlRead($Tab2Check1) = $GUI_CHECKED and @TempDir <> $rd1 & "\Temp\FileTemp" Then
DirCreate($rd1 & "\Temp\FileTemp")
DirCopy(@TempDir,$rd1 & "\Temp\FileTemp",1)
RegWrite("HKEY_CURRENT_USER\Environment","Temp","REG_SZ", $rd1 & "\Temp\FileTemp")
RegWrite("HKEY_CURRENT_USER\Environment","Tmp","REG_SZ", $rd1 & "\Temp\FileTemp")
EndIf
If GUICtrlRead($Tab2Check2) = $GUI_CHECKED And $reg6 <> $rd1 & "\Temp\IE Temp" Then
DirCreate($rd1 & "\Temp\IE Temp")
DirCopy($reg6,$rd1 & "\Temp\IE Temp",1)
RegWrite($re1,"Cache","REG_SZ", $rd1 & "\Temp\IE Temp")
RegWrite($re2,"Cache","REG_SZ", $rd1 & "\Temp\IE Temp")
EndIf
If GUICtrlRead($Tab2Check3) = $GUI_CHECKED And $reg7 <> $rd1 & "\Temp\History" Then
DirCreate($rd1 & "\Temp\History")
DirCopy($reg7,$rd1 & "\Temp\History",1)
RegWrite($re1, "History","REG_SZ",$rd1 & "\Temp\History")
RegWrite($re2,"History","REG_SZ",$rd1 & "\Temp\History")
EndIf
If GUICtrlRead($Tab2Check4) = $GUI_CHECKED and $reg8 <> $rd1 & "\Temp\Recent" Then
DirCreate($rd1 & "\Temp\Recent")
DirCopy($reg8,$rd1 & "\Temp\Recent",1)
RegWrite($re1, "Recent","REG_SZ",$rd1 & "\Temp\Recent")
RegWrite($re2,"Recent","REG_SZ",$rd1 & "\Temp\Recent")
EndIf
ToolTip("")
MsgBox(0,"完成","目标文件转移完成，注销或重启后生效！",2)
EndSelect
EndFunc
Func _Check3()
$ke = GUICtrlRead($Tab2Check1) <> $GUI_CHECKED And GUICtrlRead($Tab2Check2) <> $GUI_CHECKED And GUICtrlRead($Tab2Check3) <> $GUI_CHECKED And GUICtrlRead($Tab2Check4) <> $GUI_CHECKED
Select
Case $ke = 1
MsgBox(0,"提示","请返回选择相关项目！")
Case $ke <> 1
$rd1 = GUICtrlRead($tab2combo1)
ToolTip("正在清理相关文件,请稍候...", @DesktopWidth - 250, @DesktopHeight - 80, "", 0, 1)
If GUICtrlRead($Tab2Check1) = $GUI_CHECKED Then
FileRecycle(@TempDir & "\*.*")
EndIf
If GUICtrlRead($Tab2Check2) = $GUI_CHECKED Then
FileRecycle($reg6 & "\*.*")
EndIf
If GUICtrlRead($Tab2Check3) = $GUI_CHECKED Then
FileRecycle($reg7 & "\*.*")
EndIf
If GUICtrlRead($Tab2Check4) = $GUI_CHECKED Then
FileRecycle($reg8 & "\*.*")
EndIf
FileRecycleEmpty(@HomeDrive)
ToolTip("")
MsgBox(0,"完成","目标文件清理完成！",2)
EndSelect
EndFunc
;GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG
;iiiiiiiiiiiiiiiiiiiiii 注册表 iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
Func ZHUCEBIAOSHEZHI()
If GUICtrlRead($effect1) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer","AlwaysUnloadDLL","REG_DWORD",1)
EndIf
If GUICtrlRead($effect2) = $GUI_CHECKED Then ;多余的桌面右键菜单,网上批处理改写
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "SFCDisable","REG_DWORD",0xffffff9d)
EndIf
If GUICtrlRead($effect3) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","HungAppTimeout","REG_SZ",200)
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","WaitToKillAppTimeout","REG_SZ",1000)
EndIf
If GUICtrlRead($effect4) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","MenuShowDelay","REG_SZ",0)
EndIf
If GUICtrlRead($effect5) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\RemoteComputer\NameSpace\{2227A280-3AEA-1069-A2DE-08002B30309D}","","REG_SZ","Printers")
EndIf
If GUICtrlRead($effect6) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters","EnablePrefetcher","REG_DWORD",1)
EndIf
If GUICtrlRead($effect7) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\DelegateFolders")
EndIf
If GUICtrlRead($effect8) = $GUI_CHECKED Then
RegWrite("HKEY_CLASSES_ROOT\lnkfile","","REG_SZ","快捷方式")
RegWrite("HKEY_CLASSES_ROOT\lnkfile","EditFlags","REG_DWORD",1)
RegWrite("HKEY_CLASSES_ROOT\lnkfile","NeverShowExt","REG_SZ","")
EndIf
If GUICtrlRead($effect9) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control","WaitToKillServiceTimeout","REG_SZ",500)
EndIf
If GUICtrlRead($effect0) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","AutoEndTasks","REG_DWORD",1)
EndIf
If GUICtrlRead($style1) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\AeDebug","Auto","REG_SZ",0)
EndIf
If GUICtrlRead($style2) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","","REG_SZ","")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","DisplayName","REG_SZ","我的电脑")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","Description","REG_SZ","您的计算机")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","Icon","REG_SZ","explorer.exe#0100")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","CurrentLevel","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","Flags","REG_DWORD",1)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1001","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1004","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1200","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1201","REG_DWORD",1)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1400","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1402","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1405","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1406","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1407","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1601","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1604","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1605","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1606","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1607","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1601","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1604","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1605","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1606","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1607","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1608","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1609","REG_DWORD",1)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1800","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1802","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1803","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1804","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1805","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1A00","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1A02","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1A03","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1A04","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1A06","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1A10","REG_DWORD",0)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1C00","REG_DWORD",0x00020000)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1E05","REG_DWORD",0x00030000)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0","1206","REG_DWORD",0)
EndIf
If GUICtrlRead($style3) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Dfrg\BootOptimizeFunction","Enable","REG_SZ","Y")
EndIf
If GUICtrlRead($style4) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","ClearRecentDocsOnEixt","REG_BINARY",0x01000000)
EndIf
If GUICtrlRead($style5) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop","MenuShowDelay","REG_SZ",0)
EndIf
If GUICtrlRead($style6) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem","ConfigFileAllocSize","REG_DWORD",0x000001f4)
EndIf
If GUICtrlRead($style7) = $GUI_CHECKED Then
RegWrite("HKEY_USERS\.DEFAULT\Control Panel\Desktop","AutoEndTasks","REG_SZ",1)
RegWrite("HKEY_USERS\.DEFAULT\Control Panel\Desktop","HungAppTimeout","REG_SZ",200)
RegWrite("HKEY_USERS\.DEFAULT\Control Panel\Desktop","WaitToKillAppTimeout","REG_SZ",1000)
EndIf
If GUICtrlRead($style8) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control","WaitToKillServiceTimeout","REG_SZ",1000)
EndIf
If GUICtrlRead($style9) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management","DisablePagingExecutive","REG_DWORD",1)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management","SecondLevelDataCache","REG_DWORD",0x00000100)
EndIf
If GUICtrlRead($style0) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management","DisablePagingExecutive","REG_DWORD",1)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management","SecondLevelDataCache","REG_DWORD",0x00000200)
EndIf
If GUICtrlRead($style01) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Vxd\BIOS","CPUPriority","REG_DWORD",1)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Vxd\BIOS","PCIConcur","REG_DWORD",1)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Vxd\BIOS","FastDRAM","REG_DWORD",1)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Vxd\BIOS","AGPConcur","REG_DWORD",1)
EndIf
If GUICtrlRead($style02) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{B83FC273-3522-4CC6-92EC-75CC86678DA4}","Compatibility Flags","REG_DWORD",0x00000400)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{9A578C98-3C2F-4630-890B-FC04196EF420}","Compatibility Flags","REG_DWORD",0x00000400)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{CF051549-EDE1-40F5-B440-BCD646CF2C25}","Compatibility Flags","REG_DWORD",0x00000400)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{4EDBBAEA-F509-49F6-94D1-ECEC4BE5B686}","Compatibility Flags","REG_DWORD",0x00000400)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{CF051549-EDE1-40F5-B440-BCD646CF2C25}","Compatibility Flags","REG_DWORD",0x00000400)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{BC207F7D-3E63-4ACA-99B5-FB5F8428200C}","Compatibility Flags","REG_DWORD",0x00000400)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{9BBC1154-218D-453C-97F6-A06582224D81}","Compatibility Flags","REG_DWORD",0x00000400)
EndIf
If GUICtrlRead($style03) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters","IPEnableRouter","REG_DWORD",1)
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters","EnableSecurityFilters","REG_DWORD",1)
EndIf
If GUICtrlRead($style04) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters","EnablePrefetcher","REG_DWORD",0x00000003)
EndIf
If GUICtrlRead($style05) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","MaxConnectionsPer1_0Server","REG_DWORD",0x00000008)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","MaxConnectionsPerServer","REG_DWORD",0x00000008)
EndIf
If GUICtrlRead($style06) = $GUI_CHECKED Then
RegWrite("HKEY_USERS\.DEFAULT\Control Panel\Desktop","FontSmoothing","REG_SZ",2)
RegWrite("HKEY_USERS\.DEFAULT\Control Panel\Desktop","FontSmoothingType","REG_DWORD",0x00000002)
EndIf
If GUICtrlRead($style07) = $GUI_CHECKED Then
RegWrite("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer","Link","REG_BINARY",0x00000000)
EndIf
If GUICtrlRead($style08) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer","NoLowDiskSpaceChecks","REG_DWORD",1)
EndIf
If GUICtrlRead($style09) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore","DisableSR","REG_DWORD",1)
EndIf
If GUICtrlRead($style00) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management","LargePageMinimum","REG_DWORD",0xffffffff)
EndIf
If GUICtrlRead($style11) = $GUI_CHECKED Then
RegWrite("HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\Copy To","","REG_SZ","{C2FBB630-2971-11D1-A18C-00C04FD75D13}")
RegWrite("HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\Move To","","REG_SZ","{C2FBB631-2971-11D1-A18c-00C04FD75D13}")
EndIf
If GUICtrlRead($xitong1) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar","BackBitmap","REG_SZ","输入盘符\\文件夹名称\\图片.bmp")
EndIf
If GUICtrlRead($xitong2) = $GUI_CHECKED Then
RegWrite("HKEY_USERS\.DEFAULT\Control Panel\Desktop","TileWallpaper","REG_SZ",1)
RegWrite("HKEY_USERS\.DEFAULT\Control Panel\Desktop","Wallpaper","REG_SZ","输入盘符\\文件夹名称\\图片.bmp")
EndIf
If GUICtrlRead($xitong4) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL","CheckedValue","REG_DWORD",0)
EndIf
If GUICtrlRead($xitong5) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","ShowStatusBar","REG_DWORD",1)
EndIf
If GUICtrlRead($xitong6) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoSetTaskbar","REG_DWORD",0)
EndIf
If GUICtrlRead($xitong7) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoFolderOptions","REG_DWORD",1)
EndIf
If GUICtrlRead($xitong8) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Internet Explorer\Infodelivery\Restrictions","NoJITSetup","REG_DWORD",1)
EndIf
If GUICtrlRead($xitong9) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoSetTaskbar","REG_DWORD",1)
EndIf
If GUICtrlRead($xitong0) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System","DisableRegistryTools","REG_DWORD",1)
EndIf
If GUICtrlRead($xitong01) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SecurePipeServers\winreg","RemoteRegAccess","REG_DWORD",1)
EndIf
If GUICtrlRead($xitong02) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3","1803","REG_DWORD",0)
EndIf
If GUICtrlRead($xitong03) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoFileMenu","REG_DWORD",1)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoShellSearchButton","REG_DWORD",1)
EndIf
If GUICtrlRead($xitong04) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoSMMyDocs","REG_DWORD",1)
EndIf
If GUICtrlRead($xitong05) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3","1803","REG_DWORD",0x00000003)
EndIf
If GUICtrlRead($xitong06) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL","CheckedValue","REG_DWORD",1)
EndIf
If GUICtrlRead($xitong07) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\JetCar\JetCar\General","MaxParallelNum","REG_DWORD",0x00000030)
RegWrite("HKEY_CURRENT_USER\Software\JetCar\JetCar\General","MaxSimJobs","REG_DWORD",0x00000100)
EndIf
If GUICtrlRead($qita1) = $GUI_CHECKED Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL","CheckedValue","REG_DWORD",1)
EndIf
If GUICtrlRead($qita2) = $GUI_CHECKED Then
RegWrite("Hrcrosoft\Windows\CurrentVersion\Policies\Explorer","Nodesktop","REG_DWORD",1)
EndIf
If GUICtrlRead($qita3) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoNetHood","REG_DWORD",1)
EndIf
If GUICtrlRead($qita4) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoInternetIcon","REG_DWORD",1)
EndIf
If GUICtrlRead($qita5) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Expolrer","NoDriveTypeAutoRun","REG_BINARY",0x91000000)
EndIf
If GUICtrlRead($qita6) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Expolrer","NoDriveTypeAutoRun","REG_BINARY",0xb5000000)
EndIf
If GUICtrlRead($qita7) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoWinKeys","REG_DWORD",1)
EndIf
If GUICtrlRead($qita8) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer","NoSaveSettings","REG_DWORD",1)
EndIf
MsgBox(0,"已经执行","执行完毕 重起生效")
EndFunc
;IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
;kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk
Func info()
$objWMIService = objget("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
$colBios = $objWMIService.ExecQuery("Select * from Win32_BIOS")
$colBoard = $objWMIService.ExecQuery("SELECT * FROM Win32_BaseBoard")
$colSettings = $objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
$colMemory = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
$colCPU = $objWMIService.ExecQuery("Select * from CIM_Processor")
$colVideoinfo = $objWMIService.ExecQuery("Select * from Win32_VideoController")
$colSound = $objWMIService.ExecQuery("Select * from Win32_SoundDevice")
$colMouse = $objWMIService.ExecQuery("Select * from Win32_PointingDevice")
$colMonitor = $objWMIService.ExecQuery("Select * from Win32_DesktopMonitor")
$colNIC = $objWMIservice.ExecQuery("Select * from Win32_NetworkAdapter WHERE Netconnectionstatus = 2")
For $object in $colBios
GUICtrlSetData($bios,"["&StringMid($object.Caption,1)&"]")
Next
For $object in $colBoard
GUICtrlSetData($board,"["&$object.Product&"]")
Next
For $object in $colCPU
GUICtrlSetData($cpu,"["& StringStripWS($object.Name,1)&"]")
Next
For $object in $colVideoinfo
GUICtrlSetData($display,"["& StringStripWS($object.Description ,1)&"]")
Next
For $object in $colSound
GUICtrlSetData($sound,"["& StringStripWS($object.Description ,1)&"]")
Next
For $object in $colNIC
GUICtrlSetData($network,"[" &StringStripWS($object.name ,2)&"]")
Next
For $objOperatingSystem in $colSettings
GUICtrlSetData($os,"["&$objOperatingSystem.Caption & " Build " & $objOperatingSystem.BuildNumber & " Sp " & $objOperatingSystem.ServicePackMajorVersion & "." & $objOperatingSystem.ServicePackMinorVersion &"]")
Next
for $object in $colMemory
GUICtrlSetData($mem,"["&String(Int(Number($object.TotalPhysicalMemory) / (1024 * 1024))) & " MB"&"]")
Next
EndFunc
;KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK 代码结束 KKKKKKKKKKKKKKKKKKKKKKKKKKK
希望各位朋友帮忙想想怎么设计一个新颖的界面 让飞扬更具自己的特色 我的想象力是不够了 向大家求助了
