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

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

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