#include <WindowsConstants.au3>
#include <IE.au3>
Dim $UserID,$UserName
$UserID="123242411111111111"
$UserName="周杰伦"
_IEErrorHandlerRegister()
$oIE = _IECreateEmbedded()
$Form1=GUICreate("广东省社保查询器", 800, 600,-1, -1,$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
GUICtrlCreateObj($oIE, 0, 0, 800, 600)
GUISetState() ;显示GUI
_IENavigate($oIE, "http://www.gdsi.gov.cn:8081/index/grlogin.html")
$oForm = _IEFormGetObjByName ($oIE, "Form1")
$oQuery_userID = _IEFormElementGetObjByName ($oForm, "loginname")
_IEFormElementSetValue ($oQuery_userID,$UserID)
$oQuery_username = _IEFormElementGetObjByName ($oForm, "name")
_IEFormElementSetValue ($oQuery_username,$UserName)
$oQuery_LogIn = _IEFormElementGetObjByName ($oForm, "center")
_IEAction($oQuery_LogIn ,"click")
MsgBox(0,"tt","OK")
高兴,玩一下,不知是否可以! |