vb点虐 中如何利用api函数获取网页源代码？？？

Dim MyClient As WebClient = New WebClient

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

Dim MyReader As New System.IO.StreamReader(MyClient.OpenRead(url), System.Text.Encoding.Default) '定义新的文件流并读取网页文件数据，url表示需要打开的网页地址

Dim longTxt As String = MyReader.ReadToEnd 'longtxt存储了网页的源码

MyReader.Close()

VB如何通过工程查看源代码，如图，这个样子的

如果这个程序带工程文件，你找到.vbp文件双击打开，然后在各窗体双击查看代码。

如果没有工程文件，你可以自己建一个工程文件，然后把这些窗体文件加入。

如果不想建你可以直接双击某个窗体文件，也能打开，打开后双击窗体，可以看到代码。

如何用vb点虐 获得网页的源代码

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点虐 获取网页源代码

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

Private

Sub

WebBrowser

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

InnerHtml

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

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

正则表达式

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

名称栏目：vb点虐 如何查源代码 vb源代码怎么导出
浏览路径：http://hbruida.cn/article/ddeieds.html