如何判断程序已经响应完毕？

devineresse

我打开一个程序，或者大量数据中的检索过程中，鼠标呈现忙碌状态，这个时候程序界面是不能点击的。  我如何通过au3判断可以进行下一步操作了？
         
         我现在用的是Sleep（8000），但是这个太浪费时间了。请问有没有办法解决，一旦响应完毕，就可以进行下一步？

haijie1223

runwait

devineresse

回复 2# haijie1223


    这个不行啊，是程序响应完毕，后要继续使用这个程序，runwait看解释：运行外部程序并暂停脚本执行，直到程序结束.

jdd3

可以试试判断程序的CPU占用率，或者是否可以成功改变某一控件状态

haijie1223

回复 3# devineresse

能不能把具体代码发上来~

user3000

回复 1# devineresse


    试试 MouseGetCursor() 获取鼠标的状态?

devineresse

#include <Excel.au3>
#include <Array.au3>
Local $sFilePath1 = @ScriptDir & "\Plan.xlsx"

For $i=2 To 8
$i=2
Local $ExcelRow=$i                         ;开始录入的excel的行标。
Local $oExcel1 = _Excel_Open(Default,Default,Default,true,Default)
Local $oExcel = _Excel_BookOpen($oExcel1,$sFilePath1)  
$cominfo=_Excel_RangeRead($oExcel,Default,"C"&$i&":"&"F"&$i)
_ArrayDisplay($cominfo, "Vertical")

If $cominfo[0][3]="r" Then
Local $date=$cominfo[0][1]
$code="211301"& $cominfo[0][0]
MsgBox(64,"",$cominfo[0][1])
Do
WinActivate("月缴费")
Sleep(200)
ControlClick("","","Button15","left")
Sleep(100)
ControlSetText("","","PBEDIT603",$date)
ControlSetText("","","PBEDIT601",$code)
Sleep(100)
Send("{tab 3}{enter}")
WinWaitActive("提示","单位",3)
Send("Y")
Sleep(8000)            
MouseClick("left",707,264,1)

devineresse

问题处在倒数第二行，程序响应完了，最后用mouseclick。   我尝试用mousegetcusor，发现不好使
for $t =1 to 4
if mousegetcusor()<>2 then
sleep(2000)
$t=$t+1
endif
Next

nqawen

还是没弄懂啊，

haijie1223

楼主的代码你代码这么金贵吗~发出一半来谁能测试代码

austere

回复 10# haijie1223


    人家不舍得公开~   但是又想让别人给解决问题....

boyhong

问题处在倒数第二行，程序响应完了，最后用mouseclick。   我尝试用mousegetcusor，发现不好使
for $t =1  ...
devineresse 发表于 2014-8-11 21:53

WinWaitActive不是返回一个窗口句柄么？通过检测它呢？不行，其下一步有无窗口或者啥的弹出？再接着检测之呢？
BTY: 也不知我理解得对不。

lin6051

帮顶  我也想知道  应该是用消息来做的吧

ak47gglllk

学习，感谢感谢，非常感谢

shqf

在检索什么？检索好了，界面有什么变化吗？