关于自动提交无法实现的问题，附程序
朋友想使用程序实现远程控制客户机点击指定连接。程序在部分电脑上无问题（都是远控电脑。都是xp,ie浏览器）
很奇怪的问题出现了，就是并不是在其他地方不执行，而是在输入关键词后提交这步停下来了。。。
开始地址和结束地址是设置范围，因为百度的连接无法准确获取，只能是一个范围。
程序如下:
#include <IE.au3>
#include <WinAPI.au3>
Global $mykey,$keywords,$start,$n,$end,$element,$oForm,$oQuery1,$nurl,$key
_IEErrorHandlerRegister()
Global $oIE = _IECreateEmbedded()
GUICreate("mytest", 700, 600, (@DesktopWidth - 700) / 2, (@DesktopHeight - 600) / 2)
GUICtrlCreateObj($oIE, 0, 0, 700, 600)
AutoItSetOption("TrayIconHide", 1)
GUISetState(@SW_SHOW)
$keywords=iniread(@ScriptDir& "\" &"ie.ini", "关键词", "keywords", "Notfound")
$key=StringSplit($keywords,",",2)
For $mykey In $key
If @error = -1 Then ExitLoop
$start = iniread(@ScriptDir& "\" &"ie.ini", "开始序号", "start", "Notfound")
$end = iniread(@ScriptDir& "\" &"ie.ini", "结束序号", "end", "Notfound")
If $start=$end Then $end=$end+1
$n=$end-$start
Dim $i=0
For $i=0 To $n
If $start=$end Then ExitLoop
$element=$start
$url = "http://www.baidu.com"
_IENavigate($oIE, $url)
_IELoadWait($oIE)
$oForm = _IEFormGetObjByName($oIE, "f")
$oQuery1 = _IEFormElementGetObjByName($oForm, "wd")
Sleep("2000")
_IEFormElementSetValue($oQuery1, $mykey)
Send("{ENTER}")
;就是这里，使用传送键盘enter，submit，鼠标点击都会在某些电脑上出问题。。。。高手指点一下
;_IEFormSubmit($oForm,1)
;MsgBox(0,"",@Error)
_replace()
_IELinkClickByIndex($oIE, $element)
$start=$start+1
Next
Next
Sleep("6000")
WinClose("mytest")
Do
$nurl = _IEPropertyGet($oIE, "locationurl")
If $nurl <> $url Then
_replace()
$url = $nurl
EndIf
Until GUIGetMsg() = -3
Func _replace()
Local $body, $string
_IELoadWait($oIE)
$body = _IEBodyReadHTML($oIE)
$string = StringRegExpReplace($body, '\btarget=_blank', 'target=_self')
$string = StringRegExpReplace($string, '\btarget="_blank"', 'target=_self')
_IEBodyWriteHTML($oIE, $string)
EndFunc ;==>_replace
ie.ini
[开始序号]
start=22
[结束序号]
end=22
[关键词]
keywords="博客"
页:
[1]