?? vb制作簡單模擬器教程入門版（二）.htm
字號:
'找到提交按鈕
<br> vTag.Select '也可以沒有這個
<br> vTag.Click '點擊提交了，一切都OK了
<br> End If
<br> End If
<br> Next i
<br>End Sub
<br>Private Sub Form_Load()
<br> WebBrowser1.Navigate "http://dhunter.51.net"
<br> End Sub
<br>'－－－－－－－－－－結束－－－－－－－－－－－
<br> 六、當然就是測試了，點運行按鈕，我們可以看到，我們的webbrowser打開了http://dhunter.51.net，等網頁基本下載結束再點command1按鈕，我們可愛的webbrowser就把我們剛剛輸入的e-mail和密碼都提交到網頁上了，看到訂閱成功了嗎？那個就是勝利的標志。
<br>好了，先寫這么多，下次我們看一下怎么用webbrowser找到一個網頁中的超連接，對應的就是賺錢連接啊。
<br>
<br> 附錄（相關資料）：
<br> 大家也可以看出來，這次我們是拿http://dhunter.51.net上的那個訂閱郵件列表開刀，下面就是這段網頁的源代碼：
<br> <form method="post" action="http://ml.xilu.com/cgi-bin/ml/client">
<br> <p align="center"><font size="2">
<br> <input type="hidden" name="USERID" value="dhunter">
<br> E-mail:
<br> <input type="text" name="EMAILADD" value="你的E-mail">
<br> <br>
<br> 密 碼 :
<br> <input type="password" name="PASSWD" value="******">
<br> <br>
<br> </font><font size="2">
<br> <input type="submit" value="訂閱" name="SUB">
<br> <input type="submit" value="退訂" name="UNSUB">
<br> </font></p>
<br> </form>
<br> 里面帶input的那些標簽都是接受輸入的，我們這講的主要任務就是找到他們，并且對他們進行操做
<br> －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
<br> <a href="http://dhunter.51.net" target="_blank">http://dhunter.51.net</a><br><br><font color=#ff0000>※※※※※※</font><br><font color=#8000FF> <script src="http://am94.myrice.com/qm.js"></font><br><div align=right> <a href="javascript:tomail('180931');"><font color=#FF6600 >推薦給好友…>></font></a></div></div><script language=javascript>
function newin(url) {
msgWindow=window.open(url,'模擬之家快訊','statusbar=no,scrollbars=yes,status=yes,resizable=yes,width=550,height=370')
}
</script>
<marquee scrolldelay=100 scrollamount=5><font style=font-size:10pt;font-family:宋體>◇ <font color=red>模擬之家重要通知：<a href="http://bbs1.xilu.com/cgi-bin/bbs/view?forum=emuhome&message=174807" target="_blank">如果你認為模擬之家BBS不錯，請為我們投上一票，謝謝你的支持！</a></font><br>◇ <font color=red><script src=http://25emuhome1.www8.cn4e.com/cgi-bin/news/news.cgi?id=news&action=latest></script></font></marquee><br>
模擬之家訪問統(tǒng)計：<script src=http://25emuhome1.www8.cn4e.com/cgi-bin/count/count.cgi></script><br><table border="0" width="100%" height="1" cellspacing="0" cellpadding="0" bgcolor="#89C6DC"><tr><td></td></tr></table><font color="#000000">相鄰貼子:</font><br><img src="/img/bbs/mood1.gif"> <a href="/cgi-bin/bbs/view?forum=emuhome&message=180936">我的論壇現(xiàn)在成了聊天室了，現(xiàn)在已經有44萬貼了，倒~</a> [<a href="http://www.xilu.com/cgi-bin/passmail?nick=碧海臨風" target=_blank><font color="darkblue" >碧海臨風</font></a>] <font color="#0000FF">0</font>字節(jié) <a href="topview?forum=emuhome&message=180936" target=_blank><font color="#008080">07.15 15:20</font></a> <font color="#800000">6</font>次<br><table border="0" width="100%" cellspacing="1" cellpadding="0"> <tr> <td width="0%" valign="top"></td> <td width="3%" valign="top"><a href=javascript:parent.delit('180931'); target=bbsview><img src="/img/bbs/mood1.gif" width="15" height="15" alt="表情" border=0></a></td> <td width="97%" valign="top"><a href="view?forum=emuhome&message=180931" ><font color=red>VB制作簡單模擬器教程入門版（二） </font></a> [<a href="http://www.xilu.com/cgi-bin/passmail?nick=真的是假mm" target=_blank><font color="#FF80FF">真的是假mm</font></a>] <font color="#0000FF">3k</font>字節(jié) <a href="topview?forum=emuhome&message=180931" target=_blank><font color="#008080">07.15 15:14</font></a> <font color="#800000">54</font>次</td> </tr></table><table border="0" width="100%" cellspacing="1" cellpadding="0"> <tr> <td width="5%" valign="top"></td> <td width="3%" valign="top"><a href=javascript:parent.delit('180934'); target=bbsview><img src="/img/bbs/mood4.gif" width="15" height="15" alt="表情" border=0></a></td> <td width="92%" valign="top"><a href="view?forum=emuhome&message=180934" >回復:VB制作簡單模擬器教程入門版（二） </a> [<a href="http://www.xilu.com/cgi-bin/passmail?nick=jeffhuang" target=_blank><font color="darkblue">jeffhuang</font></a>] <font color="#0000FF">10</font>字節(jié) <a href="topview?forum=emuhome&message=180934" target=_blank><font color="#008080">07.15 15:18</font></a> <font color="#800000">26</font>次</td> </tr></table><img src="/img/bbs/mood2.gif"> <a href="/cgi-bin/bbs/view?forum=emuhome&message=180928">假mm:程序在2000下出錯！</a> [<a href="http://www.xilu.com/cgi-bin/passmail?nick=td1" target=_blank><font color="darkblue" >td1</font></a>] <font color="#0000FF">0</font>字節(jié) <a href="topview?forum=emuhome&message=180928" target=_blank><font color="#008080">07.15 15:12</font></a> <font color="#800000">2</font>次<br></p>推薦:<br> <a href="http://love.xilu.com/ztweb/fiction/" target=_blank><font color="red">網上網下情緣小說</font></a><br> <a href="http://game.xilu.com/zhuanti/stoneage/001.htm" target=_blank><font color="red">《石器時代》漫畫</font></a><br> <a href="http://sms.byair.com.cn/profile/reg.jsp?icp=xilu" target=_blank><font color="red">免費試用+諾基亞8250手機，白送還不搶！<font></a><br><form action="post?forum=emuhome&reply=180931&session=&font=10.5"method="post" name="postform"><div align="center"> <center> <table width=100% border="0" cellspacing="0" cellpadding="0"> <TBODY> <tr> <td vAlign="top" width="320" rowspan="3" height="271">作 者: <input maxLength="10" name="nickname" size="10" value="" >[<a href="http://211.99.209.54/cgi-bin/personal/register" target=_blank><font color="#FF0000">注冊</font></a>]<br> 密 碼: <input maxLength="10" name="passwd" size="10" type="password" value=""><br> E-mail : <input maxLength="51" name="email" size="20"><br> 傳送原文給作者信箱:<input name="ifsave" type="checkbox" value="ON"><br> 回貼傳送到作者信箱:<input name="ifreply" type="checkbox" value="ON"><br> 鏈 接: <input name="iturl" size="20" maxLength="100" value="http://"><br> 鏈接名稱: <input name="urlname" maxLength="100" size="20"><br> 圖 片: <input name="img" maxLength="100" size="20" value="http://"><br><input name="bbsnum" type=hidden value="405345"> <br> <input type="reset" value="清除原文"><input type="button" value="重置原文" onclick="javascript:parent.resetit();"> </td> <td vAlign="top" width="29" height="20"><img alt="平靜" height="15" src="/img/bbs/mood0.gif" width="15"></td> <td vAlign="top" width="29" height="20"><img alt="高興" height="15" src="/img/bbs/mood1.gif" width="15"></td> <td vAlign="top" width="29" height="20"><img alt="生氣" height="15" src="/img/bbs/mood2.gif" width="15"></td> <td vAlign="top" width="29" height="20"><img alt="大笑" height="15" src="/img/bbs/mood9.gif" width="15"></td> <td vAlign="top" width="29" height="20"><img alt="鬼臉" height="15" src="/img/bbs/mood11.gif" width="15"></td> <td vAlign="top" width="29" height="20"><img alt="無聊" height="15" src="/img/bbs/mood10.gif" width="15"></td> <td vAlign="top" width="29" height="20"><img alt="好奇" height="15" src="/img/bbs/mood8.gif" width="15"></td> <td vAlign="top" width="29" height="20"><img alt="同意" height="15" src="/img/bbs/mood4.gif" width="15"></td> <td vAlign="top" width="29" height="20"><img alt="反對" height="15" src="/img/bbs/mood5.gif" width="15"></td> <td vAlign="top" width="29" height="20"><img alt="靈感" height="15" src="/img/bbs/mood7.gif" width="15"></td> <td vAlign="top" width="29" height="20"><img alt="疑問" height="15" src="/img/bbs/mood3.gif" width="15"></td> <td vAlign="top" width="29" height="20"><img alt="難過" height="15" src="/img/bbs/mood12.gif" width="15"></td> <td vAlign="top" width="29" height="20"><img alt="大哭" height="15" src="/img/bbs/mood13.gif" width="15"></td> <td vAlign="top" width="29" height="20"><img alt="害羞" height="17" src="/img/bbs/mood14.gif" width="15"></td> <td vAlign="top" width="29" height="20"><img alt="呸!" height="15" src="/img/bbs/mood17.gif" width="15"></td> <td vAlign="top" width="29" height="20"><img alt="帥呆了" height="15" src="/img/bbs/mood18.gif" width="15"></td> </tr> <tr> <td vAlign="top" width="29" height="20"> <input name="mood" type="radio" value="mood0" checked></td> <td vAlign="top" width="29" height="20"> <input name="mood" type="radio" value="mood1"></td> <td vAlign="top" width="29" height="20"> <input name="mood" type="radio" value="mood2"></td> <td vAlign="top" width="29" height="20"> <input name="mood" type="radio" value="mood9"></td> <td vAlign="top" width="29" height="20"> <input name="mood" type="radio" value="mood11"></td> <td vAlign="top" width="29" height="20"> <input name="mood" type="radio" value="mood10"></td> <td vAlign="top" width="29" height="20"> <input name="mood" type="radio" value="mood8"> </td> <td vAlign="top" width="29" height="20"> <input name="mood" type="radio" value="mood4"> </td> <td vAlign="top" width="29" height="20"> <input name="mood" type="radio" value="mood5"> </td> <td vAlign="top" width="29" height="20"> <input name="mood" type="radio" value="mood7"></td> <td vAlign="top" width="29" height="20"> <input name="mood" type="radio" value="mood3"> </td> <td vAlign="top" width="29" height="20"> <input name="mood" type="radio" value="mood12"> </td> <td vAlign="top" width="29" height="20"> <input name="mood" type="radio" value="mood13"> </td> <td vAlign="top" width="29" height="20"> <input name="mood" type="radio" value="mood14"> </td> <td vAlign="top" width="29" height="20"> <input name="mood" type="radio" value="mood17"> </td> <td vAlign="top" width="29" height="20"> <input name="mood" type="radio" value="mood18"> </td> </tr> <tr> <td vAlign="top" colspan="16" height="231" width="447"> <p align="center"><br> 標 題: <input maxLength="119" name="subject" size="35" value="回復:VB制作簡單模擬器教程入門版（二）" > <input type="submit" value="提交"> <br> <br> <table border="0" width="97%" cellpadding="0" cellspacing="0"><tr><center> <td width="2%"><img src="/img/bbs/corner01.gif"></td> <td bgcolor="#AADDFF" width="15%"> <div align="center"><a href="http://www.xilu.com/cgi-bin/chanprof" target=_blank>個人簽名</a></div> </td></center> <td background="/img/bbs/middlebkd.gif" width="3%"><img src="/img/bbs/corner.gif"></td> <td background="/img/bbs/middlebkd.gif" width="76%"> <div align="center"> <input type="radio" value="1" checked name="radiosign"> 簽名一 <input type="radio" value="2" name="radiosign"> 簽名二 <input type="radio" value="3" name="radiosign"> 簽名三 <input type="radio" value="0" name="radiosign"> 無 </div> </td><td width="4%"><div align="left"><img src="/img/bbs/right.gif"></div></td></tr></table> <textarea cols="50" name="body" rows="8"></textarea> <br> <br> <input type="submit" value="發(fā)送提交" name="submit"> </td> </tr> </TBODY> </table> </center> </div><br> <table width="100%" border="1" cellspacing="0" cellpadding="6" bordercolorlight="#000066" bordercolordark="#CEE7FF" bgcolor="#CEE7FF"> <tr> <td width="79%"> <font color="#FF0000">鄭重聲明:</font>1. 禁止發(fā)表色情、反動和其他違反國家法規(guī)的言論; <br> 2. 禁止發(fā)表惡意攻擊他人的言論; <br> 3. 任何轉載或轉貼都應注明真實作者和真實出處； </td> <td width="21%" align="center"> <a href="http://www.xilu.com/law" target=_blank> <font color="#FF0000">=>相關詳細說明</font></a> </td> </tr> </table> <input type="hidden" value="" name="session"> </form> <SCRIPT LANGUAGE="JavaScript"><!-- Hidefunction killErrors() {return true;}window.onerror = killErrors;// --> document.postform.nickname.value=parent.nickname; document.postform.passwd.value=parent.passwd; document.postform.email.value=parent.email; document.postform.session.value=parent.session; </script><p align="right"><a href="#top"><font color=#008080>返回頂部</font></a></p></body></html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -