星驰周的软件安装脚本辅助工具(自动安装脚本生成器)5.3更新

星驰周

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

需要注册码的请在软件菜单“支持作者”中联系

lpxx

周星驰，我的偶像。

dunniu

下了
不知道怎么用！！

5209520

下了看看 好用不~~ 下载了的确好用 不知道能否加点延时，安装太快了。还有希望支持对打开控制面板DOS命令和RUNDLL32 比如这个RUNDLL32 netshell.dll,StartNCW

Joo

下来看看先～～

xx44t10

试试咯。谢谢楼主。

qj395202409

那么贵啊   钱啊  不容易挣啊

lengyi1597

怎么都是要钱的啊

lengyi1597

想看却发现自己好穷啊

lengyi1597

这年头找个合适的软件不容易啊

lengyi1597

不好意思啦~试试看这个软件到底好用不好用吧

lengyi1597

我刚付了钱怎么东西都没下啊

lengyi1597

下载下来了  但是不会用

yejier1983

新手，跟着学习学习

sdlw999

试试看这个软件到底好用不好用.