VB.net 访问网页

Private Sub visiweb()
         'Dim myWebRequest As HttpWebRequest
        Dim myWebRequest As HttpWebRequest = CType(WebRequest.Create("http://www.8xxl.com"), HttpWebRequest)
        myWebRequest.ReadWriteTimeout = 100
        Dim myProxy As New WebProxy
        Dim url As String = "http://www.8xxl.com" ' 这是我的小站，有空来坐坐
        Dim httpURL As New System.Uri(url)

        myProxy = CType(myWebRequest.Proxy, WebProxy)

        NewThread.Sleep(100)

        Dim Closed As Boolean = False

        Try
            If Closed = False Then

                Dim proxyAddress As String
                proxyAddress = "http://125.96.9.219:808"
                If proxyAddress.Length = 0 Then
                    myWebRequest.Proxy = myProxy
                Else
                    Dim newUri As New Uri(proxyAddress)
                    myProxy.Address = newUri
                    myProxy.Credentials = New NetworkCredential("", "")
                    myWebRequest.Proxy = myProxy
                End If

                Dim myWebResponse As HttpWebResponse = CType(myWebRequest.GetResponse(), HttpWebResponse)
                myWebRequest = CType(WebRequest.Create(httpURL), HttpWebRequest)
                myWebRequest.Method = "GET"
                myWebResponse = CType(myWebRequest.GetResponse(), HttpWebResponse)

                myWebRequest.KeepAlive = False ' 获取或设置一个值，该值指示是否与 Internet 资源建立持久连接。

                Dim reader As StreamReader = _
                New StreamReader(myWebResponse.GetResponseStream, System.Text.Encoding.GetEncoding("GB2312"))
                Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码
                visit.Text = CInt(visit.Text) + 1

                MessageBox.Show(respHTML)
                Closed = True
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message, "提示")
         End Try

    End Sub