【求助】如何用登录这个这个网站？

ok100fen

<span class="bold">如何用vb6登录这个这个网站？</span><br/><br/>
<div style="FONT-SIZE: 12px">如何用vb6登录这个这个网站？<br/>就是我知道用户，密码，<br/>如何能在窗体上弄一个按钮，<br/>只要我一点这个按钮，<br/>就登录上了这个网站？<br/><br/>谢谢大家<br/>另外，你见过这么长的网址吗？<br/><br/><a href="http://218.202.107.178:8081/aincs/webpage/index.jsp?SelfSessionKey=000000000000001a49444c3a687474702f52657150726f636573736f723a312e300000000000000100000000000000ac000102000000000c31302e3232302e332e313900ff8400000000004900504d43000000000000001a49444c3a687474702f52657150726f636573736f723a312e300020200000000974635f61696e6373002020200000000d2f746f6d636174345f706f6100000000000000035649530300000005000507017f000000000000000000000800000000564953000000000100000018000000000001000100000001050100010001010900000000_7A1B861487D6AFEDE237964589A17B26" target="_blank">http://218.202.107.178:8081/ainc ... FEDE237964589A17B26</a></div>

马大哈

<p>解决了吗?</p>

ok100fen

<p>没有啊</p>
<p>正等着你呢</p>

ok100fen

<p>&nbsp;继续等...............................</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>

马大哈

<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://218.202.107.178:8081/aincs/webpage/index.jsp?SelfSessionKey=000000000000001a49444c3a687474702f52657150726f636573736f723a312e300000000000000100000000000000ac000102000000000c31302e3232302e332e313900ff8400000000004900504d43000000000000001a49444c3a687474702f52657150726f636573736f723a312e300020200000000974635f61696e6373002020200000000d2f746f6d636174345f706f6100000000000000035649530300000005000507017f000000000000000000000800000000564953000000000100000018000000000001000100000001050100010001010900000000_7A1B861487D6AFEDE237964589A17B26"</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("mobileno")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&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.getElementsByName("password")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '根据Name取得对象<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Ele(0).Value = "www.m5home.com"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set Ele = WebBrowser1.Document.getElementsByName("operVerifyCode")&nbsp; '根据Name取得对象<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Ele(0).Value = "www.m5home.com"<br/>&nbsp;&nbsp;&nbsp; End If<br/>End Sub</font></b></p></div>
<p>用ID与NAME可以得到对象,然后赋值即可.</p>