使用AutoIt自動登入sohu搜狐網頁郵箱的代碼

#include <Date.au3>

#include <IE.au3>

MsgBox(64, "通知 -by liyi", "5秒鐘後登陸郵箱:[email protected]", 5)

$oIE = _IECreate ("http://mail.sohu.com")

Sleep(2000)

$oForm = _IEFormGetObjByName ($oIE, "loginform")

$oQuery = _IEFormElementGetObjByName ($oForm, "email")

_IEFormElementSetValue ($oQuery, "[email protected]")

$oQuery = _IEFormElementGetObjByName ($oForm, "password")

_IEFormElementSetValue ($oQuery, "password")

$oInputs = _IETagNameGetCollection ($oIE, "input")

For $oInput In $oInputs

If $oInput.value = "登 錄" Then _IEAction($oInput,"click")

Next

MsgBox(64, "通知 -by liyi", "25秒鐘後退出郵箱", 25)

_IELinkClickByText ($oIE,"退出")

MsgBox(64, "通知 -by liyi", "5秒鐘後關閉IE", 5)

_IEQuit ($oIE)