迅雷5自动安装，这几天学的
本帖最后由 绿色风 于 2011-10-31 03:08 编辑#include <GuiTreeView.au3>
Run('Thunder5.9.21.1442.exe')
$del = WinWaitActive ("迅雷5 : 用户使用协议","")
ControlClick ($del,"","Button2")
WinWaitActive ($del,"上一步")
ControlSend ($del,"","Button6","{tab}")
ControlSetText ($del,"","","c:\迅雷")
;SysTreeView321 的操作
Dim $h,$l,$av
$h = "安装迅雷看看播放器"
$h = "将迅雷设置为默认下载工具"
$h = "为迅雷添加桌面快捷方式"
$h = "迅雷5默认开机自动启动"
$h = "为迅雷5添加快速启动栏图标"
For $l = 0 To 4 Step 1
$av =$h[$l]
$del1 = ControlGetHandle ($del,"","SysTreeView321")
$del2 = _GUICtrlTreeView_FindItem ($del1,$av)
_GUICtrlTreeView_setChecked ($del1,$del2,False)
Next
WinWaitActive ("迅雷5: 安装选项","")
ControlClick ("迅雷5: 安装选项","","Button2")
If WinWaitActive ("迅雷5","确定") Then
ControlClick ("迅雷5","确定","Button1")
EndIf
$bd = WinWaitActive ("安装：迅雷5","安装百度工具栏")
$bd1 = ControlGetHandle ($bd,"安装百度工具栏","Button4")
ControlCommand ($bd1,"安装百度工具栏","","uncheck")
ControlClick ("安装：迅雷5","安装百度工具栏","Button2")
$qd = WinWaitActive("迅雷5: 安装完成","启动迅雷5")
$qd1 = ControlGetHandle ($qd,"启动迅雷5","Button5")
ControlCommand ($qd1,"启动迅雷5","","uncheck")
$qd1 = ControlGetHandle ($qd,"启动迅雷5","Button6")
ControlCommand ($qd1,"将迅雷看看设为首页","","uncheck")
ControlClick ($qd,"","Button2")
If WinWaitActive ("祝贺您成功安装迅雷 - Microsoft Interne","") Then
ControlSend ("祝贺您成功安装迅雷 - Microsoft Interne","","","!{f4}")
EndIf
;不足之处，大家请指导一下。
用到树视图函数。。。有新意。。。支持。。。 回过头来看，头都是晕的。哎。还要努力。。。。 这个一有新意的自动安装，支持了 楼主可以不用h,h....的，这样写太累，可以用stringsplit
每次点击再来一个自定义函数，这样就轻松多了，代码也更精简 很好，学习学习。 3天前接触到au3 现在该学自动安装了借鉴一下。。。 楼主的代码不错的说。先收藏下你的 楼主可以不用h,h....的，这样写太累，可以用stringsplit
每次点击再来一个自定义函数，这样就轻松多 ...
binghc 发表于 2010-7-10 00:53 http://www.autoitx.com/images/common/back.gif
呵呵，谢谢你的见意。
那不是在刚学嘛。{:face (197):} 我觉得au3什么时候可以实现让软件自动安装，且不显示就更牛了，支持新创意，，， 很好，学习学习 高手写的就是不一样{:face (258):}
页:
[1]