131738 发表于 2009-8-21 15:55:08

工具软件自动安装---脚本生成器测试版

本帖最后由 131738 于 2010-8-21 00:54 编辑

工具软件自动安装脚本生成器--- Script_Builder_090821

2010-08-21 自动脚本生成器已更新:http://www.autoitx.com/thread-17773-1-1.html

       生成的脚本带路径选择功能! 但不是强制修改安装路径!

      如要保持软件默认安装路径,则在正式运行安装脚本程序时,对第一个路径询问对话框直接回车确认即可

       "标题与文本"按钮: 鼠标移到安装界面中欲提取的窗口文本处, 点击鼠标中键完成操作!



      "控件点击"按钮:鼠标移到应提取控件, 点击鼠标中键完成操作!



下图是配置文件的截图:



        可选快捷键;因为带皮肤界面,编辑框修改有点不方便,故设置可" 开 / 关 "皮肤,都在配置文件中自由设置

        鼠标中键(或键盘左键)提取标题,文本,控件,路径框等信息
        重要注意点: 本工具大部分按钮在点击后,会启动一个 DLL 文件,直到该按钮功能完成后自动关闭这个 DLL 文件,因此,如果偶然点错按钮,你也必需完成该按钮全部操作,然后在本工具的编辑框中删除错误按钮生成的脚本,否则,本工具无法正常运行!!!,且工具窗口可能无法正常关闭

        1 . 启动 Script_Builder.exe (脚本生成器),首先弹出询问框:



        这个询问框内容不难懂吧! 快捷方式的关键字母也是自动提取的!

        2 . "目标文件"按钮: 选定目标文件后,相继弹出两个询问框:



        注意:虽然支持exe文件图标, 但最后转换时调出的编译程序会报无法转换图标的警告,编译

失败! 此时可以手动编译转换出的脚本!(目前我不知怎么解决?盼有人指点!!!) ico图标没有这个问题



        脚本信息包括:脚本版本; 脚本功能等.可以完全键盘操作,每填写一个数据后回车到下一输入

对话框, 如不想填写,点击上图<<否>>. "目标文件"按钮生成脚本如下图:



        并同时启动软件安装界面, 打开 AutoIt 窗口信息工具,
                必须确保信息工具始终显示"综合"标签页!!!



        3 . "路径修改"按钮:软件安装进行到路径选择对话框时,就应该点击这个按钮了,点击这个按钮后,弹出操作提示框:



        4 ."注    册" 按钮: 注册对话框操作:

        一. 首先在注册对话框中手动输入全部注册码

        二. 点击 《标题与文本》按钮, 点击中键

        三. 单击 《注册》按钮,移动鼠标到注册码控件中键捕捉

        四. 重复第三步到捕捉完全部注册码控件

        五 . 点击《点击控件》按钮提取<<下一步>>控件完成操作!

        5 . "一控多选"按钮: 常有人提问: 怎样选择一个大包围控件中的选项? 有人在这里不处理,

安装完成后,在脚本尾部添加删除语句删除这些选项!"一控多选"按钮专为解决这个问题而设!但决不是

先装后删除!软件安装进行到这个对话框时, 首先点击"标题与文本"按钮,或键盘( F1 )键,在这个对话框

的大包围控件内单击鼠标中键, 再回到 Script_Builder.exe (脚本生成器) 中单击"一控多选"按钮,弹出

询问框:



        提取完成后, 自动弹出带有调试源码的au3脚本编辑器, 要正确点击选项的小方格,目前我

只能使用手工调试的方法,有无自动的目前我不知道!操作方法在这个调试脚本中有注释说明!

          特别提示:在本工具编辑框中填写完正确的坐标值后,必须将编辑插入点移到当前脚本的下

一空行!!!!

        6 . "附加/退出"按钮:脚本完成退出生成器;或需要继续安装诸如汉化;破解。。。等相关

文件,就用这个按钮



        7 . "关闭进程"按钮、"关闭窗口"按钮,处理安装软件完成后的网页;或如 WinRAR 的最

后跳出的窗口!

        8 . "转换文件"按钮: Script_Builder.exe (脚本生成器) 中编辑框文本转换为.au3文

件, 比喻安装名为 ABC.exe 的软件,即转换为 ABC.au3 脚本文件,可执行文件编译为

ABC_zd.exe ,均与目标文件 ABC.exe 在同一目录中.

        9 . "等待窗口": 软件正式启动安装到出现安装结束,视软件大小, 这个时间会不同,等待安装

