你说的方法是获取网页源码吗?然后用正则表达式?
http://www.autoitx.com/forum.php?mod=viewthread&tid=4285&highlight=IE这个帖子吧? 1.成功后应该出现个文本啥的.(已成功登录,退出什么的)(检测这个对象存不存在)
2.成功后应该有不同的文本,检测这个文本存不存在. 回复 18# thesnow
难到方法就是读取网页原代码吗?从点击登陆之后的原代码中获取信息?
我刚测试了一下,http://pass.kingsoft.com/ksgweb/jsp/login/Register.jsp
在登陆前后的原代码就没有变的.你不想告诉我太多没关系,我只想知道服务器返回的那些信息(比如密码错误等)都放在什么地方?如果可以从网页中得到,请告诉哪个网页就OK. 举个例子:
http://my.qq.com/
1.成功后应该出现个文本啥的.(已成功登录,退出什么的)(检测这个对象存不存在)
打开有个用户登录的按钮.
2.成功后应该有不同的文本,检测这个文本存不存在.
登录后有个"欢迎您XXX"的文本和一个退出按钮.
思路比实现重要.我给你写出代码,你没明白,等于没写. 回复 1# yiruirui
拿去自己改吧,没有技术含量{:face (270):}#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("登录新浪微博", 617, 516, 192, 124)
$Obj = _IECreateEmbedded()
$Obj_ctrl = GUICtrlCreateObj($Obj, 0, 0, 614, 476)
$Label1 = GUICtrlCreateLabel("用户名:", 6, 488, 43, 17)
$Input1 = GUICtrlCreateInput("", 50, 486, 121, 21)
$Label2 = GUICtrlCreateLabel("密码:", 178, 488, 31, 17)
$Input2 = GUICtrlCreateInput("", 210, 486, 121, 21)
$Button1 = GUICtrlCreateButton("登录", 346, 484, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_login(GUICtrlRead($Input1),GUICtrlRead($Input2))
EndSwitch
WEnd
Func _login($name,$pass)
$oHTTP = ObjCreate("microsoft.xmlhttp")
$oHTTP.Open("post","http://login.sina.com.cn/sso/login.php?client=ssologin.js(v1.3.9)",false)
$oHTTP.setRequestHeader("Cache-Control", "no-cache")
$oHTTP.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
$oHTTP.setRequestHeader("Content-Length","298")
$oHTTP.Send("service=miniblog&client=ssologin.js(v1.3.9)&entry=miniblog&encoding=utf-8&gateway=1&savestate=0&from=&useticket=0&username="&$name&"&password="&$pass&"&url=http:\\t.sina.com.cn\ajaxlogin.php?framelogin=1&callback=parent.sinaSSOController.feedBackUrlCallBack&returntype=META")
$a = $oHTTP.responseText
if StringInStr($a,"sina sso crossdomain") then
_IENavigate($Obj, "http://t.sina.com.cn")
Else
MsgBox(0,"","用户名或密码错误!")
EndIf
EndFunc 回复 21# guland
多谢斑竹!
页:
1
[2]