本帖最后由 xing999999 于 2015-12-14 16:27 编辑
经过详细的来回的测试,最后我觉得还是以下的代码最为稳定。多谢XLJ310,非常感谢你。我以前从没碰过这方面的东西,所以自己摸索起来比较头疼。看了你的代码,我才知道还可以根据窗口大小来判断。。。不说了,上代码,有标明是xlj310的,和我修改的。;存在安装进程,直接结束,方便调试
If ProcessExists("QQPCMgr.exe") Then ProcessClose("QQPCMgr.exe")
;运行程序-XLJ310
Run("QQPCMgr.exe")
$title = "电脑管家安装"
$text = "继续安装需要关闭实时防护,是否要继续?"
;存在QQ管家实时防护进程,说明已经安装了。弹出的这个窗口很难操控,有时成功,有时不成功,干脆弹出提示要求手点!
If ProcessExists("QQPCRTP.exe") Then
TrayTip('QQ实时防护已经开启', "QQ管家实时防护开启,很多操作弄不了。" & @CRLF & "请手动点是,10秒内不点脚本退出!", 1)
;等待窗口出现开始计时
WinWait($title, $text)
EndIf
$title = "电脑管家 安装向导"
$text = $title
;以上都是-XLJ310所写
;10秒内不出窗口,就超时,下面if就不成立-XLJ310
If WinWait($title, $text, 10) Then
;清空上面的traytip提示。-XLJ310
TrayTip("清空提示", "", 1)
;需要修改路径,可以启用下面的代码-XLJ310
;~ ControlClick($title,$text,"ATL:005138B01","",1,59,651)
;~ Sleep(500)
;~ ControlSetText($title,$text,"CEagleEdit1","C:\Program Files (x86)\Tencent\QQPCMgr")
;点击 带我飞 装逼!-XLJ310
;~ ControlClick($title, $text, "ATL:005138B01", "", 1, 444, 490)
;确实很不稳定,我的虚拟机的分辨率是1440*900,运行代码直接就停在这里了。所以我改成了输送快捷键-xing999999
Send("{ENTER}")
While 1
Sleep(500)
;不断的获取QQ管家安装窗口的位置和大小,如果大小为370*600时,表示安装完成-XLJ310
$WinPos = WinGetPos($title, $text)
If IsArray($WinPos) Then
;宽度为370,高度为600时-XLJ310
If $WinPos[2] = 370 And $WinPos[3] = 600 Then ExitLoop
EndIf
WEnd
Sleep(100);少量的等待,以防电脑卡的人点不到。-XLJ310
;点击完成-XLJ310
Send("{ENTER}")
;以下是我增加,学习上面的等待窗口大小改变。
$title = "电脑管家"
While 1
Sleep(500)
;不断的获取QQ管家安装窗口的位置和大小,如果大小为924*624时,表示安装完后,打开了电脑管家.-xing999999
$WinPos = WinGetPos($title, "")
If IsArray($WinPos) Then
;宽度为370,高度为600时 ;-xing999999
If $WinPos[2] = 944 And $WinPos[3] = 624 Then ExitLoop
EndIf
WEnd
Sleep(3000);少量的等待,以防电脑卡的人点不到。-xing999999
Send("!{F4}");关闭打开的QQ管家窗口-xing999999
EndIf
;~ If WinWait("电脑管家新功能", "", 3) Then
;~ WinActivate("电脑管家新功能", "")
;~ $WinPos = WinGetPos("电脑管家新功能", "")
;~ ;获取鼠标位置并保存
;~ $MousePos = MouseGetPos()
;~ MouseClick("", $WinPos[0] + 727, $WinPos[1] + 467, 1, 0)
;~ ;鼠标移回原处
;~ MouseMove($MousePos[0], $MousePos[1], 0)
;~ EndIf
;~ EndIf
|