AU3源码万象2004客户端自动安装工具

风一样的男孩

使用万象2004用户市场比例不少，今天为“万象2004”用户做了个自动安装程序。
使用说明
自动安装程序同目录下 放置“Clt2K.exe”万象标准版客户端。
并且注意同目录下的 REG类型文件 将自动导入，可用于预先配置万象客户机环境。

1. #Region ;**** 参数创建于 AutoIt3Wrapper_GUI ****
2. #AutoIt3Wrapper_icon=2004.ico
3. #AutoIt3Wrapper_outfile=万象2004自动安装器V1.0.exe
4. #AutoIt3Wrapper_UseAnsi=y
5. #AutoIt3Wrapper_Res_Comment=万象网管2004自动安装器
6. #AutoIt3Wrapper_Res_Description=万象网管2004 For 2000/XP 客户端
7. #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
8. #AutoIt3Wrapper_Res_LegalCopyright=TVZML作品
9. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
10. $title = \"安装 - 万象网管2004 For 2000/XP 客户端\"
11. $file = \"Clt2K.exe\"
12. if not FileExists($file) Then
13. MsgBox (16,\"错误\",\"当前目录没有找到万象2004客户端 \"&$file&\"\")
14. Exit
15. EndIf
16. if ProcessExists(\"Clsmn.exe\") Then
17. MsgBox (49,\"安装\",\"安装程序发现 万象网管2004 For 2000/XP 客户端 当前正在运行。\"&@CRLF&@CRLF&\"请先关闭所有运行的窗口。\")
18. Exit
19. EndIf
20. hotkeyset(\"{esc}\", \"captureesc\")
21. progresson($title, \"按ESC取消安装...\", \"0 ％ \")
22. for $i = 1 to 100 step 1
23. sleep(30)
24. progressset( $i, $i & \" ％ \")
25. next
26. progressoff()
27. Run($file)
28. $search = FileFindFirstFile(\"*.reg\")
29. While 1
30. $regfile = FileFindNextFile($search)
31. If $regfile = \"\" Then ExitLoop
32. RunWait(@ComSpec & \" /c \" & \"regedit /s \"&$regfile)
33. If @error Then ExitLoop
34. WEnd
35. FileClose($search)
36. winwaitactive($title, \"推荐您在继续安装前关闭所有其它应用程序\")
37. controlclick($title, \"推荐您在继续安装前关闭所有其它应用程序\",\"TButton1\")
38. winwaitactive($title, \"许可协议\")
39. controlcommand($title, \"许可协议\",\"TRadioButton1\",\"check\")
40. controlclick($title, \"许可协议\",\"TButton2\")
41. winwaitactive($title, \"请在继续安装前阅读下列重要信息\")
42. controlclick($title, \"请在继续安装前阅读下列重要信息\",\"TButton2\")
43. winwaitactive($title, \"你想要使用什么协议和端口号\")
44. controlclick($title, \"你想要使用什么协议和端口号\",\"TButton2\")
45. winwaitactive($title, \"您想在哪里放置程序的快捷方式\")
46. controlclick($title, \"您想在哪里放置程序的快捷方式\",\"TButton3\")
47. BlockInput(1)
48. winwaitactive($title, \"您想要安装程序执行哪些附加任务\")
49. Sleep(500)
50. send (\"{SPACE}\")
51. send (\"{TAB}\")
52. send (\"{SPACE}\")
53. send (\"{TAB}\")
54. send (\"{SPACE}\")
55. Sleep(500)
56. controlclick($title, \"您想要安装程序执行哪些附加任务\",\"TButton3\")
57. BlockInput(0)
58. winwaitactive($title, \"安装程序现在准备开始安装\")
59. controlclick($title, \"安装程序现在准备开始安装\",\"TButton3\")
60. winwaitactive($title, \"稍后重新启动电脑\")
61. controlcommand($title, \"稍后重新启动电脑\",\"TRadioButton2\",\"check\")
62. controlclick($title, \"稍后重新启动电脑\",\"TButton3\")
63. func captureesc()
64. progressoff()
65. exit
66. endfunc

复制代码

chenfnu

有人测试过了吗？