如何后台打开一个网页，并通过用户名密码登录？

mbdnmt

如何后台打开一个网页，并通过用户名密码登录？

比如登录以下网站，并输入用户名密码登录

http://www.gdsi.gov.cn:8081/index/grlogin.html

星雨朝霞

#include <IE.au3>
$oIE = _IECreate("http://www.gdsi.gov.cn:8081/index/grlogin.html",1,0) ;打开隐藏的IE窗口
;填表
$Ele = _IEGetObjById($oIE,"loginname")
$Ele.value="身份证号"
$Ele = _IEGetObjById($oIE,"name")
$Ele.value="姓名"
_IEImgClick($oIE,"http://www.gdsi.gov.cn:8081/index/images/btn_cx01.png") ;点击查询
$oIE.visible=1 ;显示此隐藏的IE窗口

kemyliu

#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")

高兴，玩一下，不知是否可以！

mbdnmt

回复 2# 星雨朝霞

我这里运行报错...

mbdnmt

回复 3# kemyliu

有办法后台运行吗？

shqf

真正的后台登录，而不是模拟登录的话，可以用WinHttp.au3库函数中的_WinHttp类函数，也可用基于WinINet, WinHTTP封装的com对象，用curl也不错。论坛搜http或post,你会找到答案的。

xms77

回复 1# mbdnmt
请借鉴：
1. http://www.autoitx.com/forum.php ... =ACN%2B%B5%C7%C2%BC
2. http://www.autoitx.com/forum.php ... hlight=%B5%C7%C2%BC

mbdnmt

回复 6# shqf


感谢~~

mbdnmt

回复 7# xms77

多谢了！~

wzawz

学习了,感谢楼上各位!