<
您还没有登录┊登录注册 当前在线:670
源码程序系统工具编程开发图形图像网络软件应用软件多媒体类娱乐休闲驱动程序各类教程各类论文文章阅读
ASPPHPJSPASP.NETVBVF百度搜索星星练题网络文摘股市消息技能习题详细分类
当前位置:首页 \ 源码程序 \ .NET
站内搜索


从网页上读取源代码,并写入文件

文件大小:500b
运行平台:Windows9X/ME/NT/2000/XP
级别评定:
添加时间:2007-4-17 23:58:02
最后更新:2007-4-17 23:58:02
相关链接:无
所需金额:0 元
添加者:管理员

会员软件,请登录 不是会员,请注册

/ ::软件简介:: / ::相关软件:: / ::软件点评:: /::上一个::/ ::下一个:: /
管理首页
Private Sub DownloadData(ByVal URLString As String, ByVal LocalFile As String)    
'LocalFile 是文件的一个完全路径 (包括*.exe)
        Try

            'HttpWebRequest 类对 WebRequest 中定义的属性和方法提供支持',也对使用户能够直接与使用 HTTP 的服务器交互的附加属性和方法提供支持。 
            Dim httpReq As System.Net.HttpWebRequest 

            ' HttpWebResponse 类用于生成发送 HTTP 请求和接收 HTTP 响'应的 HTTP 独立客户端应用程序。
            Dim httpResp As System.Net.HttpWebResponse 

            Dim httpURL As New System.Uri(URLString)

            httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
            httpReq.Method = "GET"
            httpResp = CType(httpReq.GetResponse(), HttpWebResponse)

            Dim reader As StreamReader = New StreamReader(httpResp.GetResponseStream)     
            '如是中文,要设置编码格式为“GB2312”。
            Dim respHTML As String = reader.ReadToEnd()      
            'respHTML就是网页源代码
            Dim Sw As StreamWriter = File.CreateText(LocalFile)

            Sw.Write(respHTML)
            Sw.Close()

            httpResp.Close()

        Catch e As Exception
            Console.WriteLine("GetSource出现问题:{0},{1}", e.Message, URLString)
        End Try
    End Sub

相关软件
暂无相关软件


1分 0
2分 0
3分 0
4分 0
5分 0
共有 0 人打分
平均得分:0


按字符查询:ABCDEFGHIJKLMNOPQRSTUVWXYZ0~9中文
下载图示: - 附汉化补丁 - 附注册 - 会员软件 - 推荐 - 最新添加
Rainight, 星旺坡 联网备案号:41092802000212 豫ICP备19032584号-1 页面执行时间: 0.14秒
业务QQ:80571569 手机:13030322310