佣金中国 » 英文网站赚钱 » VB制作简单模拟器教程入门版（二）

gdljf 发表于 2003-12-10 02:14

VB制作简单模拟器教程入门版（二）

[Post=88]VB制作简单模拟器教程入门版（二） （作者dyugao）
第二讲　如何用VB的webbrowser提交一个含有用户名和密码的网页
上次我们知道了怎样打开一个网页，今天我们就来看看怎样迈开赚钱的第一步。
下面我们就开始迈步了：
一、先打开VB新建一个工程
二、在工具条上点右键选部件（我用的是中文版VB）或者选工程菜单，点部件
三、找到Microsoft Internet Controls，在前面打挑，然后确认就可以看到在工具条上多出来一个地球样的图标，我们以后的实现就都围绕着他来进行了。
四、添加一个WebBrowser1到Form1中，再添加一个command1到Form1中
五、在Form1中添加如下代码：（以上都是我们上一讲里说过的，应该很熟悉了吧）
'－－－－－－－－－－开始－－－－－－－－－－－
Private Sub Command1_Click()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "text" Or vTag.Type = "password" Then '看看是不是我们需要的
Select Case vTag.Name '按标签的名字,对号操做
Case "EMAILADD"
vTag.Value = "myemail@home.com" '这里写入你的e-mail
Case "PASSWD"
vTag.Value = "password" '这里写入你的密码
End Select
ElseIf vTag.Type = "submit" And vTag.Name = "SUB" And vTag.Value
= "订阅" Then
'找到提交按钮
vTag.Select '也可以没有这个
vTag.Click '点击提交了，一切都OK了
End If
End If
Next i
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://dhunter.51.net"
End Sub
'－－－－－－－－－－结束－－－－－－－－－－－
六、当然就是测试了，点运行按钮，我们可以看到，我们的webbrowser打开了http://dhunter.51.net，等网页基本下载结束再点command1按钮，我们可爱的webbrowser就把我们刚刚输入的e-mail和密码都提交到网页上了，看到订阅成功了吗？那个就是胜利的标志。
好了，先写这么多，下次我们看一下怎么用webbrowser找到一个网页中的超连接，对应的就是赚钱连接啊。

