请老大们帮帮小弟

shuijing5544

编写一个“迅雷(Thunder) 5.8.7.639(支持快车旋风专用链接)烈火去广告安装修正版”自动安装
选择组件  完整安装
附件任务  屏蔽偷偷上传
主要是要这2个功能

[ 本帖最后由 shuijing5544 于 2009-2-23 13:42 编辑 ]

sxi3265

ProcessClose("Thunder5.exe")
Run("Thunder5.8.7.639-Special-1209.exe")
WinWait("安装 - 迅雷","欢迎使用 迅雷 安装向导")
WinWaitActive("安装 - 迅雷","欢迎使用 迅雷 安装向导")
ControlClick("安装 - 迅雷","欢迎使用 迅雷 安装向导","TNewButton1")
WinWait("安装 - 迅雷","许可协议")
WinWaitActive("安装 - 迅雷","许可协议")
ControlCommand("安装 - 迅雷","许可协议","TNewRadioButton1","Check")
ControlClick("安装 - 迅雷","许可协议","TNewButton2")
WinWait("安装 - 迅雷","信息")
WinWaitActive("安装 - 迅雷","信息")
ControlClick("安装 - 迅雷","信息","TNewButton2")
WinWait("安装 - 迅雷","选择目标位置")
WinWaitActive("安装 - 迅雷","选择目标位置")
ControlSetText("安装 - 迅雷","选择目标位置","TEdit1","C:\Program Files\Thunder Network\Thunder")
ControlClick("安装 - 迅雷","选择目标位置","TNewButton3")
If WinWait("文件夹存在","已经存在。您一定要安装到这个文件夹中吗？",1) Then ControlClick("文件夹存在","已经存在。您一定要安装到这个文件夹中吗？","Button1")
WinWait("安装 - 迅雷","选择组件")
WinWaitActive("安装 - 迅雷","选择组件")
ControlClick("安装 - 迅雷","选择组件","TNewComboBox1")
Send("{down}{enter}")
ControlClick("安装 - 迅雷","选择组件","TNewButton3")
WinWait("安装 - 迅雷","选择开始菜单文件夹")
WinWaitActive("安装 - 迅雷","选择开始菜单文件夹")
ControlSetText("安装 - 迅雷","选择开始菜单文件夹","TNewEdit1","迅雷")
ControlClick("安装 - 迅雷","选择开始菜单文件夹","TNewButton4")
WinWait("安装 - 迅雷","选择附加任务")
WinWaitActive("安装 - 迅雷","选择附加任务")
ControlClick("安装 - 迅雷","选择附加任务","TNewCheckListBox1","left",1,12,70)
ControlClick("安装 - 迅雷","选择附加任务","TNewButton4")
WinWait("安装 - 迅雷","准备安装")
WinWaitActive("安装 - 迅雷","准备安装")
ControlClick("安装 - 迅雷","准备安装","TNewButton4")
WinWait("安装 - 迅雷","迅雷 安装向导完成")
WinWaitActive("安装 - 迅雷","迅雷 安装向导完成")
ControlClick("安装 - 迅雷","迅雷 安装向导完成","TNewCheckListBox1","left",1,9,9)
ControlClick("安装 - 迅雷","迅雷 安装向导完成","TNewButton4")