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>http://net2sky.yeah.net";
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 = "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">
<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中是否含有http://dhunter.51.net
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打开了http://dhunter.51.net,等网页基本下载结束再点command1按钮,我们可爱的webbrowser就把找到的含有http://dhunter.51.net的URL都加入到list1中了。
有了这些我们就可以开始做自己的模拟器了,当然更多的技巧,更多的方法还要靠你来实现。
转载于:https://www.cnblogs.com/luyichuan/archive/2012/03/06/2382413.html
VB制作网页自动填表相关推荐
- VB制作网页自动填表(强烈推荐)
VB制作网页自动填表(强烈推荐) VB制作简单模拟器教程入门版 第一讲 如何用VB编程打开一个网页: 由于是为做模拟器做铺垫,所以就不介绍别的方法,只介绍一种最简单的用webbrowser控件实现(实 ...
- php自动填表单,vb实现网页自动填表
搜索热词 选中复选框 Private Sub Command1_Click() Dim objDoc As Object Dim i As Integer Set objDoc = WebBrowse ...
- 自动填写html文本框的值,网页自动填表——文本输入框及多行文本输入框
原标题:网页自动填表--文本输入框及多行文本输入框 下面来说说网页需要填表的情况,比如注册页面呀,论坛页面呀等等.需要填写每项内容,如何实现文本输入框和多行文本输入框的自动填写呢.我们请出网页自动操作 ...
- 网页复选框设置只能选一个_网页自动填表基础教程从简单开始
通常来说,网页自动填表包含单选框.复选框.文本框.多行文本框.下拉列表框的自动填写.本文讲讲这些项目的自动填写方法.所用到的工具是网页自动操作通用工具. 一.文本输入框及多行文本输入框的自动填写 下面 ...
- C# WebBrowser实现网页自动填表
曾今向网友介绍过我的一个自己编写的自动填写网页表单的小程序,很多网友都觉得很实用,也许多会对这个程序的源码很感兴趣,这里我只是简介下程序中用到的主要代码.最初我是通过下面这篇文章渐渐积累的相关知识,再 ...
- html 自动填表,Delphi WEB网页自动填表
Delphi中利用webbrowser控件来实现自动填表,此例为一模板,稍作修改可用来自动申请QQ.邮箱.论坛ID之类(不包含验证码识别). 代码如下: unit Unit1; interface u ...
- javascript网页自动填表_javascript 自动填写表单
在访问某些站点时,常常发现要填写一些没有实际意义但又必须得重复填写的表单,而且现在B/S的应用越来越多,下面的方法也许可以让你轻松点. 本文没有什么技术上创新,只要会一点Javascript的技术就可 ...
- 网页自动填表html,WebBrowser1.HtmlInput 实现浏览器文本自动填写与点击
我们今天要重点给大家讲解一下关于按键精灵的浏览器控件(WebBrowser)和控件的文本输入属性(HtmlInput),感兴趣的朋友可以继续往下读! 按键精灵是一款出色的脚本制作工具,通过按键精灵我们 ...
- python网页自动填写_Windows下使用python3 + selenium实现网页自动填表功能
因为工作原因,需要将xls文件的数据录入到网上.因为数据量太多,而且以后时不时还需要用上,Ctrl+C,Ctrl+V不是长久之计.所以萌生一个想法,写一个工具,用于把xls文件的数据录入到网站上. 笔 ...
最新文章
- ios中tableview网封装(viewcontroller封装)常用的
- SAP SD 基础知识之定价中的条件技术(Condition Technique in Pricing)
- .net中的对象序列化(1): 序列化是什么, 以及一个简单的例子
- pytorch GPU
- centos安装mysql wsl_wsl安装/卸载mysql
- LeetCode-124.二叉树中的最大路径和
- 加速Webpack-缩小文件搜索范围
- Day46:数据库引擎、索引、pymysql
- html (第四本书第九章参考)
- EFcore数据库随机排序获取数据
- SQL Server新增字段并添加描述
- UVALive 7345 J - The Hypnotic Spirals
- 用户画像理解和方法论
- 使用cmd命令行查看wifi密码
- JFinal在线官方文档
- 计算机的c盘是硬盘吗,笔记本固态硬盘是c盘吗_笔记本电脑SSD固态硬盘就是C盘吗-win7之家...
- 6篇论文入选NIPS 2018,这位中国小哥的开挂人生
- 微信小程序switch样式调整
- 阿里云oss——OSSObject
- Pycharm完整中文教程
热门文章
- 如何解决layui弹出层闪退的问题
- ubuntu安装zlib
- Python实现jpg/png/jpeg图片转base64编码文件
- 【SSLGZ 2811】2017年10月30日提高组T2 摘Galo
- 计算机网考里操作题发邮件,电大_全国计算机应用基础考试_网考内容_全部操作题(小条版)...
- python读取pdf内容转word_【python】python实现PDF转word
- js 利用input实现复制
- 4G浏览器 随机遇而生
- 液压电磁换向阀DG4V-5-24AJ-M-U-H6-20
- np.cosh没有分配_JavaScript中带有示例的Math.cosh()方法