代码在有的机器好用 有的报错

iori2882

前段时间在论坛看到了一段自己添网页帐号和密码的代码
$oIE = ObjCreate("InternetExplorer.Application")
        $oIE.visible = 1
        $oIE.navigate('http://192.168.99.6')
        $oIE.height = 600
        $oIE.width = 800
        Do
        Until $oIE.busy = False Or $oIE.readyState = 4
        $oIE.document.getElementById('username' ).value = 'admin'
        $oIE.document.getElementById('pwd' ).value = 'lzy2236*.*'
        Sleep(2000)
        Send("{enter}")
在大部分机器都好用,但是在有点机器上报错 图片如下:


这是为什么呢???????????

h20040606

在  $oIE = ObjCreate("InternetExplorer.Application") 后面加个判断，检查一下

netsmu

我也遇到过这样的错误。 请问楼上的，怎么加判断？

laomao127

代码有问题 ，优化代码就好了 仔细想想 我的也出现过这样的问题 把没用代码去掉或换其他的函数试试

laomao127

可以尝试这样写

#include <IE.au3>
dim $a="用户名",$b="密码"
$oIE = _IECreate ("http://reg.163.com/login.jsp")
$oForm = _IEFormGetObjByName ($oIE, "fLogin")
$ming = _IEFormElementGetObjByName ($oForm, "username")
$mima = _IEFormElementGetObjByName ($oForm, "password")
$an = _IEFormElementGetObjByName ($oForm, "Submit")
_IEFormElementSetValue ($ming, $a,0)
_IEFormElementSetValue ($mima, $b,0)
_IEAction ($an, "click")