[@@أبورائد@@]

(10-10-13, 06:57 PM)سعود كتب : http://www.codeproject.com/Articles/1965...th-Cookies
حولت الكود الى vb لكن يوجد خطا لم افهمه

السلام عليكم ورحمة الله وبركاته

تفضل أخي سعود تحويل الكود إلى VB بدون أخطأء وبدون الحاجة لعمل Imports

كود :

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

السلام عليكم ورحمة الله وبركاته