[/Post]
[align=right][color=#000066][此贴子已经被作者于2003-12-9 18:39:19编辑过][/color][/align]

gdljf 发表于 2003-12-10 02:14

[replyview]
大家也可以看出来，这次我们是拿http://dhunter.51.net上的那个订阅邮件列表开刀，下面就是这段网页的源代码：
<form method="post" action="http://ml.xilu.com/cgi-bin/ml/client">
<p align="center"><font size="2">
<input type="hidden" name="USERID" value="dhunter">
E-mail:
<input type="text" name="EMAILADD" value="你的E-mail">


密　码 :
<input type="password" name="PASSWD" value="******">


</font><font size="2">
<input type="submit" value="订阅" name="SUB">
<input type="submit" value="退订" name="UNSUB">
</font></p>
</form>
里面带input的那些标签都是接受输入的，我们这讲的主要任务就是找到他们，并且对他们进行操做

[/replyview]
[align=right][color=#000066][此贴子已经被作者于2003-12-9 18:40:13编辑过][/color][/align]

gujincheng 发表于 2003-12-11 18:34

努力发帖

boying 发表于 2003-12-16 04:04

还不够贴数

乱世 发表于 2003-12-17 06:35

唉～新来的，帖树不够啊

Redwood 发表于 2003-12-20 22:23

向你学习吗，回复是应该的！

乱世 发表于 2003-12-26 00:49

什么时候才能发这么多帖啊

aaaa 发表于 2003-12-29 03:00

加油

BEFREE 发表于 2003-12-29 03:50

真够难的，汗~~

aaaa 发表于 2004-1-3 03:53

看到了

emoney 发表于 2004-1-5 18:07

怎么没有入门(一) ?

goodearn 发表于 2004-1-5 20:33

我想以该是那篇allen的吧？

hemeizj 发表于 2004-1-5 21:40

看看!

guidy 发表于 2004-1-5 21:42

?

hemeizj 发表于 2004-1-5 22:20

92以下为需要文章数达到88才能浏览的内容
VB制作简单模拟器教程入门版（二） （作者dyugao）
第二讲　如何用VB的webbrowser提交一个含有用户名和密码的网页
上次我们知道了怎样打开一个网页，今天我们就来看看怎样迈开赚钱的第一步。
下面我们就开始迈步了：
一、先打开VB新建一个工程
二、在工具条上点右键选部件（我用的是中文版VB）或者选工程菜单，点部件
三、找到Microsoft Internet Controls，在前面打挑，然后确认就可以看到在工具条上多出来一个地球样的图标，我们以后的实现就都围绕着他来进行了。
四、添加一个WebBrowser1到Form1中，再添加一个command1到Form1中
五、在Form1中添加如下代码：（以上都是我们上一讲里说过的，应该很熟悉了吧）
'－－－－－－－－－－开始－－－－－－－－－－－
Private Sub Command1_Click()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
Set vTag = vDoc.All(i)
If vTag.Type = "text" Or vTag.Type = "password" Then '看看是不是我们需要的
Select Case vTag.Name '按标签的名字,对号操做
Case "EMAILADD"
vTag.value = "myemail@home.com" '这里写入你的e-mail
Case "PASSWD"
vTag.value = "password" '这里写入你的密码
End Select
ElseIf vTag.Type = "submit" And vTag.Name = "SUB" And vTag.value
= "订阅" Then
'找到提交按钮
vTag.Select '也可以没有这个
vTag.Click '点击提交了，一切都OK了
End If
End If
Next i
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://dhunter.51.net"
End Sub
'－－－－－－－－－－结束－－－－－－－－－－－
六、当然就是测试了，点运行按钮，我们可以看到，我们的webbrowser打开了http://dhunter.51.net，等网页基本下载结束再点command1按钮，我们可爱的webbrowser就把我们刚刚输入的e-mail和密码都提交到网页上了，看到订阅成功了吗？那个就是胜利的标志。
好了，先写这么多，下次我们看一下怎么用webbrowser找到一个网页中的超连接，对应的就是赚钱连接啊。


以下内容为需要回复才能浏览

大家也可以看出来，这次我们是拿http://dhunter.51.net上的那个订阅邮件列表开刀，下面就是这段网页的源代码：
<form method="post" action="http://ml.xilu.com/cgi-bin/ml/client">
<p align="center"><font size="2">
<input type="hidden" name="USERID" value="dhunter">
E-mail:
<input type="text" name="EMAILADD" value="你的E-mail">


密　码 :
<input type="password" name="PASSWD" value="******">


</font><font size="2">
<input type="submit" value="订阅" name="SUB">
<input type="submit" value="退订" name="UNSUB">
</font></p>
</form>
里面带input的那些标签都是接受输入的，我们这讲的主要任务就是找到他们，并且对他们进行操做

ho123 发表于 2004-1-5 23:13

我才50贴？？？

lincare 发表于 2004-1-6 02:02

一步步来。

无敌至尊 发表于 2004-1-9 23:15

支持

78pppp 发表于 2004-1-11 07:42

此内容要求文章数达到88以上才可以浏览

sonda 发表于 2004-1-12 01:29

丁丁丁丁丁丁丁  88888888

sonda 发表于 2004-1-12 18:02

努力法帖

sonda 发表于 2004-1-13 07:40

哎，还不够呀，

cdrom 发表于 2004-1-13 16:12

支持！就是还不够贴数，为了学习，我继续努力

xkp0620 发表于 2004-1-13 23:46

哇！要求太高了！

努力中....

蓝色血叶 发表于 2004-1-15 08:05

88篇！灌~

sonda 发表于 2004-1-17 06:21

继续努力

aoshao 发表于 2004-1-26 00:00

努力法帖～～～

cdrom 发表于 2004-1-26 06:33

恩，加油！

tutu 发表于 2004-1-28 11:41

发足够的帖子才有资格看！到处如此！什么时候才能发够呀！只有努力了！

蓝色血叶 发表于 2004-1-29 10:52

哈哈~我够了。

sonda 发表于 2004-2-2 18:07

努力法帖，法帖，大较好

stric 发表于 2004-2-8 22:08

我也想看  努力發貼

蓝色血叶 发表于 2004-2-10 04:31

这个也要顶上去！

南岳神签 发表于 2004-2-12 08:45

a  

syzxhg 发表于 2004-2-20 07:47

太多了

topalpha 发表于 2004-3-17 06:31

想看~

cyjun 发表于 2004-3-17 08:59

ok

topalpha 发表于 2004-3-18 05:54

水来了~~

yqt888 发表于 2004-4-2 08:28

有哪一位大哥可以把全部发出来让我们学习学习啊

yqt888 发表于 2004-4-2 08:38

我要向老大们学习

查看完整版本: VB制作简单模拟器教程入门版（二）