everyone 发表于 2009-6-18 13:13:42

这个网页怎么自动登录

<p><font face="Verdana"><a href="http://www.sdo.com/loginPT.asp">http://www.sdo.com/loginPT.asp</a></font></p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>账号密码输入部分的源码如下：</p>
<p>&nbsp;</p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;table width="220" border="0" cellspacing="0" cellpadding="2" id="ptid"&gt;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;tr align="left"&gt;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;td width="90"&gt;盛大通行证：&lt;/td&gt;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;td width="122"&gt;&lt;input name="ptname" id="ptname" type="text" size="16" maxlength="50" title="(为了提高您帐号的安全性，建议您使用通行证帐号登录)"&gt;&lt;/td&gt;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;/tr&gt;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&lt;tr align="left"&gt;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;td width="90"&gt;密码：&lt;/td&gt;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;td width="122"&gt;&lt;input name="ptpwd" id="ptpwd" type="password" size="16" maxlength="20"&gt;&lt;/td&gt;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;/tr&gt;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &lt;/table&gt;</font> </p>
<p>&nbsp;</p>
<p>以前都是用的 value=。。。</p>
<p>这个没有，不知道怎么搞了。。。。。。。。</p>

马大哈 发表于 2009-6-21 16:32:45

<p>这两个输入框都有ID,那就简单得很啊.</p>

马大哈 发表于 2009-6-21 16:33:12

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>
<p><font face="Verdana">Option Explicit</font></p>
<p><font face="Verdana">Private Const sURL As String = "http://www.sdo.com/loginPT.asp"</font></p>
<p><font face="Verdana">Private Sub Form_Load()<br/>&nbsp;&nbsp;&nbsp; WebBrowser1.Navigate sURL<br/>End Sub</font></p>
<p><font face="Verdana">Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)<br/>&nbsp;&nbsp;&nbsp; If URL = sURL Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim Ele As Object<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set Ele = WebBrowser1.Document.getElementById("ptname")&nbsp;&nbsp;&nbsp;&nbsp; '根据ID取得对象<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Ele.Value = "www.m5home.com"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set Ele = WebBrowser1.Document.getElementById("ptpwd")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '根据ID取得对象<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Ele.Value = "www.m5home.com"<br/>&nbsp;&nbsp;&nbsp; End If<br/>End Sub</font></p></b></div>
<p>测试通过.</p>

woshiliulala 发表于 2009-6-20 10:14:56

<p>用啊循环或者就用sendkeys算了</p>
页: [1]
查看完整版本: 这个网页怎么自动登录