我在这里要感谢论坛里的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 ) |
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2010-3-13 12:25:54