Local $WinTitle_1= ' WPS Office Installation Wizard '
Local $Wintxt_1= '立即安装'
Local $Exe = 'WPS2012.12012.exe'
If ProcessExists($Exe) Then ProcessClose($Exe)
If FileExists(@ScriptDir&'\'&$Exe) Then
ShellExecute(@ScriptDir&'\'&$Exe)
Else
Exit(MsgBox(0,0,'指定运行文件不存在。'))
EndIf
If WinWait($Wintitle_1,'',15) Then
_test()
Else
If ProcessExists($Exe) Then ProcessClose($Exe)
Sleep(1000)
ShellExecute(@ScriptDir&'\'&$Exe)
If WinWait($Wintitle_1,'',15) Then
Exit(MsgBox(0,0,'未能检测到窗口,程序退出!'))
Else
_test()
EndIf
EndIf
;--------------------------------------------------------------;程序启动,显示界面
Func _test()
WinActive($Wintitle_1,'')
WinMove($Wintitle_1, "", 0, 0);让窗口在左上角
Sleep(1000);
MouseClick("left", 415, 265, 1);由于提取不到文字,只能按坐标实行点击安装
WinWaitActive("WPS 文字");安装完成后会自动弹出这个软件,还好可以用这个执行下面
ProcessExists ("wps.exe");安装后默认弹出的,下面都是判定后全部结束
ProcessClose ("wps.exe")
Sleep(100);
ProcessExists ("kuaipan.exe")
ProcessClose ("kuaipan.exe")
Sleep(100);
ProcessExists ("wpsupdate.exe")
ProcessClose ("wpsupdate.exe")
EndFunc
使用坐标点击方式,不太准确。使用按钮控件点击方式更为合适。
没有下载WPS。自行测试。。 |