迅雷5自动安装，这几天学的

绿色风

#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[5],$l,$av
$h[0] = "安装迅雷看看播放器"
$h[1] = "将迅雷设置为默认下载工具"
$h[2] = "为迅雷添加桌面快捷方式"
$h[3] = "迅雷5默认开机自动启动"
$h[4] = "为迅雷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


;不足之处，大家请指导一下。

131738

用到树视图函数。。。有新意。。。支持。。。

绿色风

回过头来看，头都是晕的。哎。还要努力。。。。

jiaxinfu

这个一有新意的自动安装，支持了

binghc

楼主可以不用h[0],h[1]....的，这样写太累，可以用stringsplit
每次点击再来一个自定义函数，这样就轻松多了，代码也更精简

dnvplj

很好，学习学习。

anzhilin

3天前接触到au3     现在该学自动安装了  借鉴一下。。。

ROUSTAR31

楼主的代码不错的说。先收藏下你的

绿色风

楼主可以不用h[0],h[1]....的，这样写太累，可以用stringsplit
每次点击再来一个自定义函数，这样就轻松多 ...
binghc 发表于 2010-7-10 00:53

    呵呵，谢谢你的见意。

那不是在刚学嘛。

wsfda

我觉得au3什么时候可以实现让软件自动安装，且不显示就更牛了，支持新创意，，，

myang

很好，学习学习

yinbinly

高手写的就是不一样