星驰周的软件安装脚本辅助工具(自动安装脚本生成器)5.3更新
本帖最后由 星驰周 于 2010-11-9 16:26 编辑2.0更新说明：
1、增加了(鼠标中键切换)模拟鼠标点击的功能
2、增加了F4暂停功能
3、修改了一些相关细节
3.0更新说明：
1、修正了录制QQ安装时的失灵问题
2、完善了获取窗口文本的代码
3、WinWaitActive改为WinWait+WinActivate
4.0更新说明：
1、修正了当前窗口文本被前一窗口文本包含导致的死循环（flash插件安装时的问题）
2、应坛友们的建议，增加了延迟功能，终于可以“慢”下来了
3、集成Aut2exe，不安装au3也能制作自动安装程序了
4、增加输出“疯狂装”脚本功能，“疯狂装”即《软件疯狂装》2.6.2版
5.0更新说明：
1、完善了部分代码（提高脚本成功率）
2、增加了配置文件（增强脚本实用性）
3、增加了改进型au3模板（改进型的脚本，和以前的不太一样啊， 同时需要注册可用）
5.2更新说明：
完善和优化了一些代码
5.3更新说明：
1、更改编译内核文件到临时文件夹下，看着更清爽
2、增加了在编译时自动添加原程序图标(需注册可用)
3、在文件菜单上添加了手动编译脚本
4、在菜单上添加了支持作者(支持就送注册码)
以下是3.0版所生成的一个千千静听安装脚本：;说明：本脚本由 《星驰周的软件安装脚本辅助工具》于2010年06月14日所生成，请尊重作者劳动,保留版权信息
Opt("MouseCoordMode", 0);相对激活窗口的坐标
Opt("WinTitleMatchMode", 2);标题的任意子串皆可匹配
Dim $rjlj = IniRead("soft.ini", "设置", "软件路径", @WorkingDir)
Dim $ruanj = $rjlj & "\ttpesetup.exe"
HotKeySet("{F11}", "tuichu");退出
Dim $bt = "千千静听 5.6正式版 安装程序 Unicode"
Dim $txt1 = "最近更新："
Dim $txt2 = "本软件附赠其它软件的"
Dim $txt3 = "Tree1"
Dim $txt4 = "目标文件夹"
Dim $txt5 = "提示: 如果不想创建"
Dim $txt6 = "完成 千千静听 5."
Dim $dizhi = "http://ttplayer.qianqian.com/download/ttpsetup_563.exe"
Dim $daxiao = InetGetSize($dizhi)
If Not FileExists($rjlj) Then DirCreate($rjlj);如果找不到软件路径就创建
If Not FileExists($ruanj) Then;如果检查不到安装脚本即下载
;开始下载
Local $hDownload = InetGet($dizhi, $ruanj, 1, 1)
$startime = TimerInit()
While Not InetGetInfo($hDownload, 2)
Sleep(100)
$bfb = Round(InetGetInfo($hDownload, 0) * 100 / $daxiao, 0)
ToolTip("下载地址：" & $dizhi & @CRLF & "保存路径：" & $ruanj, 0, @DesktopHeight - 150, "正在下载：" & "(" & $bfb & "%) " & Round(InetGetInfo($hDownload, 0) / 1048576, 2) & " m/" & Round($daxiao / 1048576, 2) & " m " & Round(TimerDiff($startime) / 1000, 0) & "秒")
WEnd
InetClose($hDownload) ; 关闭句柄,释放资源.
ToolTip("")
ProgressOff()
EndIf
Run($ruanj);运行软件
TrayTip(" 温馨提示", "自动安装期间为避免操作失败，请勿动键盘鼠标" & @CRLF & @CRLF & "长时间无反应可按 F11 退出", 15, 4)
Sleep(1000)
WinWait($bt, $txt1)
WinActivate($bt, $txt1)
ControlClick($bt, $txt1, "Button2")
WinWait($bt, $txt2)
WinActivate($bt, $txt2)
ControlClick($bt, $txt2, "Button2")
WinWait($bt, $txt3)
WinActivate($bt, $txt3)
ControlClick($bt, $txt3, "Button2")
WinWait($bt, $txt4)
WinActivate($bt, $txt4)
$var=ControlGetFocus($bt , $txt4)
ControlSetText($bt, $txt4, $var ,"d:\Program Files\TTPlayer")
ControlClick($bt, $txt4, "Button4")
WinWait($bt, $txt5)
WinActivate($bt, $txt5)
ControlClick($bt, $txt5, "Button1")
ControlClick($bt, $txt5, "Button7")
ControlClick($bt, $txt5, "Button4")
ControlClick($bt, $txt5, "Button11")
WinWait($bt, $txt6)
WinActivate($bt, $txt6)
ControlClick($bt, $txt6, "Button1")
ControlClick($bt, $txt6, "Button3")
ControlClick($bt, $txt6, "Button4")
ControlClick($bt, $txt6, "Button17")
TrayTip(" 恭喜！", "已经安装完成，谢谢使用", 5, 4)
Sleep(2000)
;强行退出函数
Func tuichu()
Exit
EndFunc
5.2下载地址：
http://u.115.com/file/f612a11ef9
5.3下载地址：
http://u.115.com/file/f6ba0bf362
需要注册码的请在软件菜单“支持作者”中联系 周星驰，我的偶像。 下了
不知道怎么用！！ 本帖最后由 5209520 于 2010-5-30 08:53 编辑
下了看看 好用不~~ 下载了的确好用 不知道能否加点延时，安装太快了。还有希望支持对打开控制面板DOS命令和RUNDLL32 比如这个RUNDLL32 netshell.dll,StartNCW 下来看看先～～ 试试咯。谢谢楼主。 那么贵啊 钱啊不容易挣啊 怎么都是要钱的啊 想看却发现自己好穷啊 这年头找个合适的软件不容易啊 不好意思啦~试试看这个软件到底好用不好用吧 我刚付了钱怎么东西都没下啊 下载下来了但是不会用 新手，跟着学习学习 试试看这个软件到底好用不好用.