|
发表于 2012-6-29 02:03:10
|
显示全部楼层
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.1
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Notrayicon
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("tangyi-Tool", 165, 165, -1, -1)
GUISetBkColor(0x808080)
$Button1 = GUICtrlCreateButton("Xp去除桌面小箭头", 16, 8, 137, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0xC0C0C0)
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("Win7清除任务栏多余图标", 16, 40, 137, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0xC0C0C0)
GUICtrlSetCursor (-1, 0)
$Button3 = GUICtrlCreateButton("解决安装SQL挂起问题", 16, 72, 137, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0xC0C0C0)
GUICtrlSetCursor (-1, 0)
$Button4 = GUICtrlCreateButton("解决office错误报告", 16, 104, 137, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0xC0C0C0)
GUICtrlSetCursor (-1, 0)
$Label1 = GUICtrlCreateLabel("如有疑问请联系QQ:78398983", 8, 144, 155, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
RegDelete("HKEY_CLASSES_ROOT\lnkfile","IsShortcut")
ProcessClose("explorer.exe")
run("explorer.exe",@SW_HIDE)
Sleep("2000")
MsgBox(0,"提示","恭喜您除去成功")
Case $Button2
RegWrite("HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify","IconStreams","REG_binary","0")
RegWrite("HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify","PastIconsStream","REG_binary","0")
ProcessClose("explorer.exe")
run("explorer.exe",@SW_HIDE)
Sleep("2000")
MsgBox(0,"提示","恭喜您清除成功")
Case $Button3
RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager","PendingFileRenameOperations")
MsgBox(0,"提示","恭喜您修复成功")
Case $Button4
DirRemove ("C:\Documents and Settings\Administrator\Application Data\Microsoft\Templates" )
MsgBox(0,"提示","恭喜您修复成功")
EndSwitch
WEnd |
|