结束界面后,点击"等待窗口"按钮,中键操作提取窗口标题,文本.

        10 . 关于"复制"按钮:见安装 迅雷_5.9.5.990 + 移去广告补丁 的脚本!

        就这语言能力!慢慢看吧!不准备再修改这个东西了,除非有提出 BUG,或提出想添加功能(仅

限自动安装),而我能解决的,再考虑修改!

131738 发表于 2009-8-21 16:03:19

本帖最后由 131738 于 2010-8-21 00:52 编辑

2010-08-21 自动脚本生成器已更新:http://www.autoitx.com/thread-17773-1-1.html

由这个工具生成的迅雷_5.9.5.990 安装脚本:#requireadmin
#Region AutoIt3Wrapper 预编译参数(常用参数)
#AutoIt3Wrapper_icon=Thunder_5.9.5.990.exe
#AutoIt3Wrapper_outfile=Thunder_5.9.5.990_zd.exe
#AutoIt3Wrapper_Res_Description=迅雷下载 AU3自动安装
#AutoIt3Wrapper_Res_Description=迅雷下载 版本:5.9.5.990
#AutoIt3Wrapper_Res_LegalCopyright = 版权所有 (C) 2009_131738
#AutoIt3Wrapper_Res_Comment=脚本生成于:2009年 08月 21日
#EndRegion AutoIt3Wrapper 预编译参数设置完成
#comments-start __________________
Au3 版本:3.3.1.0
脚本作者:131738
        Email:
        QQ/TM:
脚本版本:迅雷安装1.0
脚本功能: 自动安装: 迅雷下载
#comments-end 脚本开始____

For $i = 0 to 1
        $ChoiceInstallPath = InputBox ( "路径选择", "开始 xx 自动安装" & _
        @CR & @CR & "      请输入安装路径盘:","C", " M1" )
        If @error = 1And $i = 0 Then
                MsgBox ( 64, "错误", "点错按钮啦!" & _
                @CR & @CR & "还有 1 次机会, 小心操作哦!" )
                ContinueLoop
        ElseIf @error = 1 And $i = 1 Then
                MsgBox ( 64,"警告", "操作失误! 3秒后脚本结束!",3 )
                Exit
        EndIf
        $A = FileExists($ChoiceInstallPath & ":")

        If $A = 0 And $i = 0 Then
                MsgBox( 64, "警告!", "所选驱动器不存在! 重新操作!" & _
                @CR & @CR & "还有 1 次机会, 小心操作哦!")
                ContinueLoop
        ElseIf $A = 0 And $i = 1 Then
                MsgBox ( 64,"警告","操作失误! 3秒后脚本结束!",3 )
                Exit
        EndIf
        If @error = 0And $A = 1 Then ExitLoop
Next
If Not FileExists ( $ChoiceInstallPath & ":\Program Files" ) _
        Then DirCreate ( $ChoiceInstallPath & ":\Program Files" )
Run ( @ScriptDir & "\Thunder_5.9.5.990.exe" )
; 以上为"目标文件"按钮生成的语句, 同时启动迅雷安装, AutoIt 窗口信息工具
;==============================================================

WinWaitActive( "迅雷5: 用户使用协议", "欢迎使用 迅雷5 安装向导" )        ;"标题与文本"按钮
ControlClick( "迅雷5: 用户使用协议", "","Button2" )        ;"控件点击"按钮

WinWaitActive( "迅雷5: 安装选项", "选择附加任务" )        ;"标题与文本"按钮
; 以下为点击“一控多”按钮,填写所需多选项数后,鼠标移到大包围控件,单击鼠标中键
$WinPosArray = WinGetPos ( "迅雷5: 安装选项" )
$TNewCheckListBoxArray = ControlGetPos ( "迅雷5: 安装选项", "", "SysTreeView321" )
$Width = $WinPosArray + $TNewCheckListBoxArray
$Height =$WinPosArray + $TNewCheckListBoxArray
MouseClick ( "left", $Width + 15, $Height + 55)        ;所有数字在弹出的调试脚本中手动调试
MouseClick ( "left", $Width + 15, $Height + 71)        ; 然后将数字结果写入本工具编辑框 + 号后面!
MouseClick ( "left", $Width + 15, $Height + 86)
MouseClick ( "left", $Width + 15, $Height + 100)
MouseClick ( "left", $Width + 15, $Height + 117)
;================================================================================================
; 以下为点击“路径修改”按钮
WinWaitActive ( "迅雷5: 安装选项", "< 上一步(&P)" )        ;这一句是“路径修改”按钮自带的,不需要另外选择按钮!
$DefaultInstallPath = ControlGetText ( "迅雷5: 安装选项", "","Edit1" )
$DriveName = StringLeft ( $DefaultInstallPath, 1 )
If $DriveName = $ChoiceInstallPath Then
        ControlClick ( "迅雷5: 安装选项", "", "Button2" )
