'－－－－－－－－－－開(kāi)始－－－－－－－－－－－
<br>Private Sub Command1_Click()
<br>  Dim vTag, vDoc
<br>  Dim Allcount, i
<br>  List1.Clear
<br>  Set vDoc = WebBrowser1.Document.All
<br>  Allcount = vDoc.length
<br>  For i = 0 To Allcount - 1
<br>  If UCase(vDoc.Item(i).TagName) = &quot;A&quot; Then '找到URL
<br>  vTag = vDoc.Item(i).href
<br>  If InStr(vTag, &quot;http://dhunter.51.net&quot;) Then '檢測(cè)URL中是否含有http://dhunter.51.net
<br>  List1.AddItem vDoc.Item(i).href '如果有,則添加到list1中
<br>  End If
<br>  End If
<br>  Next i
<br>  End Sub
<br>Private Sub Form_Load()
<br>  WebBrowser1.Navigate &quot;http://dhunter.51.net&quot;
<br>  End Sub
<br>'－－－－－－－－－－結(jié)束－－－－－－－－－－－
<br>　　六、當(dāng)然就是測(cè)試了，點(diǎn)運(yùn)行按鈕，我們可以看到，我們的webbrowser打開(kāi)了http://dhunter.51.net，等網(wǎng)頁(yè)基本下載結(jié)束再點(diǎn)command1按鈕，我們可愛(ài)的webbrowser就把找到的含有http://dhunter.51.net的URL都加入到list1中了。
<br>有了這些我們就可以開(kāi)始做自己的模擬器了，當(dāng)然更多的技巧，更多的方法還要靠你來(lái)實(shí)現(xiàn)。
<br>－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
<br>  歡迎轉(zhuǎn)載
<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>&nbsp;&nbsp;&nbsp;<a href="javascript:tomail('181779');"><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">如果你認(rèn)為模擬之家BBS不錯(cuò)，請(qǐng)為我們投上一票，謝謝你的支持！</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>
模擬之家訪問(wèn)統(tǒng)計(jì)：<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/mood0.gif"> <a href="/cgi-bin/bbs/view?forum=emuhome&message=181780">8套，那個(gè)下電影的軟件地址是什么</a> [<a href="http://www.xilu.com/cgi-bin/passmail?nick=alexhj" target=_blank><font color="darkblue" >alexhj</font></a>] <font color="#0000FF">0</font>字節(jié) <a href="topview?forum=emuhome&message=181780" target=_blank><font color="#008080">07.16 23:07</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('181779'); target=bbsview><img src="/img/bbs/mood9.gif" width="15" height="15"    alt="表情" border=0></a></td>    <td width="97%" valign="top"><a href="view?forum=emuhome&message=181779"   ><font color=red>VB制作簡(jiǎn)單模擬器教程入門(mén)版（三） </font></a>     [<a href="http://www.xilu.com/cgi-bin/passmail?nick=真的是假mm" target=_blank><font color="#FF80FF">真的是假mm</font></a>]     <font color="#0000FF">1k</font>字節(jié) <a href="topview?forum=emuhome&message=181779" target=_blank><font color="#008080">07.16 22:56</font></a> <font color="#800000">52</font>次</td>  </tr></table><img src="/img/bbs/mood0.gif"> <a href="/cgi-bin/bbs/view?forum=emuhome&message=181778">cctv4好神密，狼孩搞個(gè)調(diào)查，看看他是哪位老友？ </a> [<a href="http://www.xilu.com/cgi-bin/passmail?nick=cctt8" target=_blank><font color="darkblue" >cctt8</font></a>] <font color="#0000FF">0</font>字節(jié) <a href="topview?forum=emuhome&message=181778" target=_blank><font color="#008080">07.16 22:55</font></a> <font color="#800000">4</font>次<br></p>推薦:<br>&nbsp;&nbsp;&nbsp;&nbsp;<a href="http://love.xilu.com/ztweb/fiction/" target=_blank><font color="red">網(wǎng)上網(wǎng)下情緣小說(shuō)</font></a><br>&nbsp;&nbsp;&nbsp;&nbsp;<a href="http://game.xilu.com/zhuanti/stoneage/001.htm" target=_blank><font color="red">《石器時(shí)代》漫畫(huà)</font></a><br>&nbsp;&nbsp;&nbsp;&nbsp;<a href="http://sms.byair.com.cn/profile/reg.jsp?icp=xilu" target=_blank><font color="red">免費(fèi)試用+諾基亞8250手機(jī)，白送還不搶！<font></a><br><form action="post?forum=emuhome&reply=181779&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">注冊(cè)</font></a>]<br>       密　　碼: <input maxLength="10" name="passwd" size="10" type="password" value=""><br>              E-mail :&nbsp; <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>        &nbsp; <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="無(wú)聊" 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="反對(duì)" 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="疑問(wèn)" height="15" src="/img/bbs/mood3.gif" width="15"></td>            <td vAlign="top" width="29" height="20"><img alt="難過(guò)" 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>                標(biāo)&nbsp; 題:                   <input maxLength="119" name="subject" size="35" value="回復(fù):VB制作簡(jiǎn)單模擬器教程入門(mén)版（三）" >    <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>個(gè)人簽名</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">                無(wú) </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ā)表色情、反動(dòng)和其他違反國(guó)家法規(guī)的言論;         <br>        　　　　 2. 禁止發(fā)表惡意攻擊他人的言論; <br>        　　　　 3. 任何轉(zhuǎn)載或轉(zhuǎn)貼都應(yīng)注明真實(shí)作者和真實(shí)出處； </td>      <td width="21%" align="center"> <a href="http://www.xilu.com/law" target=_blank>         <font color="#FF0000">=>相關(guān)詳細(xì)說(shuō)明</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>