vb2010获取网页源码的函数
时间:2014-07-24 | 作者:本站整理 | 阅读:829vb2010获取网页源码的函数如下:
Function posthtml(ByVal _URL As String) As String
Dim TitelStart, TitelEnd As Short
Dim TitelTxt As String
Dim url As String = _URL ' 网页地址
Dim httpReq As System.Net.HttpWebRequest
Dim httpResp As System.Net.HttpWebResponse
Dim httpURL As New System.Uri(url)
httpReq = CType(Net.HttpWebRequest.Create(httpURL), Net.HttpWebRequest)
httpReq.Method = "GET"
httpResp = CType(httpReq.GetResponse(), Net.HttpWebResponse)
Dim reader As IO.StreamReader = New IO.StreamReader(httpResp.GetResponseStream)
Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码
TitelStart = respHTML.IndexOf("<title>") + 7
TitelEnd = respHTML.IndexOf("</title>")
TitelTxt = respHTML.Substring(TitelStart, TitelEnd - TitelStart)
Return TitelTxt.Trim
End Function
福利游戏
相关文章
更多精选合集
更多大家都在玩
大家都在看
更多-
- 崩坏星穹铁道热砂海选会场折纸小鸟位置解析
- 时间:2024-05-17
-
- 《辐射4》steam好评率介绍
- 时间:2024-05-17
-
- 《夜族崛起》铁匠西里尔位置一览
- 时间:2024-05-17
-
- 迷失蔚蓝获得子弹方法一览
- 时间:2024-05-17
-
- 《寓言之地》1.02更新内容一览
- 时间:2024-05-17
-
- 迷失蔚蓝小象玩偶位置介绍
- 时间:2024-05-17
-
- 迷失蔚蓝快速升级攻略一览
- 时间:2024-05-17
-
- 迷失蔚蓝获得海岛木方法一览
- 时间:2024-05-17