ElseIf $DriveName <> $ChoiceInstallPath Then
        $DriveReplace = StringReplace ( $DefaultInstallPath, 1, $ChoiceInstallPath )
        ControlSetText ( "迅雷5: 安装选项", "", "Edit1", $DriveReplace )
        $SoothInstallPath = ControlGetText ( "迅雷5: 安装选项", "", "Edit1" )
EndIf
ControlClick ( "迅雷5: 安装选项", "", "Button2" )        ;这一句是“路径修改”按钮自带的,不需要另外选择按钮!
;======================================================================================================

WinWaitActive( "安装:迅雷5", "百度工具栏轻松搜索,拦截广告!" )        ;"标题与文本"按钮
ControlClick( "安装:迅雷5", "","Button4" )        ;"控件点击"按钮
ControlClick( "安装:迅雷5", "","Button2" )        ;"控件点击"按钮

;下两句为“等待窗口”按钮,点击该按钮后,鼠标移到窗口文本处,单击鼠标中键
WinWait ( "迅雷5: 安装完成","迅雷5安装程序已完成安装" )
If Not WinActivate ( "迅雷5: 安装完成","" ) Then WinActivate ( "迅雷5: 安装完成","" )
;======================================================================================

WinWaitActive( "迅雷5: 安装完成", "迅雷5安装程序已完成安装" )        ;"标题与文本"按钮
ControlClick( "迅雷5: 安装完成", "","Button5" )        ;"控件点击"按钮
ControlClick( "迅雷5: 安装完成", "","Button6" )        ;"控件点击"按钮
ControlClick( "迅雷5: 安装完成", "","Button2" )        ;"控件点击"按钮
;=================================================================================

;以下为点击“关闭进程”按钮,这个按钮只是点击一下就行了,没有任何其它操作!
ProcessWait ( "iexplore.exe" )
ProcessClose ( "iexplore.exe" )
$PID = ProcessExists ( "iexplore.exe" )
If $PID Then ProcessClose ( $PID )
;===========================================
;                        复制去广告补丁
; 以下为点击“复制按钮,点击后会相继弹出文件选择、文件夹选择两个对话框,
; 分别选择要复制的文件、要复制到的文件夹。
FileCopy ( "ThunderUI.xml","E:\Program Files\Thunder Network\Thunder\Program",1 )
FileCopy ( "Streamer.xml","E:\Program Files\Thunder Network\Thunder\Components\Streamer",1 )
;===========================================================================================

; 以下点击“转换文件”按钮
SplashTextOn ( "自动安装", "已完成 1.0 的自动安装. ", 250, 70, -1, -1, 0, "", 14 )
Sleep ( 2000 )



看着有点乱!复制到你的脚本编辑器中好看些!

附工具下载

4825**** Hidden Message *****

laotongbao 发表于 2009-8-22 17:23:45

好用吗,期待中

ht512 发表于 2009-8-23 17:07:36

貌似不错哦。希望真的好用。谢谢楼主分享

ht512 发表于 2009-8-23 17:08:06

貌似不错哦。希望真的好用

shaneluik 发表于 2009-8-23 22:41:42

谢谢LZ分享了!

baxiantong 发表于 2009-8-24 08:46:36

下载了两次,都是有问题的,再次下载,看怎么样?

xoyohome 发表于 2009-8-25 00:24:13

这玩意儿好用啊~~~太感谢楼主了~~~

xoyohome 发表于 2009-8-25 00:38:30

钱不够...灌一下...楼主原谅我...

xiaoqiang 发表于 2009-8-25 08:11:34

钱不够了,期待。。。。

xiaoqiang 发表于 2009-8-25 08:51:49

怎么还是下不了啊。。。。。

fkegadgad 发表于 2009-8-27 20:15:02

谢谢LZ分享了!

fkegadgad 发表于 2009-8-27 20:26:41

怎么还是下不了啊。。。。。

wo521lishu 发表于 2009-8-28 23:35:44

不是2块吗?怎么扣5块

mvplg 发表于 2009-8-31 15:34:35

看看先。看看先。看看先。
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 工具软件自动安装---脚本生成器测试版