不知道怎么会事,总是弹出这个,大家帮忙看一下吧,谢谢。
#include <IE.au3>
Dim $aIE[1]
$aIE[0] = 0
$i = 0
While 1
$oIE = _IEAttach ("入库:","title",$i)
If @error = $_IEStatus_NoMatch Then ExitLoop
ReDim $aIE[$i + 1]
$aIE[$i] = $oIE
$aIE[0] = $i
$i = $i+1
WEnd
$t=$i-1
Do
$oIE = _IEAttach ("入库:","title",$t)
_IELoadWait($oIE)
WinActivate("入库:")
$bcxg=_IEGetObjByName($oIE,"btn_M")
$bcxg.click
WinWait("Microsoft","操作成功")
Send("{enter}")
$t=$t-1
Until $t=0
$zIE=_IEAttach("新闻入库管理")
_IEAction($zIE,"refresh")
$oinput=_IEGetObjByName($zIE,"chka")
$dkjb=_IEGetObjById($zIE,"btn")
$oinput.click
$dkjb.click
Run("1.exe","D:\") |