没有合适的资源?快使用搜索试试~ 我知道了~
VB制作网页自动填表.doc
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 43 浏览量
2022-06-25
10:38:57
上传
评论
收藏 229KB DOC 举报
温馨提示
试读
41页
VB制作网页自动填表.doc
资源推荐
资源详情
资源评论
VB 制作网页自动填表
VB 制作简单模拟器教程入门版
第一讲 如何用 VB 编程打开一个网页:
由于是为做模拟器做铺垫,所以就不介绍别的方法,只介绍一种最简单的用
webbrowser 控件实现(实际是其他的方法我还没有学会)。
下面我们就开始步入模拟器的大门了:
一、先打开 VB 新建一个工程
二、在工具条上点右键选部件(我用的是中文版 VB)或者选工程菜单,点部件
三、找到 Microsoft Internet Controls,在前面打挑,然后确认就可以看到
在工具条上多出来一个地球样的图标,我们以后的实现就都围绕着他来进行了。
四、添加一个 WebBrowser1 到 Form1 中,再添加一个 command1 到 Form1 中
五、在 Form1 中添加如下代码:
'----------开始-----------
Private Sub Command1_Click()
WebBrowser1.Navigate "25emuhome.xilubbs.com "
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate " <A href= 'http://net2sky.yeah.net "/ '
target=_blank> [url]http://net2sky.yeah.net[/url] ";
End Sub
'----------结束-----------
六、当然就是测试了,点运行按钮,我们可以看到,我们的 webbrowser 打开了网络
人家的主页,然后再点按钮,我们可爱的 webbrowser 就把我们带到了模拟之家 BBS 了。
好了,先写这么多,下次我们看一下怎么用 webbrowser 提交一个含有用户名和密码
的网页。
VB 制作简单模拟器教程入门版(二)
第二讲 如何用 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 = "[email]myemail@home.com[/email] "
'这里写入你的 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 打开了
[url]http://dhunter.51.net[/url],等网页基本下载结束再点 command1 按钮,我们可爱的
webbrowser 就把我们刚刚输入的 e-mail 和密码都提交到网页上了,看到订阅成功了吗?那
个就是胜利的标志。
好了,先写这么多,下次我们看一下怎么用 webbrowser 找到一个网页中的超连接,对应
的就是赚钱连接啊。
附录(相关资料):
大家也可以看出来,这次我们是拿[url]http://dhunter.51.net[/url]上的那个订阅邮
件列表开刀,下面就是这段网页的源代码:
<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 ">
<br>
密 码 :
<input type= "password " name= "PASSWD " value= "****** ">
<br>
</font> <font size= "2 ">
<input type= "submit " value= "订阅 " name= "SUB ">
<input type= "submit " value= "退订 " name= "UNSUB ">
</font> </p>
</form>
里面带 input 的那些标签都是接受输入的,我们这讲的主要任务就是找到他们,并且对
他们进行操做。
VB 制作简单模拟器教程入门版(三)
第三讲 如何用 VB 的 webbrowser 找到一个网页中的超连接
以前我们已经说过了怎样打开一个网页,怎样提交一个网页,今天我们来看看如何
找到一个网页中 URL 等元素。
一、先打开 VB 新建一个工程
二、在工具条上点右键选部件(我用的是中文版 VB)或者选工程菜单,点部件
三、找到 Microsoft Internet Controls,在前面打挑,然后确认就可以看到
在工具条上多出来一个地球样的图标,我们的实现就都围绕着他来进行了。
四、添加一个 WebBrowser1 到 Form1 中,再添加一个 command1 到 Form1 中,添加一
个 list1 到 form1 中(这个 list1 适当的放宽一点,一会我们把找到的合格 URL 都放到这个
里)
五、在 Form1 中添加如下代码:(以上都是我们以前说过的,应该很熟悉了吧)
'----------开始-----------
Private Sub Command1_Click()
Dim vTag, vDoc
Dim Allcount, i
List1.Clear
Set vDoc = WebBrowser1.Document.All
Allcount = vDoc.length
For i = 0 To Allcount - 1
If UCase(vDoc.Item(i).TagName) = "A " Then '找到 URL
vTag = vDoc.Item(i).href
If InStr(vTag, "http://dhunter.51.net ") Then '检测 URL 中
是否含有[url]http://dhunter.51.net[/url]
List1.AddItem vDoc.Item(i).href '如果有,则添加到 list1 中
End If
End If
Next i
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://dhunter.51.net "
End Sub
'----------结束-----------
六、当然就是测试了,点运行按钮,我们可以看到,我们的 webbrowser 打开了
[url]http://dhunter.51.net[/url],等网页基本下载结束再点 command1 按钮,我们可爱的
webbrowser 就把找到的含有[url]http://dhunter.51.net[/url]的 URL 都加入到 list1 中
了。
有了这些我们就可以开始做自己的模拟器了,当然更多的技巧,更多的方法还要靠你来
实现。
我的意思是:它提交的过程是类似这样的 判断各个标签是否对应,对应就填写,提交
Private Sub CmdSubmit_Click()
Dim vDoc, vTag
Dim i As Integer, j As Integer
Dim s As String
Set vDoc = Browser.Document
For i = 0 To vDoc.All.length - 1 '检测所有标签
DoEvents
s = vDoc.All(i).tagname
If s <> "INPUT" And s <> "TEXTAREA" Then GoTo lNext
剩余40页未读,继续阅读
资源评论
智慧安全方案
- 粉丝: 3646
- 资源: 59万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功