VB制作网页自动填表

精品文档VB制作网页自动填表 VB制作简单模拟器教程入门版第一讲如何用VB编程打开一个网页：由于是为做模拟器做铺垫，所以就不介绍别的方法，只介绍一种最简单的用webbrowser控件实现（实际是其他的方法我还没有学会）。下面我们就开始步入模拟器的大门了： 一、先打开VB新建一个工程二、在工具条上点右键选部件（我用的是中文版VB）或者选工程菜单，点部件三、找到Microsoft Internet Controls，在前面打挑，然后确认就可以看到在工具条上多出来一个地球样的图标，我们以后的实现就都围绕着他来进行了。四、添加一个WebBrowser1到Form1中，再添加一个command1到Form1中五、在Form1中添加如下代码：开始Private Sub Command1_Click()WebBrowser1.Navigate /End SubPrivate Sub Form_Load()WebBrowser1.Navigate /ymlbright/;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, 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.Name = 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 End Sub结束六、当然就是测试了，点运行按钮，我们可以看到，我们的webbrowser打开了 url/url，等网页基本下载结束再点command1按钮，我们可爱的webbrowser就把我们刚刚输入的e-mail和密码都提交到网页上了，看到订阅成功了吗？那个就是胜利的标志。好了，先写这么多，下次我们看一下怎么用webbrowser找到一个网页中的超连接，对应的就是赚钱连接啊。附录（相关资料）：大家也可以看出来，这次我们是拿url/url上的那个订阅邮件列表开刀，下面就是这段网页的源代码： E-mail:密码 : 里面带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, 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, ) Then 检测URL中是否含有url/urlList1.AddItem vDoc.Item(i).href 如果有,则添加到list1中End IfEnd IfNext iEnd SubPrivate Sub Form_Load()WebBrowser1.Navigate /ymlbright/End Sub结束六、当然就是测试了，点运行按钮，我们可以看到，我们的webbrowser打开了 urlhttp:/dhunter.51