vb.net如何下载一个网站的html页面到string？ winsock控件在哪啊？ 学过vb，刚用.net。 Help！

以前在vb添加winsock很简单啊，以前也下载过winsock下载html页面的源代码例子，
copy的vb，但是，发现用不了，晕！
本人小菜鸟，不是大菜鸟。
以前自学过vb，买了一本.net的书，大致看懂面向对象。属性，方法，事件。
（也看过java的面向对象的书）


现在在vb.net中文版下求助：
（1）winsock控件，如何添加? （在哪个菜单，如何选哪个？）
     能否给一个教程？or劳驾帮忙下几行代码来？
（2）顺便小问，.net的文件操作？（顺序文件、随机文件，二进制文件？）
     还能用吗？
     还是用哪个类？
     能给一个教材，or例子吗？


以上我寻求过google的帮助，但是无法找到合适的回答。劳驾各路英雄，新年快乐！

14 个解决方案

#1

如果有例子，劳驾发送到 [e-mail] 。thx。

#2

用 WebBrowser1.DocumentText 

很方便

#3

关于文件，filesystem, fileopen等，具体看msdn吧.

#4

用 WebBrowser1.DocumentText 

很方便


各路英雄，，，帮我写2句，行吗？
比如下载:  http://www.pconline.com.cn/digital/audio/hangqing/bj/0601/753096.html
这个页面，返回到一个string变量。

thx～～

#5

继续顶～


用 WebBrowser1.DocumentText 

很方便


各路英雄，，，帮我写2句，行吗？
比如下载:  http://www.pconline.com.cn/digital/audio/hangqing/bj/0601/753096.html
这个页面，返回到一个string变量。

thx～～

#6

下为CSDN小助手的部分代码：


Dim 请求 As HttpWebRequest
        Dim 响应 As HttpWebResponse
        Dim ResStr1 As String = ""
        Try
            请求 = HttpWebRequest.Create(StrUrl)
            请求.Referer = "http://www.csdn.net/"
            请求.AllowAutoRedirect = False
            请求.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.01; Windows NT 5.0)"
            If StrPostData.Length > 0 Then '包含要提交的数据　就使用Post方式
                请求.ContentType = "application/x-www-form-urlencoded" '作为表单请求
                请求.Method = "POST" '方式就是Post

                '把提交的数据换成字节数组
                Dim B() As Byte = System.Text.Encoding.GetEncoding("GB2312").GetBytes(StrPostData)
                请求.ContentLength = B.Length

                Dim SW As IO.Stream = 请求.GetRequestStream '开始提交数据
                SW.Write(B, 0, B.Length)
                SW.Close()
            End If

            响应 = 请求.GetResponse


            '读取全部数据
            Dim S1 As New IO.StreamReader(响应.GetResponseStream, System.Text.Encoding.GetEncoding("GB2312"))
            ResStr1 = S1.ReadToEnd

#7

：）
帮你顶/



====CSDN 小助手 V2.5 2006年1月18日发布====
CSDN小助手是一款脱离浏览器也可以访问Csdn论坛的软件
界面：http://blog.csdn.net/Qqwwee_Com/archive/2005/11/05/523395.aspx
下载：http://szlawbook.com/csdnv2

#8

感谢各路英雄豪杰。
我去试一试。

#9

看到了  sx_lxh(路漫漫)  的源代码，感觉好，顶！

    

#10

关注！！

#11

你的要求只能用WebBrowser来实现

#12

大家说说WebBrowser的方法行吗？


或者sx_lxh(路漫漫)的可以帮我封装在一个函数中吗？
我怎么试过，不行？
比如
gethtmldata("www.21cn.com/index.html")

#13

一位慷慨的大侠帮我写的，大家看看。

dim a as string
a=GetHtml（"http://www.pconline.com.cn/digital/audio/hang.htm")

就这么用！获得html，这个方法比较好！

Public Function GetHtml(ByVal urltxt As String) As String
Dim url As New Uri(urltxt)
Dim Req As WebRequest
Req = WebRequest.Create(url)
Dim Resp As WebResponse

Try
Dim netStream As StreamReader
Resp = Req.GetResponse '获得一个响应
netStream = New StreamReader(Resp.GetResponseStream, System.Text.Encoding.Default)
Return netStream.ReadToEnd
Catch exc As Exception
MsgBox(exc.Message)
Return ""
End Try
End Function

#14

Function GetHtml(ByVal url As String) As String
        Dim wc As Net.WebClient
        Dim str As String = ""
        Try
            wc = New Net.WebClient
            str = System.Text.Encoding.UTF8.GetString(wc.DownloadData(url))
        Catch ex As Exception

        Finally
            If Not wc Is Nothing Then
                wc.Dispose()
            End If
        End Try
        Return str
    End Function


==============
ps:上面已经有提示了
你不认真看。


高级用法请看下面的软件



====CSDN 小助手 V2.5 2005年11月05日发布====
CSDN小助手是一款脱离浏览器也可以访问Csdn论坛的软件
界面：http://blog.csdn.net/Qqwwee_Com/archive/2005/11/05/523395.aspx
下载：http://szlawbook.com/csdnv2