Au3全自动安装QQ拼音输入法
#NoTrayIcon
$FileName = IniRead("QQPY.ini","8450919","QQ拼音安装文件","")
$Ver = IniRead("QQPY.ini","8450919","QQ拼音版本","")
$Title = "QQ拼音输入法" & $Ver & " 安装"
$Title2 = "QQ拼音输入法-个性化设置向导"
$HotKey = ""
$HotKey2 = ""
$HotKey5 = ""
$HotKey6 = ""
IfNot FileExists("QQPY.ini") Then
IniWrite("QQPY.ini","8450919","QQ拼音安装文件","")
IniWrite("QQPY.ini","8450919","QQ拼音版本","")
EndIf
If $FileName = "" or $Ver = "" Then
MsgBox(0,"","未设置QQ拼音安装文件名或版本")
ShellExecute("QQPY.ini")
Exit
EndIf
;开始安装QQ拼音
$PID = Run($FileName)
$HWND = WinWait($Title,"")
If WinExists($Title,"是否继续安装") Then
ControlClick($HWND,"",$HotKey,"")
EndIf
$HWND = WinWait($Title,"这个向导将指引您完成")
ControlClick($HWND,"下一走",$HotKey2,"")
$HWND = WinWait($Title,"软件许可协议")
ControlClick($HWND,"软件许可协议",$HotKey2,"")
$HWND = WinWait($Title,"选择安装位置")
ControlClick($HWND,"选择安装位置",$HotKey2,"")
$Begin = TimerInit()
While 1
If WinExists($Title,"以下应用程序将继续使用之前版本的QQ拼音") Then
ControlClick($HWND,"以下应用程序将继续使用之前版本的QQ拼音",$HotKey2,"")
EndIf
Sleep(100)
If WinExists($Title,"安装完成") Then
ControlCommand($HWND,"运行设置向导",$HotKey5,"Check")
ControlCommand($HWND,"安装QQ五笔",$HotKey6,"UnCheck")
ExitLoop
EndIf
;120秒超时退出循环
If TimerDiff($begin) > 120000 Then
ExitLoop
EndIf
WEnd
ControlClick($HWND,"安装完成",$HotKey2,"")
;完成设置向导(如果是新安装,一定要完成设置向导,否则无法使用)
$HWND = WinWait($Title2,"欢迎使用个性化设置向导")
ControlClick($HWND,"欢迎使用个性化设置向导",$HotKey,"")
$HWND = WinWait($Title2,"设置输入法常用风格")
ControlClick($HWND,"设置输入法常用风格",$HotKey,"")
$HWND = WinWait($Title2,"设置输入法主要使用习惯")
ControlClick($HWND,"设置输入法主要使用习惯",$HotKey,"")
$HWND = WinWait($Title2,"选择个性皮肤")
ControlClick($HWND,"选择个性皮肤",$HotKey,"")
$HWND = WinWait($Title2,"管理系统输入法")
ControlClick($HWND,"管理系统输入法",$HotKey,"")
$HWND = WinWait($Title2,"设置您需要的城市词库和推荐词库")
ControlClick($HWND,"设置您需要的城市词库和推荐词库",$HotKey,"")
$HWND = WinWait($Title2,"完成个性化设置向导")
ControlClick($HWND,"完成个性化设置向导",$HotKey,"")
zhichi xia
页:
[1]