软件分类 文章中心 最新软件 热门软件 软件专题 软件排行 装机软件 软件厂商 文件类型 一键转贴 手游专题
软件 教程 软件
你的位置:心愿下载电脑教程vs2010/vb2010 →vb2010获取网页源码的函数

vb2010获取网页源码的函数

来源:本站整理 发布时间:2014-07-24

vb2010获取网页源码的函数如下:

 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

上面的内容还满意吗?心愿下载小编为您推荐了下面的文章:

文章评论

心愿下载是一个免费软件下载站,提供绿色软件,免费软件,手机软件,游戏下载,我们的目标是:让电脑软件改变学习和生活. 冀ICP备05025597号  

Copyright © 2006-2016 www.wishdown.com All rights reserved.