Au3全自动安装QQ拼音输入法

风一样的男孩

2. #NoTrayIcon
4. $FileName = IniRead("QQPY.ini","8450919","QQ拼音安装文件","")
5. $Ver = IniRead("QQPY.ini","8450919","QQ拼音版本","")
6. $Title = "QQ拼音输入法" & $Ver & " 安装"
7. $Title2 = "QQ拼音输入法-个性化设置向导"
8. $HotKey = "[CLASS:Button; INSTANCE:1]"
9. $HotKey2 = "[CLASS:Button; INSTANCE:2]"
10. $HotKey5 = "[CLASS:Button; INSTANCE:5]"
11. $HotKey6 = "[CLASS:Button; INSTANCE:6]"
13. If  Not FileExists("QQPY.ini") Then
14.     IniWrite("QQPY.ini","8450919","QQ拼音安装文件","")
15.     IniWrite("QQPY.ini","8450919","QQ拼音版本","")
16. EndIf
18. If $FileName = "" or $Ver = "" Then
19.     MsgBox(0,"","未设置QQ拼音安装文件名或版本")
20.     ShellExecute("QQPY.ini")
21.     Exit
22. EndIf
24. ;开始安装QQ拼音
25. $PID = Run($FileName)
26. $HWND = WinWait($Title,"")
27. If WinExists($Title,"是否继续安装") Then
28.     ControlClick($HWND,"",$HotKey,"")
29. EndIf
30. $HWND = WinWait($Title,"这个向导将指引您完成")
31. ControlClick($HWND,"下一走",$HotKey2,"")
32. $HWND = WinWait($Title,"软件许可协议")
33. ControlClick($HWND,"软件许可协议",$HotKey2,"")
34. $HWND = WinWait($Title,"选择安装位置")
35. ControlClick($HWND,"选择安装位置",$HotKey2,"")
36. $Begin = TimerInit()
37. While 1
38.     If WinExists($Title,"以下应用程序将继续使用之前版本的QQ拼音") Then
39.         ControlClick($HWND,"以下应用程序将继续使用之前版本的QQ拼音",$HotKey2,"")
40.     EndIf
41.     Sleep(100)
42.     If WinExists($Title,"安装完成") Then
43.         ControlCommand($HWND,"运行设置向导",$HotKey5,"Check")
44.         ControlCommand($HWND,"安装QQ五笔",$HotKey6,"UnCheck")
45.         ExitLoop
46.     EndIf
47.     ;120秒超时退出循环
48.     If TimerDiff($begin) > 120000 Then
49.         ExitLoop
50.     EndIf
51. WEnd
52. ControlClick($HWND,"安装完成",$HotKey2,"")
54. ;完成设置向导(如果是新安装，一定要完成设置向导，否则无法使用)
55. $HWND = WinWait($Title2,"欢迎使用个性化设置向导")
56. ControlClick($HWND,"欢迎使用个性化设置向导",$HotKey,"")
57. $HWND = WinWait($Title2,"设置输入法常用风格")
58. ControlClick($HWND,"设置输入法常用风格",$HotKey,"")
59. $HWND = WinWait($Title2,"设置输入法主要使用习惯")
60. ControlClick($HWND,"设置输入法主要使用习惯",$HotKey,"")
61. $HWND = WinWait($Title2,"选择个性皮肤")
62. ControlClick($HWND,"选择个性皮肤",$HotKey,"")
63. $HWND = WinWait($Title2,"管理系统输入法")
64. ControlClick($HWND,"管理系统输入法",$HotKey,"")
65. $HWND = WinWait($Title2,"设置您需要的城市词库和推荐词库")
66. ControlClick($HWND,"设置您需要的城市词库和推荐词库",$HotKey,"")
67. $HWND = WinWait($Title2,"完成个性化设置向导")
68. ControlClick($HWND,"完成个性化设置向导",$HotKey,"")

复制代码

azhendidi

zhichi xia