网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：155,996贴子：1,166,261

回复：公布一些关于 Webbrwser 的个人经验，请勿回复

添加Command1,Webbrowser1。
下面这段代码可以自动在百度首页填入内容并搜索。


Private Sub Command1_Click()
 Dim vDoc, vTag
 Dim i As Integer
If WebBrowser1.Busy = False Then
 Set vDoc = WebBrowser1.Document
 For i = 0 To vDoc.All.length - 1
 If UCase(vDoc.All(i).tagName) = "INPUT" Then
 Set vTag = vDoc.All(i)
 If vTag.Type = "text" Then
 Select Case vTag.Name
 Case "wd"
 vTag.Value = "自动填入内容"
 End Select
 ElseIf vTag.Type = "submit" Then
 vTag.Click '自动点击搜索
 End If
 End If
 Next i
End If
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com/"
End Sub


添加Timer，Enable为False，时间为1000。添加Webbrowser。改名为WB。

下面代码能够得到Webbrowser被选中的内容。并在窗口标题显示。

Private Sub Form_Load()
WB.Navigate "http://www.baidu.com/"
End Sub

Private Sub Timer1_Timer()
Dim a As Object
Set a = WB.Document
Me.Caption = a.selection.createRange().duplicate().Text
End Sub

Private Sub WB_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Timer1.Enabled = True
End Sub


2026-09-10 19:21:50
广告
不感兴趣
开通SVIP免广告
一个获取标签内容中内容的万能方法。

例子:

Private Sub Command1_Click()
 Dim vDoc, vTag
 Dim i As Integer
If WB.Busy = False Then
 Set vDoc = WB.Document
 For i = 0 To vDoc.All.length - 1
 If UCase(vDoc.All(i).tagName) = "A" Then
 Set vTag = vDoc.All(i)
 List1.AddItem vTag.href
 End If
 Next i
End If
End Sub

上面能得到所有链接。

关键在于这里:
If UCase(vDoc.All(i).tagName) = "A" Then
 Set vTag = vDoc.All(i)
 List1.AddItem vTag.href
网页链接标签是 <a href="XXX.XXX">
前面的"A"是判断标签头是否符合。vTag.href是获取href=后面的内容。

例如你想得到网页上所有图片的地址可以改成:

If UCase(vDoc.All(i).tagName) = "IMG" Then
 Set vTag = vDoc.All(i)
 List1.AddItem vTag.Src


网页的插入图片的代码是:
<img src="图片地址">
这样是能够获取任何标签内的内容的。
比如获取网页背景颜色可以在<body bgcolor="#XXXXXX">中提取。


快试试吧，
可以对自己使用挽尊卡咯~
◆
◆
顶一下


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
分享到: