迅雷7源码

183712314

Opt("MouseCoordMode", 0)
Opt("WinTitleMatchMode", 2)
Dim $Title1 = "迅雷7安装程序"
Dim $Title2="迅雷7"
Dim $Text1= "软件许可协议"
Dim $Text2=""
Dim $Text3="C:\Program Files\Thunder Network\Thunder"

If Not FileExists(@ScriptDir&"\迅雷7.exe") Then
TrayTip("错误！","安装文件未找到!"&@CRLF&"5秒后自动退出", 5, 1)
Sleep(3000)
Exit
EndIf
Run(@ScriptDir&"\迅雷7.exe")
TrayTip("提示", "最好关闭安全软件,以免影响自动安装效果"&@CRLF&"自动安装期间,请勿动键盘鼠标", 5, 1)
Sleep(3000)

WinWaitActive($Title1, $Text1)
ControlClick($Title1, $Text1, "Button1")

WinWaitActive($Title1, $Text3)
ControlClick($Title1, $Text3, "Button7")
Sleep(500)
ControlClick($Title2, $Text2, "Button2")
WinWaitActive($Title1, $Text3)
ControlClick($Title1, $Text2, "Button1")
Sleep(500)
ControlClick($Title2, $Text2, "Button2")

WinWaitActive($Title1, $Text2)
While 1
        If ControlGetHandle($Title1,'','Button4') Then ExitLoop
        Sleep(200)
WEnd
ControlClick($Title1, $Text2, "Button4")
ControlClick($Title1, $Text2, "Button5")
ControlClick($Title1, $Text2, "Button1")

TrayTip("提示", "已经安装完成", 3, 1)
Sleep(3000)
Exit

借用学习了论坛某位高手的代码....
本人博客有打包文件下载地址:
http://hi.baidu.com/183712314/bl ... b0720fa8d31185.html

jxfa0086768

还行啊~试试

chenronting

我还以为是迅雷7的源码呢~~~吓倒

d5121226

我还以为是迅雷7的源码呢~~~吓倒
chenronting 发表于 2010-12-26 17:17

    是啊。。还以为迅雷给反编译了啊。。