vb.net下载网页源码 vbnet web

如何用vb.net获得网页的源代码

Dim url As String=" 网址"

创新互联是一家集网站建设,雁山企业网站建设,雁山品牌网站建设,网站定制,雁山网站建设报价,网络营销,网络优化,雁山网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

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.net获取网页源代码

使用webbrowser控件来加载网页，然后再

Private

Sub

WebBrowser

1_DocumentCompleted下通过使用WebBrowser1.Document.Body.

InnerHtml

来获取网页的源代码，或使用

WebBrowser1.Document.Body.InnerText来获取网页中的文本。之后可以通过字符串控制指令或者

正则表达式

来精确获取到你所需的数据。

VB下载网页源码

使用 URLDownloadToFile 这个API可以实现你想要的功能。

'// 定义

'// 下载网络上的一个文件到本地

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _

ByVal pCaller As Long, _

ByVal szURL As String, _

ByVal szFileName As String, _

ByVal dwReserved As Long, _

ByVal lpfnCB As Long _

) As Long

'// 下载一个文件到本地

Public Function DownloadFile(ByVal strURL As String, ByVal strFile As String) As Boolean

Dim lngReturn As Long

lngReturn = URLDownloadToFile(0, strURL, strFile, 0, 0)

If lngReturn = 0 Then DownloadFile = True

End Function

Private Sub Command1_Click()

Debug.Print DownloadFile("", "D:\1.html")

End Sub

vb.net HttpWebResponse和HttpWebRequest 下载网页源代码 如何等待网页加载完毕在在下？

在HttpWebRequest.GetResponse运行完毕之后，就表示网页已经加载完毕了。

如果是异步获取HttpWebResponse，那么在HttpWebRequest.EndGetResponse之后也表示网页加载完毕了。