📄 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>
模拟之家访问统计：<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">我的论坛现在成了聊天室了，现在已经有44万贴了，倒~</a> [<a href="http://www.xilu.com/cgi-bin/passmail?nick=碧海临风" target=_blank><font color="darkblue" >碧海临风</font></a>] <font color="#0000FF">0</font>字节 <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>字节 <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>字节 <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>字节 <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="发送提交" 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. 禁止发表色情、反动和其他违反国家法规的言论; <br> 2. 禁止发表恶意攻击他人的言论; <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 + -