迅雷7源码
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/blog/item/1fba5efe49b0720fa8d31185.html 还行啊~试试 我还以为是迅雷7的源码呢~~~吓倒 我还以为是迅雷7的源码呢~~~吓倒
chenronting 发表于 2010-12-26 17:17 http://www.autoitx.com/images/common/back.gif
是啊。。还以为迅雷给反编译了啊。。
页:
[1]