?? vb制作簡單模擬器教程入門版（二）.htm
字號:
<html><head><title>VB制作簡單模擬器教程入門版（二） </title><meta content="text/html; charset=gb2312" http-equiv="Content-Type"><style type=text/css>td { font-family: "宋體"; font-size: 10.5pt}body { font-family: "宋體"; font-size: 10.5pt}A:link {COLOR: #000000; TEXT-DECORATION: none}A:visited {COLOR: #808080;TEXT-DECORATION: none}A:hover {COLOR: #ff0000; TEXT-DECORATION: underline}</style><script language="javascript"><!-- var str; var temp; var message; function viewit(str){ temp = 'view?forum=emuhome&file='+str; window.open(temp," ","width=700,height=480,scrollbars=yes,"); } var Then = new Date(); Then.setTime(Then.getTime() + 60*60*1000*24*2); document.cookie="loginuser=guest87681;path=/;expires="+Then.toGMTString(); function viewonline(){ var session; session=parent.session; this.location = 'http://bbs.xilu.com/cgi-bin/bbs/tools/showonline?&session='+session; } function resetit(){ document.postform.nickname.value=parent.nickname; document.postform.passwd.value=parent.passwd; document.postform.email.value=parent.email; } var adminnick = ''; var adminpass =''; function delit(str){ var message; var temp; if (adminnick == '' || adminpass == ''){ if (str == ''){ alert('文件號不對'); return; } message = '請輸入版主代號(只需輸入一次):'; temp =prompt(message, ''); if (temp == null){ return; } else { adminnick = temp; } message = '請輸入版主密碼(只需輸入一次):'; temp =prompt(message, ''); if (temp == null){ return; } else { adminpass = temp; } } else { message = '注意:您是否要刪除此貼?'; if (!confirm(message)) { return; } } this.location = 'del?forum=emuhome&message='+str+'&passwd='+adminpass+'&nick='+adminnick; return; } function refinebbs(str){ var message; var temp; if (adminnick == '' || adminpass == ''){ if (str == ''){ alert('文件號不對'); return; } message = '請輸入版主代號(只需輸入一次):'; temp =prompt(message, ''); if (temp == null){ return; } else { adminnick = temp; } message = '請輸入版主密碼(只需輸入一次):'; temp =prompt(message, ''); if (temp == null){ return; } else { adminpass = temp; } } this.document.refine.nickname.value = adminnick; this.document.refine.passwd.value = adminpass; this.document.refine.messageno.value = str; this.document.refine.submit(); return; } function tomail(str){ message = '請輸入Email地址:'; temp =prompt(message, ''); if (temp == null){ return; } else { this.location = 'tomail?forum=emuhome&message='+str+'&email='+temp; } } function tobbs(str){ message = '請輸入將要轉(zhuǎn)移的bbs英文代號:'; temp =prompt(message, ''); if (temp == null){ return; } else { this.document.tobbsform.forum.value = 'emuhome'; this.document.tobbsform.message.value = str; this.document.tobbsform.copyto.value = temp; this.document.tobbsform.submit(); } } function payment(){ this.document.tougao.submit(); } function scorebbs(str){ this.document.score.quality.value=str; this.document.score.submit(); }//--></script><form name="refine" action="refinebbs?forum=emuhome" method="post" ><input type="hidden" name="nickname" value=""><input type="hidden" name="passwd" value=""><input type="hidden" name="messageno" value=""></form><form name="tougao" action="http://bbs.xilu.com/cgi-bin/tougao/sendfile" method="post" target="_blank"><input type="hidden" name="etitle" value="emuhome"><input type="hidden" name="subject" value="VB制作簡單模擬器教程入門版（二）"><input type="hidden" name="nickname" value="真的是假mm"><input type="hidden" name="messageno" value="180931"></form><form name="tobbsform" action="http://bbs.xilu.com/cgi-bin/bbs/tobbs" method="post" target="bbsview"><input type="hidden" name="forum" value=""><input type="hidden" name="copyto" value=""><input type="hidden" name="message" value="180931"></form><form name="score" action="view?forum=emuhome&message=180931" method="post" target="bbsview"><input type="hidden" name="quality" value=""></form></head><body background="http://" bgcolor="#ECEBF1" link=#000000 vlink=#808080><p><a name="top"></a></p><table border="0" width="100%" cellpadding="2" cellspacing="0"> <tr> <td width="50%" bgcolor="#8BB4F1"><p align="left"> </font><a href=bbs?forum=emuhome target=_parent><font color="#FFFFFF"> 【 模擬之家BBS[emuhome.xilubbs.com] 】</font></a></td> <td align="right" bgcolor="#8BB4F1" width="50%">字節(jié): <font color="yellow">3k</font> 點(diǎn)擊:<font color="blue">54</font>次 <img src="/img/bbs/goodbbs.gif" width="15" height="16" border=0><font color="#FF80FF">0</font> <img src="/img/bbs/badbbs.gif" width="15" height="16" border=0>0 序號:<font color="red"><b>180931</b></font></td> </tr></table><table border="0" cellPadding="0" cellSpacing="1" width="100%"><TBODY> <tr> <td width="100%"><img src="/img/bbs/mood1.gif" width="15" height="15"><b>VB制作簡單模擬器教程入門版（二） </b></td> </tr></TBODY></table><TABLE bgColor=#aaddff border=1 borderColor=#ffffff borderColorLight=#57542b cellPadding=0 cellSpacing=0 width="100%"><TBODY> <tr> <td width="11%" align="center" height="14"><a href="/cgi-bin/bbs/personregist?forum=emuhome" target=_blank title="成為本版會員"><font color=#008080>注冊成員</font></a></td> <td align="center" width="10%"><a href="javascript:parent.screen();" target="bbsview" title="全屏與半屏之間轉(zhuǎn)換"><font color=#008080>全/半屏</font></a></td> <td align="center" width="6%"><a href="javascript:tobbs('180931');" title="將該貼轉(zhuǎn)向其他版"><font color=#008080>轉(zhuǎn)移</font></a></td> <td align="center" width="6%"><a href="javascript:tomail('180931');" title="將該貼發(fā)往E-Mail"><font color=#008080>打包</font></a></td> <td align="center" width="6%"><a href="postform?forum=emuhome&message=new" title="發(fā)布新貼子"><font color=#008080>發(fā)貼</font></a></td> <td align="center" width="6%"><a href="postform?forum=emuhome&message=180931&font=10.5" title="回復(fù)這個貼子"><font color=#008080>回復(fù)</font></a></td> <td align="center" width="6%"><a href="javascript:payment();" title="將該文章投稿"><font color=#008080>投稿</font></a></td> <td align="center" width="6%"><a href="http://bbs.xilu.com/cgi-bin/bbs/tuijian?etitle=emuhome&messageno=180931"><font color=#008080>推薦</font></a></td> <td align="center" width="6%"><a href="javascript:parent.delit('180931');" title="將該貼刪除"><font color=#008080>刪除</font></a></td> <td width="11%" align="center" height="14"><a href="javascript:parent.refinebbs('180931');"><font color="#008080">精品收藏</font></a></td> <td align="center" width="10%" height="14"><a href="javascript:viewonline();" title="網(wǎng)靈通,網(wǎng)上聯(lián)絡(luò)的好工具!" ><font color=#008080>在線網(wǎng)友</font></a></td> <td align="center" width="10%" height="14"><a href="bbs?forum=emuhome" target=_parent title="刷新BBS"><font color=#008080>BBS索引</font></a></td> <td align="center" width="6%"><a href="http://xiluhelp.xilubbs.com" target=_blank title="關(guān)于BBS功能的詳細(xì)說明"><font color=#008080>幫助</font></a></td> </tr></TBODY></table><table width="100%" border="1" bgcolor="#bbccff" bordercolorlight="#57542b" bordercolor="#ffffff" cellpadding="0" cellspacing="0"> <tr> <td width="80%">作者:<a href="http://www.xilu.com/cgi-bin/passmail?nick=真的是假mm" target=_blank title="單擊給他發(fā)信"><font color=#000000>真的是假mm</font></a><span style="font-family: 宋體; font-size: 9pt">(<a href="javascript:parent.viewip('180931');" title="點(diǎn)擊這里,版主可以察看IP."><font color=#000000>xxx.xxx.xxx.xxx</font></a>)</span> 07.15 15:14 </td> </tr> </tr></table><br>第二講 如何用VB的webbrowser提交一個含有用戶名和密碼的網(wǎng)頁
<br> 上次我們知道了怎樣打開一個網(wǎng)頁，今天我們就來看看怎樣邁開賺錢的第一步。
<br> 下面我們就開始邁步了：
<br> 一、先打開VB新建一個工程
<br> 二、在工具條上點(diǎn)右鍵選部件（我用的是中文版VB）或者選工程菜單，點(diǎn)部件
<br> 三、找到Microsoft Internet Controls，在前面打挑，然后確認(rèn)就可以看到在工具條上多出來一個地球樣的圖標(biāo)，我們以后的實(shí)現(xiàn)就都圍繞著他來進(jìn)行了。
<br> 四、添加一個WebBrowser1到Form1中，再添加一個command1到Form1中
<br> 五、在Form1中添加如下代碼：（以上都是我們上一講里說過的，應(yīng)該很熟悉了吧）
<br> '－－－－－－－－－－開始－－－－－－－－－－－
<br>Private Sub Command1_Click()
<br> Dim vDoc, vTag
<br> Dim i As Integer
<br>
<br> Set vDoc = WebBrowser1.Document
<br> For i = 0 To vDoc.All.length - 1 '檢測所有標(biāo)簽
<br> If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input標(biāo)簽
<br> Set vTag = vDoc.All(i)
<br> If vTag.Type = "text" Or vTag.Type = "password" Then '看看是不是我們需要的
<br> Select Case vTag.Name '按標(biāo)簽的名字,對號操做
<br> Case "EMAILADD"
<br> vTag.Value = "myemail@home.com" '這里寫入你的e-mail
<br> Case "PASSWD"
<br> vTag.Value = "password" '這里寫入你的密碼
<br> End Select
<br> ElseIf vTag.Type = "submit" And vTag.Name = "SUB" And vTag.Value
<br> = "訂閱" Then
<br>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -