当前位置：首页 » 网页设计 » vb获取网页

vb获取网页

发布时间: 2021-03-20 14:32:40

『壹』 vb中如何实现提取网页内容

在vb窗体上加入webBrowser控件，并加入一个时钟控件，设置为200毫秒，加入一个文本框
Private Sub Form_Load()
webBrowser1.Silent = True'屏蔽脚本错误提示
End Sub
Private Sub Command1_Click()
webBrowser1.Navigate "http://www..com" '打开网址
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Web1.Busy Then '如果网页还没完全打开则退出
Exit Sub
Else
Timer1.Enabled = False
Text1.Text = webBrowser1.Document.body.innerhtml '获取网页源码
'Text1.Text = webBrowser1.Document.body.innerText '获取网页文本
end if
End Sub

『贰』 VB读取网页内容

这里有两中方法，个人觉得第一种比较快，而且第二种字体总显示乱码。
1、利用inet控件
放一个Internet Transfer Control，一个按纽和两个文本框在窗体上
text1用来输入网址，text2用来输入暂存的文件名如c：\temp.htm
然后输入以下代码
Private Sub Command1_Click()
Dim B() As Byte
'取消所有操作
Inet1.Cancel
'设定协议为HTTP
Inet1.Protocol = icHTTP
'设定URL属性
Inet1.URL = Text1
'将读取的HTML数据放进一个byte array
B() = Inet1.OpenURL(, icByteArray)
'建立一个暂存文件来存放取回来的html文件
Open Text2 For Binary Access Write As #1
Put #1, , B()
Close #1
MsgBox "ok"
End Sub
2、利用webbrower控件
和上边放一样的控件，不过把inet改成webbrower控件（引用的时候选internet controls就可以了），另外再加一个timer控件
然后加入以下代码
Private Sub Command1_Click()
WebBrowser1.Navigate Text1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim Doc, ObjHtml As Object
Dim StrHtml As String
Dim B() As Byte
If Not WebBrowser1.Busy Then
Set Doc = WebBrowser1.Document
Set ObjHtml = Doc.body.createtextrange()
If Not IsNull(ObjHtml) Then
B() = ObjHtml.htmltext
Open "c:\temp.htm" For Binary Access Write As #1
Put #1, , B()
Close #1
End If
Timer1.Enabled = False
MsgBox "ok"
End If
End Sub

朋友你好，你现在会读HTML了，但是现在要读取指定标签里的内容，比如<p>中的，你可以这样：

