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-17
-
- 《艾尔登法环》寒冷巨剑介绍
- 时间:2024-06-17
-
- 《绝地潜兵2》6月13号更新内容汇总
- 时间:2024-06-17
-
- 《真女神转生5复仇》创生难度解锁方法
- 时间:2024-06-17
-
- 《阎萝大人!不要闹》游戏玩法
- 时间:2024-06-17
-
- 《艾尔登法环》魔法护符获取方法
- 时间:2024-06-17
-
- 《艾尔登法环》德鲁姆大道位置介绍
- 时间:2024-06-17
-
- 《艾尔登法环》恶兆妖鬼简单打法攻略
- 时间:2024-06-17