复制内容到剪贴板
代码:
$bt="QQ2007 Beta4 安装"
$bt1="欢迎使用 QQ2007 Beta4 安装向导"
$bt3="选定安装位置和组件"
$bt2="完成 QQ2007 Beta4 安装向导"
Run("QQ2007.exe")
WinWait($bt,$bt1)
If Not WinActivate($bt,$bt1) Then WinActivate($bt,$bt1)
WinWaitActive($bt,$bt1)
ControlClick($bt,$bt1,"Button2")
WinWait($bt,"选定使用环境")
If Not WinActivate($bt,"选定使用环境") Then WinActivate($bt,"选定使用环境")
WinWaitActive($bt,"选定使用环境")
ControlClick($bt,"选定使用环境","Button4")
ControlClick($bt,"选定使用环境","Button2")
WinWait($bt,$bt3)
If Not WinActivate($bt,$bt3) Then WinActivate($bt,$bt3)
WinWaitActive($bt,$bt3)
ControlClick($bt,$bt3,"Button4")
ControlClick($bt,$bt3,"Button2")
WinWait($bt,"正在安装")
If Not WinActivate($bt,"正在安装") then WinActivate($bt,"正在安装")
WinWaitActive($bt,"正在安装")
WinWait($bt,$bt2)
If Not WinActivate($bt,$bt2) Then WinActivate($bt,$bt2)
WinWaitActive($bt,$bt2)
ControlClick($bt,$bt2,"Button4")
ControlClick($bt,$bt2,"Button5")
ControlClick($bt,$bt2,"Button6")
ControlClick($bt,$bt2,"Button2")
Run("Rundll32.exe C:\WINDOWS\system32\scrax.dll,Uninstall")
WinWaitActive("卸载中文搜搜")
send("{up}{up}{TAB}")
send("{enter}")
WinWaitActive("中文搜搜")
send("{enter}")
Exit
