yuye32 发表于 2010-3-13 12:25:54

Thunder5.9.16.1306自动安装脚本

我在这里要感谢论坛里的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 + $TNewCheckListBoxArray
$Height =$WinPosArray + $TNewCheckListBoxArray
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 发表于 2010-4-10 21:58:34

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

sjwb826 发表于 2010-4-12 10:48:42

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

evtop 发表于 2010-4-12 15:53:48

呵呵，不要钱的哦

basketballkun 发表于 2010-4-17 17:38:38

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

shmilds 发表于 2010-4-24 16:07:10

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

shmilds 发表于 2010-4-24 17:37:11

学习了。。。。

basketballkun 发表于 2010-8-8 12:49:26

正需要.下載試試

kunersc 发表于 2010-9-23 11:24:18

学习学习，谢谢诶
页: [1]
查看完整版本: Thunder5.9.16.1306自动安装脚本