|
#include <IE.au3>
$oIE = _IECreate ("http://mail.163.com")
WinSetState(_IEPropertyGet ($oIE,"hwnd"),"",@SW_MAXIMIZE)
_IELoadWait ($oIE)
$oForm = _IEFormGetObjByName ($oIE, "login163")
$oQuery = _IEFormElementGetObjByName ($oForm, "username")
_IEFormElementSetValue ($oQuery, "你的帐号")
$oQuery = _IEFormElementGetObjByName ($oForm, "password")
_IEFormElementSetValue ($oQuery, "你的密码")
$oQuery = _IEFormElementGetObjByName ($oForm, "selType")
_IEFormElementOptionSelect ($oQuery , 1, 0, "byIndex")
_IEFormElementCheckboxSelect ($oForm, 0, "", 0, "byIndex")
_IEFormElementCheckboxSelect ($oForm, 1, "", 0, "byIndex")
$Elements = _IEFormElementGetCollection($oform)
For $Element In $Elements
If $Element.type = "Submit" Then $Element.click
Next
如何再点收信呀 |
|