Thunder5.9.16.1306自动安装脚本

yuye32

我在这里要感谢论坛里的131738写出了一个对我们菜鸟很实用的脚本编译工具，我没学过语言也不懂得什么，在这里发一下贴只是看论坛里没有最新的迅雷脚本，也是一点私心想赚点钱，如果有什么问题希望大家能谅解！

Run ( @ScriptDir & "\Thunder5.9.16.1306.exe" )
WinWaitActive( "迅雷5 : 用户使用协议", "欢迎使用 迅雷5 安装向导" )
ControlClick( "迅雷5 : 用户使用协议", "","Button2" )
WinWaitActive( "迅雷5: 安装选项", "选择附加任务" )
$WinPosArray = WinGetPos ( "迅雷5: 安装选项" )
$TNewCheckListBoxArray = ControlGetPos ( "迅雷5: 安装选项", "", "SysTreeView321" )
$Width = $WinPosArray[0] + $TNewCheckListBoxArray[0]
$Height =  $WinPosArray[1] + $TNewCheckListBoxArray[1]
MouseClick ( "left", $Width + 13 , $Height + 46 )
MouseClick ( "left", $Width + 13 , $Height + 59 )
MouseClick ( "left", $Width + 13 , $Height + 72 )
MouseClick ( "left", $Width + 13 , $Height + 85 )
MouseClick ( "left", $Width + 13 , $Height + 98 )
WinWaitActive( "迅雷5: 安装选项", "" )
ControlClick( "迅雷5: 安装选项", "","Button2" )
WinWaitActive( "安装：迅雷5", "百度工具栏  轻松搜索，拦截广告！" )
ControlClick( "安装：迅雷5", "","Button4" )
ControlClick( "安装：迅雷5", "","Button2" )

ProcessWait ( "iexplore.exe" )
ProcessClose ( "iexplore.exe" )
$PID = ProcessExists ( "iexplore.exe" )
If $PID Then ProcessClose ( $PID )
WinWaitActive( "迅雷5: 安装完成", "迅雷5安装程序已完成安装" )
ControlClick( "迅雷5: 安装完成", "","Button5" )
ControlClick( "迅雷5: 安装完成", "","Button6" )
ControlClick( "迅雷5: 安装完成", "","Button7" )
ControlClick( "迅雷5: 安装完成", "","Button2" )

ProcessWait ( "iexplore.exe" )
ProcessClose ( "iexplore.exe" )
$PID = ProcessExists ( "iexplore.exe" )
If $PID Then ProcessClose ( $PID )

SplashTextOn ( "自动安装", "已完成 自动运行 的自动安装. ", 250, 70, -1, -1, 0, "", 14 )
Sleep ( 2000 )

SplashTextOn ( "自动安装", "已完成 自动运行 的自动安装. ", 250, 70, -1, -1, 0, "", 14 )
Sleep ( 2000 )

SplashTextOn ( "自动安装", "已完成 自动运行 的自动安装. ", 250, 70, -1, -1, 0, "", 14 )
Sleep ( 2000 )

liven

好东西就要顶 不用钱的更要顶

sjwb826

好东西就要顶 不用钱的更要顶

evtop

呵呵，不要钱的哦

basketballkun

终于找到我想要的了。。还不要钱，狂顶啊

shmilds

好东西就要顶 像这些数是坐标？", 250, 70, -1, -1, 0, "", 14

shmilds

学习了。。。。

basketballkun

正需要.下載試試

kunersc

学习学习，谢谢诶