星驰周 发表于 2010-5-28 14:26:05

星驰周的软件安装脚本辅助工具(自动安装脚本生成器)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

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

lpxx 发表于 2010-5-28 23:43:46

周星驰,我的偶像。

dunniu 发表于 2010-5-30 01:34:38

下了
不知道怎么用!!

5209520 发表于 2010-5-30 08:33:46

本帖最后由 5209520 于 2010-5-30 08:53 编辑

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

Joo 发表于 2010-6-2 13:10:48

下来看看先~~

xx44t10 发表于 2010-6-2 13:39:56

试试咯。谢谢楼主。

qj395202409 发表于 2010-6-2 13:49:06

那么贵啊   钱啊不容易挣啊

lengyi1597 发表于 2010-6-2 15:29:55

怎么都是要钱的啊

lengyi1597 发表于 2010-6-2 15:30:12

想看却发现自己好穷啊

lengyi1597 发表于 2010-6-2 15:30:39

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

lengyi1597 发表于 2010-6-2 15:31:26

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

lengyi1597 发表于 2010-6-2 15:34:00

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

lengyi1597 发表于 2010-6-2 15:55:24

下载下来了但是不会用

yejier1983 发表于 2010-6-2 20:46:51

新手,跟着学习学习

sdlw999 发表于 2010-6-3 11:38:08

试试看这个软件到底好用不好用.
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 星驰周的软件安装脚本辅助工具(自动安装脚本生成器)5.3更新