[سؤال] احتاج مساعدة في نسخ مواضيع المنتدى

كود :

Dim req As System.Net.HttpWebRequest = System.Net.WebRequest.Create("http://vb4arb.com/vb/index.php")

        req.Headers.Add("cookie", "محتوى الكوكيز")

        Dim res As System.Net.HttpWebResponse = req.GetResponse()

        Dim WebStream As IO.Stream = res.GetResponseStream()

        Dim Reader As New IO.StreamReader(WebStream)

        Dim html As String = Reader.ReadToEnd()

كود :

Class WebClientWithCookies

    Inherits Net.WebClient

    Private _container As New Net.CookieContainer()

    Protected Overrides Function GetWebRequest(ByVal address As Uri) As Net.WebRequest

        Dim request As Net.HttpWebRequest = TryCast(MyBase.GetWebRequest(address), Net.HttpWebRequest)

        If request IsNot Nothing Then

            request.Method = "Post"

            request.CookieContainer = _container

        End If

        Return request

    End Function

End Class

Class Program

    Private Shared _cookies As String = String.Empty

    Private Shared Sub Main(ByVal args As String())

        Dim url As String = "replace with url here"

        Post(url)

        Console.WriteLine("Hit return to exit")

        Console.ReadLine()

    End Sub

    Private Shared Sub client_OpenReadCompleted(ByVal sender As Object, ByVal e As System.Net.OpenReadCompletedEventArgs)

        If e.[Error] Is Nothing Then

            Using stream As IO.Stream = e.Result

                Using reader As New IO.StreamReader(stream)

                    Console.WriteLine(reader.ReadToEnd())

                End Using

            End Using

            Dim client As WebClientWithCookies = TryCast(sender, WebClientWithCookies)

            If client IsNot Nothing Then

                _cookies = client.ResponseHeaders("Set-Cookie")

                Console.WriteLine(_cookies)

            End If

        Else

            Console.WriteLine(e.[Error].Message)

        End If

    End Sub

    Private Shared Sub Post(ByVal url As String)

        Using client As New WebClientWithCookies()

            AddHandler client.OpenReadCompleted, AddressOf client_OpenReadCompleted

            Dim uri = New Uri(url, UriKind.RelativeOrAbsolute)

            client.Headers.Add("Cookie", _cookies)

            client.OpenReadAsync(uri)

        End Using

    End Sub

End Class