返回列表 回复 发帖
似水年华

D8站长

Rank: 9Rank: 9Rank: 9
1#
打印
tT
发表于 2007-4-22 06:05 PM | 只看该作者

AU3-集成自动安装光盘

光盘, 自动

  2. ; Script Start - Add your code below here
  3. If $CmdLine[0] = 0 Then
  4. msgbox(0,"软件自动安装脚本By jzqdz","请指定正确的脚本命令参数以运行本程序"&@CRLF&"请勿对本脚本反编译破解并据为己有"&@CRLF&""&@CRLF&"=做人要厚道=")
  5. exit
  6. endif
  7. If $CmdLine[1]="/7ZIP" Then
  8. FileChangeDir(@ScriptDir&"\7ZIP")
  9. Runwait("7z4.exe /S")
  10. exit
  11. endif
  12. If $CmdLine[1]="/WinRAR" Then
  13. FileChangeDir(@ScriptDir&"\WinRAR")
  14. Runwait("winrar3.51.exe /S")
  15. exit
  16. endif
  17. If $CmdLine[1]="/Thunder" Then
  18. traytip("正在自动安装迅雷 5.0.6.98，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  19. ;表示在托盘区弹出提示气球，内容如上
  20. FileChangeDir(@ScriptDir&"\Thunder")
  21. Run("Thunder.exe")
  22. WinWaitActive("迅雷 5.0.6.98 安装","欢迎使用")
  23. send("!n")
  24. WinWaitActive("迅雷 5.0.6.98 安装","许可证协议")
  25. Send("!i")
  26. WinWaitActive("迅雷 5.0.6.98 安装","选择组件")
  27. Send("!n")
  28. WinWaitActive("迅雷 5.0.6.98 安装","选择安装位置")
  29. Send("!i")
  30. WinWaitActive("迅雷 5.0.6.98 安装","正在完成")
  31. send("{SPACE}{TAB}{SPACE}{TAB}")
  32. Send("!f")
  33. exit
  34. endif
  35. If $CmdLine[1]="/wnskqd" then
  36. traytip("正在自动安装Realtek AC'97 Audio Setup ，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  37. ;表示在托盘区弹出提示气球，内容如上
  38. FileChangeDir(@ScriptDir&"\wnskqd")
  39. Run('alc.exe')
  40. WinWait("Realtek AC'97 Audio Setup (4.96)","InstallShield(r) Wiz")
  41. If Not WinActive("Realtek AC'97 Audio Setup (4.96)","InstallShield(r) Wiz") Then WinActivate("Realtek AC'97 Audio Setup (4.96)","InstallShield(r) Wiz")
  42. WinWaitActive("Realtek AC'97 Audio Setup (4.96)","InstallShield(r) Wiz")
  43. Send("!n")
  44. Sleep(1000)
  45. WinWait("Realtek AC'97 Audio Setup (4.96)","是，立即重新启动计算")
  46. If Not WinActive("Realtek AC'97 Audio Setup (4.96)","是，立即重新启动计算") Then WinActivate("Realtek AC'97 Audio Setup (4.96)","是，立即重新启动计算")
  47. WinWaitActive("Realtek AC'97 Audio Setup (4.96)","是，立即重新启动计算")
  48. Send("{DOWN}")
  49. Send("{enter}")
  50. exit
  51. endif
  52. If $CmdLine[1]="/tbxzf" then
  53. traytip("正在自动安装图标小作坊2.09，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  54. ;表示在托盘区弹出提示气球，内容如上
  55. FileChangeDir(@ScriptDir&"\tbxzf")
  56. Run('图标小作坊 V2.09 免费版.exe',"", @SW_HIDE)
  57. WinWait("图标小作坊 2.09","下一步")
  58. If Not WinActive("图标小作坊 2.09","下一步") Then WinActivate("图标小作坊 2.09","下一步")
  59. WinWaitActive("图标小作坊 2.09","下一步")
  60. Send("{TAB}{TAB}{ENTER}")
  61. WinWait("图标小作坊 2.09","磁盘开销")
  62. If Not WinActive("图标小作坊 2.09","磁盘开销") Then WinActivate("图标小作坊 2.09","磁盘开销")
  63. WinWaitActive("图标小作坊 2.09","磁盘开销")
  64. Send("{TAB}")
  65. Send("{TAB}")
  66. ControlSetText("图标小作坊 2.09","磁盘开销","TRzEdit1","D:\Program Files\图标小作坊 2.09")
  67. sleep(1000)
  68. Send("{TAB}")
  69. Send("{TAB}")
  70. Send("{TAB}")
  71. Send("{TAB}")
  72. sleep(1000)
  73. Send("{ENTER}")
  74. Send("{ENTER}")
  75. WinWaitActive("图标小作坊 2.09","关闭")
  76. Send("{ENTER}")
  77. exit
  78. endif
  79. If $CmdLine[1]="/MYQUDONG" then
  80. traytip("正在自动安装驱动精灵 1.52 免费版，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  81. ;表示在托盘区弹出提示气球，内容如上
  82. FileChangeDir(@ScriptDir&"\MYQUDONG")
  83. run("驱动精灵.EXE")
  84. WinWaitActive("驱动精灵 1.52 免费版","下一步(&N) >")
  85. send("!n")
  86. WinWaitActive("驱动精灵 1.52 免费版","驱动精灵1.52 免费版 许可协议")
  87. send("!y")
  88. WinWaitActive("驱动精灵 1.52 免费版","安装程序将安装“驱动精灵 1.52 免费版”到下边的目录中。")
  89. send("!n")
  90. WinWaitActive("驱动精灵 1.52 免费版","安装3721上网助手")
  91. send("{TAB}")
  92. send("{TAB}")
  93. send("{TAB}")
  94. send("{SPACE}")
  95. send("!n")
  96. WinWaitActive("驱动精灵 1.52 免费版","开始安装")
  97. send("!n")
  98. WinWaitActive("驱动精灵 1.52 免费版","“驱动精灵 1.52 免费版”已经成功地安装。")
  99. send("!f")
  100. exit
  101. endif
  102. If $CmdLine[1]="/MEDIA" then
  103. traytip("正在自动安装Macromedia Flash Player 7，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  104. ;表示在托盘区弹出提示气球，内容如上
  105. FileChangeDir(@ScriptDir&"\MEDIA")
  106. run ("FLASHPLA.EXE")
  107. WinWaitActive("Macromedia Flash Player 7","Would you like to install the Flash")
  108. send("{enter}")
  109. WinWaitActive("Macromedia Flash Player 7","Installation complete")
  110. send("{enter}")
  111. exit
  112. endif
  113. If $CmdLine[1]="/EASY" Then
  114. traytip("正在自动安装EASYREALMEDIAPRODUCERV1.93中文版，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  115. ;表示在托盘区弹出提示气球，内容如上
  116. FileChangeDir(@ScriptDir&"\EASY")
  117. Run('EASYREALMEDIAPRODUCERV1.93中文版.EXE')
  118. WinWait("Installer Language","Please select a lang")
  119. If Not WinActive("Installer Language","Please select a lang") Then WinActivate("Installer Language","Please select a lang")
  120. WinWaitActive("Installer Language","Please select a lang")
  121. send("{enter}")
  122. Sleep(1000)
  123. WinWait("Easy RealMedia Tools [Producer V1.93 && Editor V1.73] 安装 ","Easy RealMedia Tools")
  124. If Not WinActive("Easy RealMedia Tools [Producer V1.93 && Editor V1.73] 安装 ","Easy RealMedia Tools") Then WinActivate("Easy RealMedia Tools [Producer V1.93 && Editor V1.73] 安装 ","Easy RealMedia Tools")
  125. WinWaitActive("Easy RealMedia Tools [Producer V1.93 && Editor V1.73] 安装 ","Easy RealMedia Tools")
  126. Send("{ALTDOWN}i{ALTUP}{ALTDOWN}n{ALTUP}")
  127. Sleep(1000)
  128. ControlSetText("Easy RealMedia Tools [Producer V1.93 && Editor V1.73] 安装","Easy RealMedia Tools","Edit1","d:\Program Files\Easy RealMedia Tools")
  129. send("!i")
  130. WinWait("AC3Filter Setup: Installation Directory","")
  131. If Not WinActive("AC3Filter Setup: Installation Directory","") Then WinActivate("AC3Filter Setup: Installation Directory","")
  132. WinWaitActive("AC3Filter Setup: Installation Directory","")
  133. ControlSetText("AC3Filter Setup: Installation Directory","","Edit1","d:\Program Files\AC3Filter")
  134. Send("{ENTER}")
  135. WinWait("AC3Filter Setup: Completed","Completed")
  136. Send("{ENTER}")
  137. WinWait("AviSynth 2.5.5 ","")
  138. If Not WinActive("AviSynth 2.5.5 ","") Then WinActivate("AviSynth 2.5.5 ","")
  139. WinWaitActive("AviSynth 2.5.5 ","")
  140. Send("{ALTDOWN}a{ALTUP}{ALTDOWN}n{ALTUP}")
  141. Sleep(1000)
  142. ControlSetText("AviSynth 2.5.5 ","","Edit1","d:\Program Files\AviSynth 2.5")
  143. send("!i")
  144. WinWait("AviSynth 2.5.5 ","Completing the AviSy")
  145. If Not WinActive("AviSynth 2.5.5 ","Completing the AviSy") Then WinActivate("AviSynth 2.5.5 ","Completing the AviSy")
  146. WinWaitActive("AviSynth 2.5.5 ","Completing the AviSy")
  147. Send("{ALTDOWN}f{ALTUP}")
  148. WinWait("Easy RealMedia Tools [Producer V1.93 && Editor V1.73] 安装 ","Easy RealMedia Tools")
  149. If Not WinActive("Easy RealMedia Tools [Producer V1.93 && Editor V1.73] 安装 ","Easy RealMedia Tools") Then WinActivate("Easy RealMedia Tools [Producer V1.93 && Editor V1.73] 安装 ","Easy RealMedia Tools")
  150. WinWaitActive("Easy RealMedia Tools [Producer V1.93 && Editor V1.73] 安装 ","Easy RealMedia Tools")
  151. Send("{ALTDOWN}l{ALTUP}")
  152. exit
  153. endif
  154. If $CmdLine[1]="/PIC\HYPERSNAP" then
  155. traytip("正在自动安装HyperSnap-DX，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  156. ;表示在托盘区弹出提示气球，内容如上
  157. FileChangeDir(@ScriptDir&"\PIC\HYPERSNAP")
  158. Run("HYPERSNAP-DX_5.63.00_SC.EXE")
  159. Do
  160.   Sleep(100)
  161. Until ControlClick("安装 - HyperSnap-DX","欢迎使用","TButton1")=1
  162. Do
  163.   Sleep(100)
  164. Until ControlClick("安装 - HyperSnap-DX","许可协议","TRadioButton1")=1
  165. Do
  166.   Sleep(100)
  167. Until ControlClick("安装 - HyperSnap-DX","许可协议","TButton2")=1
  168. Do
  169.   Sleep(100)
  170. Until ControlClick("安装 - HyperSnap-DX","选择目标位置","TButton3")=1
  171. Do
  172.   Sleep(100)
  173. Until ControlClick("安装 - HyperSnap-DX","选择组件","TButton3")=1
  174. Do
  175.   Sleep(100)
  176. Until ControlClick("安装 - HyperSnap-DX","选择开始菜单文件夹","TButton4")=1
  177. Do
  178.   Sleep(100)
  179. Until ControlClick("安装 - HyperSnap-DX","选择附加任务","TButton4")=1
  180. Do
  181.   Sleep(100)
  182. Until ControlClick("安装 - HyperSnap-DX","准备安装","TButton4")=1
  183. WinWait ("安装 - HyperSnap-DX","安装程序已在您的电脑中安装了")
  184. Send("{SPACE}{DOWN}{SPACE}")
  185. Do
  186.   Sleep(100)
  187. Until ControlClick("安装 - HyperSnap-DX","完成(&F)","TButton4")=1
  188. exit
  189. endif
  190. If $CmdLine[1]="/PIC\流水瀑布屏保\BUTTERFLY" then
  191. traytip("正在自动安装Butterfly Garden，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  192. ;表示在托盘区弹出提示气球，内容如上
  193. FileChangeDir(@ScriptDir&"\PIC\流水瀑布屏保\BUTTERFLY")
  194. Run("Butterfly.exe")
  195. WinWait("Butterfly Garden","Welcome to the GizmoZone.com")
  196. ControlClick("Butterfly Garden","&Next","Button1")
  197. WinWait("Butterfly Garden","Done!")
  198. ControlClick("Butterfly Garden","&Finish","Button1")
  199. WinWait("显示","屏幕保护程序(&S)")
  200. WinClose("显示","屏幕保护程序(&S)")
  201. exit
  202. endif
  203. If $CmdLine[1]="/PIC\流水瀑布屏保\MATI" then
  204. traytip("正在自动安装Marine Aquarium，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  205. ;表示在托盘区弹出提示气球，内容如上
  206. FileChangeDir(@ScriptDir&"\PIC\流水瀑布屏保\MATI")
  207. Run("MAT_V2_CHS.EXE")
  208. WinWait("安装 - Marine Aquarium Time","欢迎使用")
  209. ControlClick("安装 - Marine Aquarium Time","下一步(&N) >","TButton1")
  210. WinWait("安装 - Marine Aquarium Time","使用许可协议")
  211. ControlClick("安装 - Marine Aquarium Time","我接受本协议(&A)","TRadioButton1")
  212. ControlClick("安装 - Marine Aquarium Time","下一步(&N) >","TButton2")
  213. WinWait("安装 - Marine Aquarium Time","信息")
  214. ControlClick("安装 - Marine Aquarium Time","下一步(&N) >","TButton2")
  215. WinWait("安装 - Marine Aquarium Time","选择目标文件夹")
  216. ControlClick("安装 - Marine Aquarium Time","下一步(&N) >","TButton2")
  217. WinWait("安装 - Marine Aquarium Time","选择开始菜单文件夹")
  218. ControlClick("安装 - Marine Aquarium Time","下一步(&N) >","TButton2")
  219. WinWait("安装 - Marine Aquarium Time","选择附加任务")
  220. Send("{ALTDOWN}d{ALTUP}")
  221. ControlClick("安装 - Marine Aquarium Time","下一步(&N) >","TButton2")
  222. WinWait("安装 - Marine Aquarium Time","准备安装")
  223. ControlClick("安装 - Marine Aquarium Time","安装(&I)","TButton2")
  224. WinWait("安装 - Marine Aquarium Time","完成")
  225. ControlClick("安装 - Marine Aquarium Time","完成(&F)","TButton2")
  226. WinWait("Marine Aquarium Time 2.0","现在从 www.SereneScreen.com 购买")
  227. Send("COREK24FLCCHQVXJ36LX")
  228. ControlClick("Marine Aquarium Time 2.0","确定","Button1")
  229. Sleep(1000)
  230. Send("{CAPSLOCK}{CAPSLOCK}")
  231. exit
  232. endif
  233. If $CmdLine[1]="/PIC\流水瀑布屏保\WATERSCENES2" then
  234. traytip("正在自动安装waterscenes2，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  235. ;表示在托盘区弹出提示气球，内容如上

  237. FileChangeDir(@ScriptDir&"\PIC\流水瀑布屏保\WATERSCENES2")
  238. Run("waterscenes2.exe")
  239. WinWait("Setup","This will install")
  240. ControlClick("Setup","是(&Y)","Button1")
  241. WinWait("Setup - Animated Water Scenes 2","Welcome")
  242. ControlClick("Setup - Animated Water Scenes 2","&Next >","TButton2")
  243. WinWait("显示 属性","屏幕保护程序(&S)")
  244. WinClose("显示 属性","屏幕保护程序(&S)")
  245. WinWait("Setup - Animated Water Scenes 2","Finished")
  246. ControlClick("Setup - Animated Water Scenes 2","&Finish","TButton2")
  247. exit
  248. endif
  249. If $CmdLine[1]="/PIC\流水瀑布屏保\AQUARIUM" then
  250. FileChangeDir(@ScriptDir&"\PIC\流水瀑布屏保\AQUARIUM")
  251. RunWait("GoldfishAquarium-V1.EXE /silent")
  252. do
  253. sleep(100)
  254. until controlclick("显示 属性","屏幕保护程序","Button3")
  255. do
  256. sleep(100)
  257. until controlsettext("Goldfish","Buy now from","Edit1","25ahb-2v3t2-2kw3m-nnhfq")
  258. do
  259. sleep(100)
  260. until controlclick("Goldfish","Buy now from","Button1")
  261. Sleep(1000)
  262. Send("{CAPSLOCK}{CAPSLOCK}")
  263. WinClose("显示 属性")
  264. exit
  265. endif
  266. If $CmdLine[1]="/MYQUDONG\USB98" then
  267. traytip("正在自动安装USB万能驱动补丁，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  268. ;表示在托盘区弹出提示气球，内容如上
  269. FileChangeDir(@ScriptDir&"\MYQUDONG\USB98")
  270. Run('WIN98USB.EXE')
  271. WinWait("USB万能驱动补丁","下一步(&N) >")
  272. If Not WinActive("USB万能驱动补丁","下一步(&N) >") Then WinActivate("USB万能驱动补丁","下一步(&N) >")
  273. WinWaitActive("USB万能驱动补丁","下一步(&N) >")
  274. Send("{ALTDOWN}n{ALTUP}{ENTER}{ENTER}")
  275. exit
  276. endif
  277. If $CmdLine[1]="/SAFETY\KASPERSKY" then
  278. traytip("正在自动安装卡巴斯基反病毒Personal，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  279. ;表示在托盘区弹出提示气球，内容如上
  280. FileChangeDir(@ScriptDir&"\SAFETY\KASPERSKY")
  281. RunWait("kav50383_personalzh.exe /S /NORESTART")
  282. WinActive("卡巴斯基反病毒Personal 安装","建议在卡巴斯基反病毒Personal前安装")
  283. Controlclick("卡巴斯基反病毒Personal 安装","确定","Button1")
  284. exit
  285. endif
  286. If $CmdLine[1]="/SOFT\黄金内存" then
  287. traytip("正在自动安装黄金内存，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  288. ;表示在托盘区弹出提示气球，内容如上
  289. FileChangeDir(@ScriptDir&"\SOFT\黄金内存")
  290. RegWrite ( "HKEY_LOCAL_MACHINE\SOFTWARE\MemIdle", "MemIdleSN", "REG_SZ", "1092-236491-22883" )
  291. RunWait("MemoryBooster_32.exe /silent")
  292. exit
  293. endif
  294. If $CmdLine[1]="/SOFT\ARDOS" then
  295. traytip("正在自动安装矮人DOS工具箱42版，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  296. ;表示在托盘区弹出提示气球，内容如上
  297. FileChangeDir(@ScriptDir&"\SOFT\ARDOS")
  298. Run("矮人DOS工具箱42版.exe")
  299. Do
  300.   Sleep(100)
  301. Until ControlClick("矮人DOS工具箱 安装程序","欢迎使用","Button1")=1
  302. Do
  303.   Sleep(100)
  304. Until ControlClick("矮人DOS工具箱 安装程序","许可协议","Button5")=1
  305. Do
  306.   Sleep(100)
  307. Until ControlClick("矮人DOS工具箱 安装程序","许可协议","Button1")=1
  308. Do
  309.   Sleep(100)
  310. Until ControlClick("矮人DOS工具箱 安装程序","选择安装类型","Button5")=1
  311. Do
  312.   Sleep(100)
  313. Until ControlClick("矮人DOS工具箱 安装程序","选择安装类型","Button1")=1
  314. Do
  315.   Sleep(100)
  316. Until ControlClick("矮人DOS工具箱 安装程序","输入数据","Button5")=1
  317. Do
  318.   Sleep(100)
  319. Until ControlClick("矮人DOS工具箱 安装程序","准备安装","Button1")=1
  320. Do
  321.   Sleep(100)
  322. Until ControlClick("矮人DOS工具箱 安装程序","安装已完成","Button1")=1
  323. exit
  324. endif
  325. If $CmdLine[1]="/PIC\JUJUMAO会员版系统鼠标指针集44款" then
  326. traytip("正在自动安装JUJUMAO会员版系统鼠标指针集44款，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  327. ;表示在托盘区弹出提示气球，内容如上
  328. FileChangeDir(@ScriptDir&"\PIC\JUJUMAO会员版系统鼠标指针集44款")
  329. Run('JUJUMAO会员版系统鼠标指针集44款.exe')
  330. Do
  331.   Sleep(100)
  332. Until ControlClick("主题花园@鼠标主题 RC1版安装","下一步(&N) >","Button1")=1
  333. Do
  334.   Sleep(100)
  335. Until ControlClick("主题花园@鼠标主题 RC1版安装","我接受所有的软件许可","Button4")=1
  336. Do
  337.   Sleep(100)
  338. Until ControlClick("主题花园@鼠标主题 RC1版安装","下一步(&N) >","Button1")=1
  339. Do
  340.   Sleep(100)
  341. Until ControlClick("主题花园@鼠标主题 RC1版安装","下一步(&N) >","Button1")=1
  342. Do
  343. Sleep(100)
  344. Until ControlClick("主题花园@鼠标主题 RC1版安装","Run 自述说明.txt","Button6")=1
  345. Do
  346.   Sleep(100)
  347. Until ControlClick("主题花园@鼠标主题 RC1版安装","完成(&F)","Button1")=1
  348. exit
  349. endif
  350. If $CmdLine[1]="/INTERNET" then
  351. traytip("正在自动安装腾讯 QQ2005 珊瑚虫版，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  352. ;表示在托盘区弹出提示气球，内容如上

  354. FileChangeDir(@ScriptDir&"\INTERNET")
  355. Run('STEUP.EXE')
  356. WinWait("腾讯 QQ2005 珊瑚虫版 安装","腾讯 QQ2005 珊瑚虫版")
  357. If Not WinActive("腾讯 QQ2005 珊瑚虫版 安装","腾讯 QQ2005 珊瑚虫版") Then WinActivate("腾讯 QQ2005 珊瑚虫版 安装","腾讯 QQ2005 珊瑚虫版")
  358. WinWaitActive("腾讯 QQ2005 珊瑚虫版 安装","腾讯 QQ2005 珊瑚虫版")
  359. Send("{ALTDOWN}ni{ALTDOWN}n{ALTDOWN}i")
  360. Sleep(1000)
  361. WinWait("腾讯 QQ2005 珊瑚虫版 安装","珊瑚虫工作室[Coral S")
  362. If Not WinActive("腾讯 QQ2005 珊瑚虫版 安装","珊瑚虫工作室[Coral S") Then WinActivate("腾讯 QQ2005 珊瑚虫版 安装","珊瑚虫工作室[Coral S")
  363. WinWaitActive("腾讯 QQ2005 珊瑚虫版 安装","珊瑚虫工作室[Coral S")
  364. Do
  365.   Sleep(100)
  366. Until ControlClick("腾讯 QQ2005 珊瑚虫版 安装","立即执行腾讯 QQ2005 珊瑚虫版","Button5")=1
  367. Do
  368. Sleep(100)
  369. Until ControlClick("腾讯 QQ2005 珊瑚虫版 安装","将珊瑚虫上网导航设置为首页","Button7")=1
  370. WinWait("腾讯 QQ2005 珊瑚虫版 安装","安装完成")
  371. Send("!l")
  372. exit
  373. endif

  375. If $CmdLine[1]="/SCXA\DOWNLOAD\BITCOMET0.6" then
  376. traytip("正在自动安装BitComet 0.60，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  377. ;表示在托盘区弹出提示气球，内容如上
  378. FileChangeDir(@ScriptDir&"\SCXA\DOWNLOAD\BITCOMET0.6")
  379. run("BitComet0.6.exe")
  380. WinWaitActive("Installer Language","Please select a language.")
  381. send("{ENTER}")
  382. WinWaitActive("BitComet 0.60 Installer","欢迎使用 BitComet 0.60 安装向导")
  383. send("!n")
  384. WinWaitActive("BitComet 0.60 Installer","许可证协议")
  385. send("!i")
  386. WinWaitActive("BitComet 0.60 安装","选择组件")
  387. send("!n")
  388. WinWaitActive("BitComet 0.60 安装","选定安装位置")
  389. send("!i")
  390. WinWaitActive("BitComet 0.60 安装","正在完成 BitComet 0.60 安装向导")
  391. send("!f")
  392. exit
  393. endif
  394. If $CmdLine[1]="/SCXA\DOWNLOAD" then
  395. traytip("正在自动安装eMule 0.46c Build0913，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  396. ;表示在托盘区弹出提示气球，内容如上

  398. FileChangeDir(@ScriptDir&"\SCXA\DOWNLOAD")
  399. run("eMule-0.46c-VeryCD0913Install.exe")
  400. WinWaitActive("eMule 0.46c Build0913","欢迎使用 eMule 0.46c Build0913 安装向导")
  401. send("!n")
  402. WinWaitActive("eMule 0.46c Build0913","许可协议")
  403. send("!i")
  404. WinWaitActive("eMule 0.46c Build0913","选择组件")
  405. Send("{DOWN}{DOWN}{DOWN}{DOWN}")
  406. send("{SPACE}")
  407. send("{DOWN}")
  408. send("{SPACE}")
  409. send("!n")
  410. WinWaitActive("eMule 0.46c Build0913","选择安装位置")
  411. send("!i")
  412. WinWaitActive("eMule 0.46c Build0913","完成 eMule 0.46c Build0913 安装向导")
  413. send("{SPACE}")
  414. send("{TAB}")
  415. send("!f")
  416. exit
  417. endif
  418. If $CmdLine[1]="/DISK\ULTRAISO" then
  419. traytip("正在自动安装ULTRAISO，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  420. ;表示在托盘区弹出提示气球，内容如上

  422. FileChangeDir(@ScriptDir&"\DISK\ULTRAISO")
  423. runwait('regedit /s "' & @ScriptDir & '\UltraIso.reg"')
  424. RunWait("uiso7_me.exe /silent")
  425. exit
  426. endif
  427. If $CmdLine[1]="/DISK\EASYBOOT" then
  428. traytip("正在自动安装EasyBoot，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  429. ;表示在托盘区弹出提示气球，内容如上
  430. FileChangeDir(@ScriptDir&"\DISK\EASYBOOT")
  431. RunWait("ezb50cn.exe /silent")
  432. Run("c:\EasyBoot\easyboot.exe", "c:\EasyBoot")
  433. do
  434. sleep(100)
  435. until controlclick("EasyBoot","帮  助","TButton4")
  436. sleep(200)
  437. send("{DOWN 3}{ENTER}")
  438. DO
  439. SLEEP(100)
  440. UNTIL CONTROLSETTEXT("注册","确 认","TEdit4","tm.china")
  441. DO
  442. SLEEP(100)
  443. UNTIL CONTROLSETTEXT("注册","确 认","TEdit5","37F5")
  444. DO
  445. SLEEP(100)
  446. UNTIL CONTROLSETTEXT("注册","确 认","TEdit3","4AA9")
  447. DO
  448. SLEEP(100)
  449. UNTIL CONTROLSETTEXT("注册","确 认","TEdit2","BCBB")
  450. DO
  451. SLEEP(100)
  452. UNTIL CONTROLSETTEXT("注册","确 认","TEdit1","07A0")
  453. do
  454. sleep(100)
  455. until controlclick("注册","确 认","TButton2")
  456. do
  457. sleep(100)
  458. until controlclick("提示","确定","Button1")
  459. exit
  460. endif
  461. If $CmdLine[1]="/DISK\ISOBUSTER" then
  462. traytip("正在自动安装IsoBuster - Pro，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  463. ;表示在托盘区弹出提示气球，内容如上
  464. FileChangeDir(@ScriptDir&"\DISK\ISOBUSTER")
  465. Run("IsoBuster_setup.exe /silent")
  466. WinWait("Registration will enable IsoBuster PRO functionality")
  467. controlsettext("Registration will enable IsoBuster PRO functionality","","TEdit2","no@blacklist.mydaj.com_9JORIVDT9OABKRN41")
  468. controlsettext("Registration will enable IsoBuster PRO functionality","","TEdit1","8A5711A4-60641839-02000C41-945785DC-3B070932-5D050D11")
  469. ControlClick("Registration will enable IsoBuster PRO functionality","Register >>","TButton4")
  470. WinWait("Online Check","IsoBuster is about to go online to")
  471. ControlClick("Online Check","否(&N)","Button2")
  472. WinWait("IsoBuster - Pro - ")
  473. WinClose("IsoBuster - Pro - ")
  474. runwait('regedit /s "' & @ScriptDir & '\isoset.reg"')
  475. exit
  476. endif
  477. If $CmdLine[1]="/DISK\BADCOPY_PRO" then
  478. traytip("正在自动安装BadCopyPRO，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  479. ;表示在托盘区弹出提示气球，内容如上

  481. DirCreate(@ProgramFilesDir & "\BadCopyPRO")
  482. FileCopy(@ScriptDir & "\DISK\BADCOPY_PRO\BadCopy.exe",@ProgramFilesDir & '\BadCopyPRO\BadCopy.exe',1)
  483. run('regedit /s "' & @ScriptDir & '\DISK\BADCOPY_PRO\SN.reg"')
  484. FileCreateShortcut(@ProgramFilesDir & "\BadCopyPRO\BadCopy.exe",@DesktopDir & "\BadCopyPRO v3.0.lnk",@ProgramFilesDir & '\BadCopyPRO',"", "", @ProgramFilesDir & "\BadCopyPRO\BadCopy.exe", "", "0", @SW_MINIMIZE)
  485. FileCreateShortcut(@ProgramFilesDir & "\BadCopyPRO\BadCopy.exe",@ProgramsCommonDir& "\BadCopyPRO\BadCopyPRO v3.0.lnk",@ProgramFilesDir & '\BadCopyPRO',"", "", @ProgramFilesDir & "\BadCopyPRO\BadCopy.exe", "", "0", @SW_MINIMIZE)
  486. exit
  487. endif
  488. If $CmdLine[1]="/DISK\ALCOHOL120" then
  489. traytip("正在自动安装Alcohol 120，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  490. ;表示在托盘区弹出提示气球，内容如上
  491. RunWait("cmd /c "&chr(34)&@ScriptDir&"\DISK\ALCOHOL120\SETUP.MSI /qr REBOOT=SUPPRESS"&chr(34),"",@SW_HIDE)
  492. FileCopy(@ScriptDir & "\DISK\ALCOHOL120\patch.exe",@ProgramFilesDir & '\Alcohol Soft\Alcohol 120',1)
  493. Run(@ProgramFilesDir & '\Alcohol Soft\Alcohol 120\patch.exe', @ProgramFilesDir & '\Alcohol Soft\Alcohol 120')
  494. do
  495. sleep(100)
  496. until ControlClick("Patch","Patch","Button1")
  497. Sleep(5000)
  498. ControlClick("Patch","Exit","Button3")
  499. runwait('regedit /s "' & @ScriptDir & '\DISK\ALCOHOL120\alcohol.reg"')
  500. exit
  501. endif
  502. If $CmdLine[1]="/MEDIA\mpc" then
  503. traytip("正在自动安装暴风影音 5.07RC3 ，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  504. ;表示在托盘区弹出提示气球，内容如上
  505. FileChangeDir(@ScriptDir&"\MEDIA\mpc")
  506. Run('mpc.exe')
  507. WinWait("Installer Language","")
  508. Send("{ENTER}")
  509. WinWait("暴风影音 5.07RC3 安装程序","")
  510. If Not WinActive("暴风影音 5.07RC3 安装程序","") Then WinActivate("暴风影音 5.07RC3 安装程序","")
  511. WinWaitActive("暴风影音 5.07RC3 安装程序","")
  512. Send("{ALTDOWN}n{ALTUP}")
  513. WinWait("暴风影音 5.07RC3 安装程序 ","")
  514. If Not WinActive("暴风影音 5.07RC3 安装程序 ","") Then WinActivate("暴风影音 5.07RC3 安装程序 ","")
  515. WinWaitActive("暴风影音 5.07RC3 安装程序 ","")
  516. Send("{ALTDOWN}i{ALTUP}")
  517. WinWaitActive("暴风影音 5.07RC3 安装程序 ","")
  518. Send("{ALTDOWN}n{ALTUP}{ALTDOWN}i{ALTUP}")
  519. WinWait("暴风影音综合设置程序","")
  520. Send("{ENTER}")
  521. WinWait("暴风影音 5.07RC3 安装程序 ","完成 暴风影音 安装向导")
  522. If Not WinActive("暴风影音 5.07RC3 安装程序 ","完成 暴风影音 安装向导") Then WinActivate("暴风影音 5.07RC3 安装程序 ","完成 暴风影音 安装向导")
  523. WinWaitActive("暴风影音 5.07RC3 安装程序 ","完成 暴风影音 安装向导")
  524. Do
  525. Sleep(500)
  526. Until ControlClick("暴风影音 5.07RC3 安装程序 ","完成 暴风影音 安装向导","Button4")=1
  527. Do
  528. Sleep(500)
  529. Until ControlClick("暴风影音 5.07RC3 安装程序 ","完成 暴风影音 安装向导","Button2")=1
  530. exit
  531. endif
  532. If $CmdLine[1]="/SAFETY" then
  533. traytip("正在自动安装木马克星iparmor 5.50 build 1136 简体版 ，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  534. ;表示在托盘区弹出提示气球，内容如上
  535. FileChangeDir(@ScriptDir&"\SAFETY")
  536. Run('木马克星iparmor 5.50 build 1136 简体版.exe')
  537. WinWait("安装 - Iparmor 5.50 Bulid 1136","欢迎使用 Iparmor 5.5")
  538. If Not WinActive("安装 - Iparmor 5.50 Bulid 1136","欢迎使用 Iparmor 5.5") Then WinActivate("安装 - Iparmor 5.50 Bulid 1136","欢迎使用 Iparmor 5.5")
  539. WinWaitActive("安装 - Iparmor 5.50 Bulid 1136","欢迎使用 Iparmor 5.5")
  540. Send("{ALTDOWN}n{ALTUP}")
  541. WinWait("安装 - Iparmor 5.50 Bulid 1136","继续安装前请阅读下列")
  542. If Not WinActive("安装 - Iparmor 5.50 Bulid 1136","继续安装前请阅读下列") Then WinActivate("安装 - Iparmor 5.50 Bulid 1136","继续安装前请阅读下列")
  543. WinWaitActive("安装 - Iparmor 5.50 Bulid 1136","继续安装前请阅读下列")
  544. Send("{ALTDOWN}a{ALTUP}{ALTDOWN}n{ALTUP}")
  545. WinWait("安装 - Iparmor 5.50 Bulid 1136","您想将 Iparmor 5.50 ")
  546. If Not WinActive("安装 - Iparmor 5.50 Bulid 1136","您想将 Iparmor 5.50 ") Then WinActivate("安装 - Iparmor 5.50 Bulid 1136","您想将 Iparmor 5.50 ")
  547. WinWaitActive("安装 - Iparmor 5.50 Bulid 1136","您想将 Iparmor 5.50 ")
  548. Send("{ALTDOWN}n{ALTUP}")
  549. If WinExists("文件夹存在","") then
  550. Send("{ALTDOWN}y{ALTUP}")
  551. endif
  552. WinWait("安装 - Iparmor 5.50 Bulid 1136","您想在哪里放置程序的")
  553. If Not WinActive("安装 - Iparmor 5.50 Bulid 1136","您想在哪里放置程序的") Then WinActivate("安装 - Iparmor 5.50 Bulid 1136","您想在哪里放置程序的")
  554. WinWaitActive("安装 - Iparmor 5.50 Bulid 1136","您想在哪里放置程序的")
  555. Send("{ALTDOWN}n{ALTUP}")
  556. WinWait("安装 - Iparmor 5.50 Bulid 1136","安装程序现在准备开始")
  557. If Not WinActive("安装 - Iparmor 5.50 Bulid 1136","安装程序现在准备开始") Then WinActivate("安装 - Iparmor 5.50 Bulid 1136","安装程序现在准备开始")
  558. WinWaitActive("安装 - Iparmor 5.50 Bulid 1136","安装程序现在准备开始")
  559. Send("{ALTDOWN}i{ALTUP}")
  560. Do
  561.   Sleep(100)
  562. Until ControlClick("安装 - Iparmor 5.50 Bulid 1136","完成(&F)","TButton4")=1
  563. runwait('regedit /s "' & @ScriptDir & '\SAFETY\1.reg"')
  564. exit
  565. endif
  566. If $CmdLine[1]="/SAFETY\文件加密解密系统2.2" then
  567. traytip("正在自动安装文件加密解密系统2.2 ，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  568. ;表示在托盘区弹出提示气球，内容如上
  569. FileChangeDir(@ScriptDir&"\SAFETY\文件加密解密系统2.2")
  570. Run('文件加密解密系统2.2.EXE')
  571. WinWait("自述文件","下一步 >")
  572. If Not WinActive("自述文件","下一步 >") Then WinActivate("自述文件","下一步 >")
  573. WinWaitActive("自述文件","下一步 >")
  574. send("{enter}")
  575. Sleep(1000)
  576. WinWait("软件许可协议","请仔细阅读下面的许可")
  577. If Not WinActive("软件许可协议","请仔细阅读下面的许可") Then WinActivate("软件许可协议","请仔细阅读下面的许可")
  578. WinWaitActive("软件许可协议","请仔细阅读下面的许可")
  579. send("{TAB}")
  580. send("{enter}")
  581. Sleep(1000)
  582. WinWait("选择安装的目标位置","Setup程序将安装文件")
  583. If Not WinActive("选择安装的目标位置","Setup程序将安装文件") Then WinActivate("选择安装的目标位置","Setup程序将安装文件")
  584. WinWaitActive("选择安装的目标位置","Setup程序将安装文件")
  585. send("{enter}")
  586. Sleep(1000)
  587. if WinExists("安装","目录C:\WEI\文件加密解密系统") then
  588. Do
  589. Sleep(500)
  590. Until ControlClick("安装","目录C:\WEI\文件加密解密系统","Button1")=1
  591. endif
  592. Sleep(1000)
  593. If Not WinActive("选择程序管理器程序组","请输入要添加文件加密") Then WinActivate("选择程序管理器程序组","请输入要添加文件加密")
  594. WinWaitActive("选择程序管理器程序组","请输入要添加文件加密")
  595. send("{enter}")
  596. Sleep(1000)
  597. WinWait("安装已完成","文件加密解密系统 V2.")
  598. If Not WinActive("安装已完成","文件加密解密系统 V2.") Then WinActivate("安装已完成","文件加密解密系统 V2.")
  599. WinWaitActive("安装已完成","文件加密解密系统 V2.")
  600. send("!f")
  601. If WinActive("安装","系统必须重新启动以完成安装") then
  602. send("{TAB}")
  603. send("{enter}")
  604. endif
  605. exit
  606. endif
  607. If $CmdLine[1]="/MEDIA\千千静听" then
  608. traytip("正在自动安装文件千千静听 4.6.5 ，请稍侯","安装程序正在启动中,安装时请勿动用键盘鼠标"& @crlf &"如果长时间没有反应请手工点击下一步",5,1)
  609. ;表示在托盘区弹出提示气球，内容如上
  610. FileChangeDir(@ScriptDir&"\MEDIA\千千静听")
  611. Run('千千静听4.6.5.EXE')
  612. WinWait("千千静听 4.6.5 安装程序 Unicode","欢迎使用 千千静听 4.")
  613. If Not WinActive("千千静听 4.6.5 安装程序 Unicode","欢迎使用 千千静听 4.") Then WinActivate("千千静听 4.6.5 安装程序 Unicode","欢迎使用 千千静听 4.")
  614. WinWaitActive("千千静听 4.6.5 安装程序 Unicode","欢迎使用 千千静听 4.")
  615. Send("{ALTDOWN}s{ALTUP}{ALTDOWN}a{ALTUP}{ALTDOWN}n{ALTUP}")
  616. WinWait("千千静听 4.6.5 安装程序 Unicode","指定安装本软件的目标")
  617. If Not WinActive("千千静听 4.6.5 安装程序 Unicode","指定安装本软件的目标") Then WinActivate("千千静听 4.6.5 安装程序 Unicode","指定安装本软件的目标")
  618. WinWaitActive("千千静听 4.6.5 安装程序 Unicode","指定安装本软件的目标")
  619. Send("{ALTDOWN}n{ALTUP}")
  620. WinWait("千千静听 4.6.5 安装程序 Unicode","在桌面上放置“eBay易")
  621. If Not WinActive("千千静听 4.6.5 安装程序 Unicode","在桌面上放置“eBay易") Then WinActivate("千千静听 4.6.5 安装程序 Unicode","在桌面上放置“eBay易")
  622. WinWaitActive("千千静听 4.6.5 安装程序 Unicode","在桌面上放置“eBay易")
  623. ControlClick("千千静听 4.6.5 安装程序 Unicode","在桌面上放置“eBay易","Button4")
  624. Sleep(1000)
  625. Send("{ALTDOWN}n{ALTUP}")
  626. WinWait("千千静听 4.6.5 安装程序 Unicode","立即运行 千千静听 4.")
  627. If Not WinActive("千千静听 4.6.5 安装程序 Unicode","立即运行 千千静听 4.") Then WinActivate("千千静听 4.6.5 安装程序 Unicode","立即运行 千千静听 4.")
  628. WinWaitActive("千千静听 4.6.5 安装程序 Unicode","立即运行 千千静听 4.")
  629. ControlClick("千千静听 4.6.5 安装程序 Unicode","立即运行 千千静听 4.","Button1")
  630. ControlClick("千千静听 4.6.5 安装程序 Unicode","立即运行 千千静听 4.","Button3")
  631. Sleep(1000)
  632. Send("{ENTER}")
  633. exit
  634. endif
复制代码
收藏 分享 评分
感谢Baidu,Google,Dreams8给我这次机会!
还要感谢我的爸爸妈妈!
HOHO
回复 引用

订阅 TOP

返回列表