本帖最后由 pctip 于 2009-5-5 12:29 编辑
代码如下
MsgBox(48+262144,"提示","请在看到安全警告后先点击继续," & @CRLF & "" & "程序将会自动登录网页")
$oIE = _IECreate ("https://221.2.228.110:10443/remote/login")
ControlClick("安全警报","",1)
;~ 获得表单
WinWait("login","",15)
$o_form = _IEFormGetObjByName ($oIE, "f")
$o_login = _IEFormElementGetObjByName ($o_form, "username")
$o_password = _IEFormElementGetObjByName ($o_form, "credential")
;~ 输入用户名和密码
Local $username = "XXXX"
local $password = "XXXX"
;~ 填入用户名和密码并点击LOGIN
_IEFormElementSetValue ($o_login, $username)
_IEFormElementSetValue ($o_password, $password)
_IEFormImageClick($oIE,"/theme/images/en/login1.gif","src")
下面自动登录的都可以运行,但是那个安全警告怎么自动点击
|