回复 2# haijie1223 ControlCommand($xTitle, $xSubTitle[1], "ThunderRT6CommandButton4", "SendCommandID", "{ENTER}")
海大,上面是这句执行后公司产品系统弹出提示框。 后边的代码就不执行了。不是我下面的MSGBOX弹出来的。不过我把ControlCommand换成ControlClick貌似就可以了,不晓得什么原因。
Opt("WinTitleMatchMode", 4)
For $i = 0 To 5
ControlClick($xTitle, $xSubTitle[1], "ThunderRT6CommandButton4", "", "1")
Sleep(1000)
;MsgBox(0, '', '进入下一步!', 3)
local $hWnd = WinGetHandle('AddinStaffRoleGroup')
If $hWnd <> '' Then
winclose($hWnd)
ControlSetText($xTitle, $xSubTitle[1], "ThunderRT6TextBox4", "")
MsgBox(0, '', '没有查到的号码是:' & $aNo[$i], 1)
Else
MsgBox(0, '', '●●●●●●查到的号码是:' & $aNo[$i], 1)
sleep(100)
EndIf
Next
|