不含表单的网页自动登陆?

wuluck

http://www.returnees.org.cn/call/login.php

网页自动登陆看教程.都有叫表单的家伙.这个没表单.怎么搞?

lynfr8

<H2>用户登录 Member Login</H2>
<DIV class=new_login>
<TABLE style="MARGIN: 10px 0px 0px" cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD align=right width="33%" height=22>Username:</TD>
<TD width="67%"><INPUT class="userform msg_error" id=log_email
onblur=_DoEmailValid(); maxLength=50
name=log_email></TD></TR>
<TR>
<TD align=right height=22> </TD>
<TD id=log_1>
<DIV class=log_error id=log_email_err>请输入您的用户名。</DIV></TD></TR>
<TR>
<TD align=right height=22>Password:</TD>
<TD><INPUT class=userform onkeypress=_DoLoginSubmit(event); id=log_passwd
onblur=_DoPasswdValid(); type=password maxLength=50 value=""
name=log_passwd></TD></TR>
<TR>
<TD height=22> </TD>
<TD id=log_2></TD></TR>
<TR>
<TD height=22> </TD>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width=76 height=35><A onfocus=this.blur();
onclick="_DoLoginProcess(); return false;" href="javascript:void(0);"><IMG
src="images/bottom.gif"></A></TD>
<TD width=91> </TD>
<TD vAlign=top align=middle width=75><A onfocus=this.blur();
href="register.php"><IMG src="images/bottom1.gif" border=0></A></TD>
<TD width=66> </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></DIV>
--------------------------------------------------------------------------
测不到表单不代表一定无法自动登录
网页源码红色部分为重点

#include <IE.au3>
$oIE = _IECreate ("http://www.returnees.org.cn/call/login.php")
$a=_IEGetObjByName($oIE,"log_email")
$b=_IEGetObjByName($oIE,"log_passwd")
_IEFormElementSetValue ($a, "lynfr8");账号
_IEFormElementSetValue ($b, "AutoIt");密码
_IEImgClick ($oIE, "images/bottom.gif", "src")

wuluck

多谢了.我经过查找.和抄袭 发现这个
#include <GUIConstants.au3>
#include <IE.au3>

$oIE = _IECreate("http://www.returnees.org.cn/call/login.php",0,1,1,1 )

_IELoadWait ($oIE)

$UserName = _IEGetObjById ($oIE, "log_email")
If IsObj($UserName) Then $UserName.value = "用户名"
$PassWord = _IEGetObjById ($oIE, "log_passwd")         ;Password_Edit 这个可能错误，我一直找不正确
If IsObj($PassWord) Then $PassWord.value = "密码"
$submit = _IEGetObjByName ($oIE, "Submit")
If IsObj($submit) Then $submit.click

这个也能登陆.等我好好再学习看看

wuluck

好像差不多.学习

lynfr8

;Password_Edit 这个可能错误，我一直找不正确

呵呵，你找到的是正确的

bob

呵呵，3楼很有学习精神
但最后一步的，登陆方式还是要用楼主！

或者直接POST登陆即可

askask150

又学到了 谢谢楼主