VB制作简单模拟器教程入门版(三)

概述第三讲　如何用VB的webbrowser找到一个网页中的超连接 　　以前我们已经说过了怎样打开一个网页，怎样提交一个网页，今天我们来看看如何找到一个网页中URL等元素。 　　一、先打开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中了。

有了这些我们就可以开始做自己的模拟器了，当然更多的技巧，更多的方法还要靠你来实现。

总结

以上是内存溢出为你收集整理的VB制作简单模拟器教程入门版(三)全部内容，希望文章能够帮你解决VB制作简单模拟器教程入门版(三)所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。