📄 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 = '请输入将要转移的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%">字节: <font color="yellow">3k</font> 点击:<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="全屏与半屏之间转换"><font color=#008080>全/半屏</font></a></td> <td align="center" width="6%"><a href="javascript:tobbs('180931');" title="将该贴转向其他版"><font color=#008080>转移</font></a></td> <td align="center" width="6%"><a href="javascript:tomail('180931');" title="将该贴发往E-Mail"><font color=#008080>打包</font></a></td> <td align="center" width="6%"><a href="postform?forum=emuhome&message=new" title="发布新贴子"><font color=#008080>发贴</font></a></td> <td align="center" width="6%"><a href="postform?forum=emuhome&message=180931&font=10.5" title="回复这个贴子"><font color=#008080>回复</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="网灵通,网上联络的好工具!" ><font color=#008080>在线网友</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="关于BBS功能的详细说明"><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="单击给他发信"><font color=#000000>真的是假mm</font></a><span style="font-family: 宋体; font-size: 9pt">(<a href="javascript:parent.viewip('180931');" title="点击这里,版主可以察看IP."><font color=#000000>xxx.xxx.xxx.xxx</font></a>)</span> 07.15 15:14 </td> </tr> </tr></table><br>第二讲 如何用VB的webbrowser提交一个含有用户名和密码的网页
<br> 上次我们知道了怎样打开一个网页，今天我们就来看看怎样迈开赚钱的第一步。
<br> 下面我们就开始迈步了：
<br> 一、先打开VB新建一个工程
<br> 二、在工具条上点右键选部件（我用的是中文版VB）或者选工程菜单，点部件
<br> 三、找到Microsoft Internet Controls，在前面打挑，然后确认就可以看到在工具条上多出来一个地球样的图标，我们以后的实现就都围绕着他来进行了。
<br> 四、添加一个WebBrowser1到Form1中，再添加一个command1到Form1中
<br> 五、在Form1中添加如下代码：（以上都是我们上一讲里说过的，应该很熟悉了吧）
<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 '检测所有标签
<br> If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
<br> Set vTag = vDoc.All(i)
<br> If vTag.Type = "text" Or vTag.Type = "password" Then '看看是不是我们需要的
<br> Select Case vTag.Name '按标签的名字,对号操做
<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>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -