本帖最后由 xlj310 于 2014-5-23 08:21 编辑
一直在用,能正常登录
Dim $name = "你的用户名"
Dim $pass="你的密码"
$oIE = _IECreate("https://login.taobao.com/member/login.jhtml?style=miniall")
_IELinkClickByText($oIE, '使用其他账户登录')
$SafeKongJian = _IEGetObjById($oIE, "J_SafeLoginCheck")
;~ _IEAction($SafeKongJian,'click')
;~ _IEAction($oIE, "refresh")
Local $oForm = _IEFormGetObjByName($oIE, "J_StaticForm")
Local $oLoginName = _IEFormElementGetObjByName($oForm, "TPL_username_1")
Local $oLoginPass = _IEFormElementGetObjByName($oForm, "TPL_password_1")
_IEFormReset($oForm)
_IEFormReset($oForm)
_IEFormElementSetValue($oLoginName, $name)
_IEFormElementSetValue($oLoginPass, $pass)
$Submit = _IEGetObjById($oIE, "J_SubmitStatic")
Sleep(1000)
_IEAction($Submit, "click")
Sleep(2550)
|