找回密码  加入

AUTOIT CN

搜索
查看: 134865|回复: 501

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

[复制链接]
发表于 2010-5-28 14:26:05 | 显示全部楼层 |阅读模式
本帖最后由 星驰周 于 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版所生成的一个千千静听安装脚本:
  1. ;说明:本脚本由 《星驰周的软件安装脚本辅助工具》于2010年06月14日所生成,请尊重作者劳动,保留版权信息
  2. Opt("MouseCoordMode", 0);相对激活窗口的坐标
  3. Opt("WinTitleMatchMode", 2);标题的任意子串皆可匹配
  4. Dim $rjlj = IniRead("soft.ini", "设置", "软件路径", @WorkingDir)
  5. Dim $ruanj = $rjlj & "\ttpesetup.exe"
  6. HotKeySet("{F11}", "tuichu");退出
  7. Dim $bt = "千千静听 5.6正式版 安装程序 Unicode"
  8. Dim $txt1 = "最近更新:"
  9. Dim $txt2 = "本软件附赠其它软件的"
  10. Dim $txt3 = "Tree1"
  11. Dim $txt4 = "目标文件夹"
  12. Dim $txt5 = "提示: 如果不想创建"
  13. Dim $txt6 = "完成 千千静听 5."
  14. Dim $dizhi = "http://ttplayer.qianqian.com/download/ttpsetup_563.exe"
  15. Dim $daxiao = InetGetSize($dizhi)
  16. If Not FileExists($rjlj) Then DirCreate($rjlj);如果找不到软件路径就创建
  17. If Not FileExists($ruanj) Then;如果检查不到安装脚本即下载
  18. ;开始下载
  19. Local $hDownload = InetGet($dizhi, $ruanj, 1, 1)
  20. $startime = TimerInit()
  21. While Not InetGetInfo($hDownload, 2)
  22. Sleep(100)
  23. $bfb = Round(InetGetInfo($hDownload, 0) * 100 / $daxiao, 0)
  24. 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) & "秒")
  25. WEnd
  26. InetClose($hDownload) ; 关闭句柄,释放资源.
  27. ToolTip("")
  28. ProgressOff()
  29. EndIf
  30. Run($ruanj);运行软件
  31. TrayTip(" 温馨提示", "自动安装期间为避免操作失败,请勿动键盘鼠标" & @CRLF & @CRLF & "长时间无反应可按    F11 退出", 15, 4)
  32. Sleep(1000)
  33. WinWait($bt, $txt1)
  34. WinActivate($bt, $txt1)
  35. ControlClick($bt, $txt1, "Button2")
  36. WinWait($bt, $txt2)
  37. WinActivate($bt, $txt2)
  38. ControlClick($bt, $txt2, "Button2")
  39. WinWait($bt, $txt3)
  40. WinActivate($bt, $txt3)
  41. ControlClick($bt, $txt3, "Button2")
  42. WinWait($bt, $txt4)
  43. WinActivate($bt, $txt4)
  44. $var=ControlGetFocus($bt , $txt4)
  45. ControlSetText($bt, $txt4, $var ,"d:\Program Files\TTPlayer")
  46. ControlClick($bt, $txt4, "Button4")
  47. WinWait($bt, $txt5)
  48. WinActivate($bt, $txt5)
  49. ControlClick($bt, $txt5, "Button1")
  50. ControlClick($bt, $txt5, "Button7")
  51. ControlClick($bt, $txt5, "Button4")
  52. ControlClick($bt, $txt5, "Button11")
  53. WinWait($bt, $txt6)
  54. WinActivate($bt, $txt6)
  55. ControlClick($bt, $txt6, "Button1")
  56. ControlClick($bt, $txt6, "Button3")
  57. ControlClick($bt, $txt6, "Button4")
  58. ControlClick($bt, $txt6, "Button17")
  59. TrayTip(" 恭喜!", "已经安装完成,谢谢使用", 5, 4)
  60. Sleep(2000)
  61. ;强行退出函数
  62. Func tuichu()
  63. Exit
  64. EndFunc
复制代码
5.2下载地址:
http://u.115.com/file/f612a11ef9


5.3下载地址:
http://u.115.com/file/f6ba0bf362


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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?加入

x

评分

3

查看全部评分

发表于 2010-5-28 23:43:46 | 显示全部楼层
周星驰,我的偶像。
发表于 2010-5-30 01:34:38 | 显示全部楼层
下了
不知道怎么用!!
发表于 2010-5-30 08:33:46 | 显示全部楼层
本帖最后由 5209520 于 2010-5-30 08:53 编辑

下了看看 好用不~~ 下载了的确好用 不知道能否加点延时,安装太快了。还有希望支持对打开控制面板DOS命令和RUNDLL32 比如这个RUNDLL32 netshell.dll,StartNCW
发表于 2010-6-2 13:10:48 | 显示全部楼层
下来看看先~~
发表于 2010-6-2 13:39:56 | 显示全部楼层
试试咯。谢谢楼主。
发表于 2010-6-2 13:49:06 | 显示全部楼层
那么贵啊   钱啊  不容易挣啊
发表于 2010-6-2 15:29:55 | 显示全部楼层
怎么都是要钱的啊
发表于 2010-6-2 15:30:12 | 显示全部楼层
想看却发现自己好穷啊
发表于 2010-6-2 15:30:39 | 显示全部楼层
这年头找个合适的软件不容易啊
发表于 2010-6-2 15:31:26 | 显示全部楼层
不好意思啦~试试看这个软件到底好用不好用吧
发表于 2010-6-2 15:34:00 | 显示全部楼层
我刚付了钱怎么东西都没下啊
发表于 2010-6-2 15:55:24 | 显示全部楼层
下载下来了  但是不会用
发表于 2010-6-2 20:46:51 | 显示全部楼层
新手,跟着学习学习
发表于 2010-6-3 11:38:08 | 显示全部楼层
试试看这个软件到底好用不好用.
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|小黑屋|手机版|AUTOIT CN ( 鲁ICP备15028933号-3 )谷歌 百度

GMT+8, 2018-11-15 02:24 , Processed in 0.095339 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表