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-06-26
-
- qq背影女生头像-唯美背影女生头像
- 时间:2024-06-26
-
- 三国谋定天下周瑜玩法介绍
- 时间:2024-06-26
-
- 创造吧我们的星球新手装备选择攻略
- 时间:2024-06-26
-
- 三国谋定天下大乔玩法介绍
- 时间:2024-06-26
-
- 江南百景图四周年成章黄泥画池介绍
- 时间:2024-06-26
-
- qq霸气情侣头像不带字-低调霸气情侣头像(1)
- 时间:2024-06-26
-
- 三国谋定天下华雄玩法介绍
- 时间:2024-06-26