vb点虐 网站源码 vbs源码

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

Dim MyClient As WebClient = New WebClient

创新互联公司制作网站网页找三站合一网站制作公司,专注于网页设计,网站建设、成都网站制作,网站设计,企业网站搭建,网站开发,建网站业务,680元做网站,已为数千家服务,创新互联公司网站建设将一如既往的为我们的客户提供最优质的网站建设、网络营销推广服务!

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

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

Private

Sub

WebBrowser

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

InnerHtml

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

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

正则表达式

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

如何用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就是网页源代码