放一个WebBrowser(引用部件的Microsoft Internet Controls）
然后复制下面的代码：

Private Sub Form_Load()
WebBrowser1.Navigate2 "那个网页的地址/文件地址"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim doc As Object, i
Set doc = WebBrowser1.Document
For Each i In doc.getelementsbytagname("p")
Text1.Text = Text1.Text & " " & i.innertext
'得到所有p标签元素；然后将内容（非HTML，这样过滤H5标签）加入文本框
Next
End Sub

'祝楼主你成功喔！

『叁』 VB获取网页源码中的网址

你好，(由于问题情境不充足，）这里假设你通过 Winsock 控件或 Internet Control 控件成功地获取网页源码并存储入变量 strCode 中。

然后可以参考以下思路：

' 注：该程序只能作为获取静态网页类型(*.htm/*.html)文件的链接。以下代码最好放入一个独立的函数中：

Dim l As Long, j As Long, lLen As Long
Dim strTmp As String, strTmp2 As String
Dim strLink As String, strLinkList As String
Dim bErr As Boolean

lLen = Len(strCode)
strTmp = LCase(strCode)
l = InStr(1, strTmp, "http://")
Do While l <> 0
For j = l + 7 To lLen - 1
strTmp2 = Mid(strTmp, j, 5)
If strTmp2 = ".html" Then ' 命中
strLink = Mid(strTmp, l, j - l + 5)
ElseIf strTmp2 Like ".htm?" ' 命中
strLink = Mid(strTmp, l, j - l + 4)
End If
Exit For
Next
If Len(strLink) Then
strLinkList = strLinkList & strLink & vbNewLine
strLink = Empty
Else ' 未命中
MsgBox "提示：该网页存在无效链接。", vbCritical, "注意"
'-----------------------------
' TODO: 如果要继续分析，则不编写代码
' 如果直接退出，则加入:
' bErr = True
' Exit Do
'-----------------------------
End If
l = InStr(l + 7, strTmp, "http://")
Loop

If bErr Then
MsgBox "程序运行时发生错误。", vbExclamation, "提示"
End If

『肆』 VB怎么获取网页源码

1）使用MICROSOFT INTERNET TRANSFER CONTROL的，代码如下：
Dim strhtml As String
Dim STRURL As String
STRURL="http://www.sijiqing.com"
strhtml = Inet1.OpenURL(STRURL)

2）用System.Net命空间下的HttpWebRequest来取得，代码如下：
Dim url As String=" http://mgxx520.blog.com.cn" ' 网址
Dim httpReq As System.Net.HttpWebRequest
Dim httpResp As System.Net.HttpWebResponse
Dim httpURL As New System.Uri(url)
httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
httpReq.Method = "GET"
httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
httpReq.KeepAlive = False ' 获取或设置一个值，该值指示是否与 Internet资源建立持久连接。
Dim reader As StreamReader = _
New StreamReader(httpResp.GetResponseStream,
System.Text.Encoding.GetEncoding(-0))
Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码.

『伍』 vb 获取网页指定内容，求代码

我用如下代码测试了。说明你要找的元素不存在。代码应该没问题
PrivateSubCommand1_Click()
Text1.Text=WebBrowser1.Document.getElementsByName("key")(0).Value

EndSub

PrivateSubForm_Load()
WebBrowser1.Navigate"http://www.yt969.com/"
EndSub

PrivateSubWebBrowser1_DocumentComplete(ByValpDispAsObject,URLAsVariant)
Text1.Text=WebBrowser1.Document.getElementsByName("key")(0).Value
EndSub

推荐用下面的方法，先获取源码，在做字符串分析。

FunctionGetHttpPage(GetUrl)
DimxmlHttp
SetxmlHttp=CreateObject("MSXML2.serverXMLHTTP.6.0")
xmlHttp.Open"GET",GetUrl,False
xmlHttp.setTimeouts10000,10000,10000,10000
'第一个数值:解析DNS名字的超时时间10秒
'第二个数值:建立Winsock连接的超时时间10秒
'第三个数值:发送数据的超时时间15秒
'第四个数值:接收response的超时时间15秒
'xmlHttp.setRequestHeader"Cookie",Cookie
OnErrorResumeNext
xmlHttp.send
IfErr.Number=-2147012894Then
GetHttpPage="$False$"
ExitFunction
EndIf
IfxmlHttp.readystate<>4Then
SetxmlHttp=Nothing
GetHttpPage="$False$"
ExitFunction
EndIf
GetHttpPage=BytesToBstr(xmlHttp.responseBody,"utf-8")
SetxmlHttp=Nothing
EndFunction

PublicFunctionBytesToBstr(Body,Cset)
DimobjStream
SetobjStream=CreateObject("adodb.stream")
objStream.Type=1
objStream.Mode=3
objStream.Open
objStream.WriteBody
objStream.Position=0
objStream.Type=2
objStream.Charset=Cset
BytesToBstr=objStream.ReadText
objStream.Close
SetobjStream=Nothing
EndFunction

『陆』请问如何用VB获取网页源码

使用Inet控件获取网页源码。

Internet Transfer 控件实现了两种广泛使用的 Internet 协议：超文本传送协议（HyperText Transfer
Protocol）(HTTP) 和文件传送协议（File Transfer Protocol） (FTP)。使用 Internet Transfer
控件可以通过 OpenURL 或 Execute 方法连接到任何使用这两个协议的站点并检索文件。

PrivateSubCommand1_Click()
DimstrhtmlAsString
DimSTRURLAsString
STRURL="http://www..com"
strhtml=Inet1.OpenURL(STRURL)
Text1=strhtml
EndSub

『柒』 VB如何获取网页的内容

vb6,新建一个工程粘贴以下代码,马上运行,一切OK!!!!!!
Private Sub Form_Load()
a = getHTTPPage("http://ip138.com/ip2city.asp")
b = Split(a, "[")(1)
c = Split(b, "]")(0)
MsgBox c
End Sub
Function getHTTPPage(url)
On Error Resume Next
Dim http
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", url, False
getHTTPPage = http.Send()
'MsgBox http.ReadyState
If http.ReadyState <> 4 Then
MsgBox "无法连接服务器"
Exit Function
End If
getHTTPPage = BytesToBstr(http.responseBody, "GB2312")
Set http = Nothing
End Function
Function BytesToBstr(body, Cset)
Dim objstream
Set objstream = CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write body
objstream.position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
Set objstream = Nothing
End Function

『捌』 VB6.0：求获取某个网页所有HTML的代码

'使用URLDownloadToFile这个API可以实现你想要的功能。
'声明API函数
"urlmon"Alias"URLDownloadToFileA"(_
ByValpCallerAsLong,_
ByValszURLAsString,_
ByValszFileNameAsString,_
ByValdwReservedAsLong,_
ByVallpfnCBAsLong_
)AsLong
'下载网页源码
PublicFunctionDownloadFile(ByValstrURLAsString,ByValstrFileAsString)AsBoolean
DimlngReturnAsLong

lngReturn=URLDownloadToFile(0,strURL,strFile,0,0)
IflngReturn=0ThenDownloadFile=True
EndFunction
PrivateSubCommand1_Click()
Debug.PrintDownloadFile("http://..com/question/12376048.html","D:1.html")
EndSub

或者使用WinHTTP、XMLHTTP对象

『玖』 VB如何获取网页中文字

首先需要加载需要获取网页文的网址，然后根据WebBrowser1.document.body.innertext来获取文字，可参考下面部分代码

PrivateSubcmdcommand1_click()
WebBrowser1.navigate"具体网页地址"
EndSub

PrivateSubwebbrowser1_documentcomplete(ByValpDispAsObject,URLAsVariant)
txtText1=WebBrowser1.document.body.innertext
EndSub

『拾』 VB获取网页内容

'Text1=<spanclass="H">马丁靴机车靴女靴子短靴</span>
PrivateSubCommand1_Click()
i=InStr(1,Text1,"<spanclass="&Chr(34)&H&Chr(34)&">")+17
i1=InStr(1,Text1,"</span>")
MsgBoxMid(Text1,i,i1-i)
EndSub

阅读全文

vb获取网页

与vb获取网页相关的阅读推荐