无验证码的情况,验证码比较多工序,自己研究吧。#include <IE.au3>
Dim $oIE = _IECreate ("www.baidu.com")
Dim $bDengLu = _IEGetObjByName ($oIE,"tj_login")
Dim $inUserName = "aaaaaa" ;用户名
Dim $inPassword = "bbbbbb" ;密码
_IELinkClickByText ($oIE, "登录")
Sleep(1000) ;时延 1s
Local $bLogForm = _IEFormGetObjByName($oIE,"TANGRAM__PSP_8__form")
Local $bUserName = _IEFormElementGetObjByName ($bLogForm,"userName")
Local $bPassword = _IEFormElementGetObjByName ($bLogForm,"password")
Local $bSubmit = _IEGetObjById($oIE,"TANGRAM__PSP_8__submit")
_IEFormElementSetValue($bUserName,$inUserName)
_IEFormElementSetValue($bPassword,$inPassword)
_IEAction($bSubmit,"click")
|