收藏 分享(赏)

VB制作网页自动填表.doc

上传人:精品资料 文档编号:10246810 上传时间:2019-10-24 格式:DOC 页数:5 大小:36KB
下载 相关 举报
VB制作网页自动填表.doc_第1页
第1页 / 共5页
VB制作网页自动填表.doc_第2页
第2页 / 共5页
VB制作网页自动填表.doc_第3页
第3页 / 共5页
VB制作网页自动填表.doc_第4页
第4页 / 共5页
VB制作网页自动填表.doc_第5页
第5页 / 共5页
亲,该文档总共5页,全部预览完了,如果喜欢就下载吧!
资源描述

1、VB 制作网页自动填表 VB 制作简单模拟器教程入门版第一讲 如何用 VB 编程打开一个网页:由于是为做模拟器做铺垫,所以就不介绍别的方法,只介绍一种最简单的用webbrowser 控件实现(实际是其他的方法我还没有学会)。 下面我们就开始步入模拟器的大门了: 一、先打开 VB 新建一个工程 二、在工具条上点右键选部件(我用的是中文版 VB)或者选工程菜单,点部件 三、找到 Microsoft Internet Controls,在前面打挑,然后确认就可以看到在工具条上多出来一个地球样的图标,我们以后的实现就都围绕着他来进行了。 四、添加一个 WebBrowser1 到 Form1 中,再添加

2、一个 command1 到 Form1 中 五、在 Form1 中添加如下代码: 开始 Private Sub Command1_Click() WebBrowser1.Navigate http:/ End Sub Private Sub Form_Load() WebBrowser1.Navigate “ http:/ End Sub 结束 六、当然就是测试了,点运行按钮,我们可以看到,我们的 webbrowser 打开了网络人家的主页,然后再点按钮,我们可爱的 webbrowser 就把我们带到了模拟之家 BBS 了。好了,先写这么多,下次我们看一下怎么用 webbrowser 提交一个

3、含有用户名和密码的网页。 VB 制作简单模拟器教程入门版(二) 第二讲 如何用 VB 的 webbrowser 提交一个含有用户名和密码的网页上次我们知道了怎样打开一个网页,今天我们就来看看怎样迈开赚钱的第一步。下面我们就开始迈步了:一、先打开 VB 新建一个工程二、在工具条上点右键选部件(我用的是中文版 VB)或者选工程菜单,点部件三、找到 Microsoft Internet Controls,在前面打挑,然后确认就可以看到在工具条上多出来一个地球样的图标,我们以后的实现就都围绕着他来进行了。四、添加一个 WebBrowser1 到 Form1 中,再添加一个 command1 到 For

4、m1 中五、在 Form1 中添加如下代码:(以上都是我们上一讲里说过的,应该很熟悉了吧)开始Private Sub Command1_Click()Dim vDoc, vTagDim i As IntegerSet vDoc = WebBrowser1.DocumentFor 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“ Then 看看是不是我们需要的if vTag.Na

5、me = “wd“ then vTag.Value = “123456“ 这里是要搜索的内容end ifif vTag.Type = “submit“ And vTag.Value = “百度一下“ thenvTag.Select 也可以没有这个vTag.Click 点击提交了,一切都 OK 了End IfEnd IfNext iEnd SubPrivate Sub Form_Load()WebBrowser1.Navigate “http:/“End Sub结束六、当然就是测试了,点运行按钮,我们可以看到,我们的 webbrowser 打开了 urlhttp:/ command1 按钮,我们

6、可爱的webbrowser 就把我们刚刚输入的 e-mail 和密码都提交到网页上了,看到订阅成功了吗?那个就是胜利的标志。好了,先写这么多,下次我们看一下怎么用 webbrowser 找到一个网页中的超连接,对应的就是赚钱连接啊。附录(相关资料):大家也可以看出来,这次我们是拿urlhttp:/ 码 :里面带 input 的那些标签都是接受输入的,我们这讲的主要任务就是找到他们,并且对他们进行操做。 VB 制作简单模拟器教程入门版(三) 第三讲 如何用 VB 的 webbrowser 找到一个网页中的超连接以前我们已经说过了怎样打开一个网页,怎样提交一个网页,今天我们来看看如何找到一个网页中

7、 URL 等元素。一、先打开 VB 新建一个工程二、在工具条上点右键选部件(我用的是中文版 VB)或者选工程菜单,点部件三、找到 Microsoft Internet Controls,在前面打挑,然后确认就可以看到在工具条上多出来一个地球样的图标,我们的实现就都围绕着他来进行了。四、添加一个 WebBrowser1 到 Form1 中,再添加一个 command1 到 Form1 中,添加一个 list1 到 form1 中(这个 list1 适当的放宽一点,一会我们把找到的合格 URL 都放到这个里)五、在 Form1 中添加如下代码:(以上都是我们以前说过的,应该很熟悉了吧)开始Priv

8、ate Sub Command1_Click()Dim vTag, vDocDim Allcount, iList1.ClearSet vDoc = WebBrowser1.Document.AllAllcount = vDoc.lengthFor i = 0 To Allcount - 1If UCase(vDoc.Item(i).TagName) = “A “ Then 找到 URLvTag = vDoc.Item(i).hrefIf InStr(vTag, “http:/ “) Then 检测 URL 中是否含有urlhttp:/ vDoc.Item(i).href 如果有,则添加到 list1 中End IfEnd IfNext iEnd SubPrivate Sub Form_Load()WebBrowser1.Navigate “http:/ Sub结束六、当然就是测试了,点运行按钮,我们可以看到,我们的 webbrowser 打开了 urlhttp:/ command1 按钮,我们可爱的webbrowser 就把找到的含有urlhttp:/ URL 都加入到 list1 中了。有了这些我们就可以开始做自己的模拟器了,当然更多的技巧,更多的方法还要靠你来实现

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 企业管理 > 管理学资料

本站链接:文库   一言   我酷   合作


客服QQ:2549714901微博号:道客多多官方知乎号:道客多多

经营许可证编号: 粤ICP备2021046453号世界地图

道客多多©版权所有2020-2025营业执照举报