[sooriaty03]

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

لأ الطريقة اللي اتبعتوها لتسجيل الدخول هي للدخول إلى شبكة اتصال انترنت محمية باسم مستخدم وكلمة المرور وليست للدخول إلى الموقع
أما بالنسبة إلى الموقع فعن طريق تمرير الكوكيز

[سعود]

إقتباس :عن طريق تمرير الكوكيز

طيب شلون هذي

[sooriaty03]

(10-10-13, 05:57 PM)سعود كتب :

إقتباس :عن طريق تمرير الكوكيز

طيب شلون هذي

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

تفضل أخي

كود :

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()

---

إذا أردت جلب الكوكيز فباستخدام متصفح فايرفوكس

[سعود]

لكن لا اعرف التعامل مع الكوكيز حتى بتطبيقات الويب اللي سويتها
يعني ايش يكون محتوى الكوكيز؟
معلش شي غامض بالنسبة لي

---

طيب الكود التالي هل نطبق عليه؟ هل ممكن؟
http://vb4arb.com/vb/showthread.php?tid=...84#pid2184
لانه بيحفظ كل شيء بالصفحة من غير اتصال

[sooriaty03]

(10-10-13, 06:07 PM)سعود كتب : لكن لا اعرف التعامل مع الكوكيز حتى بتطبيقات الويب اللي سويتها
يعني ايش يكون محتوى الكوكيز؟
معلش شي غامض بالنسبة لي

---

طيب الكود التالي هل نطبق عليه؟ هل ممكن؟
http://vb4arb.com/vb/showthread.php?tid=...84#pid2184
لانه بيحفظ كل شيء بالصفحة من غير اتصال

على ما يبدو أن هذه المكتبة هي لكتابة الرسائل فقط
ولا يوجد فيها إمكانية تسجيل دخول

بالنسبة إلى الكوكيز فنسنطيع معرفتها بكل سهولة فقط اتبع الخطوات

افتح الفايرفكس
وانتقل إلى صفحة المنتدى
قم بتسجيل الدخول وقم بوضع علامة صح على مربع تذكرني
بعد ذلك قم بتنزيل الملحق Tamper Data
بعد التنزيل سيطلب إعادة تشغيل الفايرفوكس ... قم بالموافقة على ذلك
اذهب الآن الآن إلى أداة TamperData ستجدها في القائمة المنسدلة "أدوات"
من النافذة المنبثقة اختر Start Tamper
اذهب إلى المتصفح مرة أخرى وافتح صفحة المنتدى
بمجرد الدخول إلى الموقع سيبدأ عمل Tamper Data وسيظهر لك مربع حوار اختر الخيار Tamper
ستنفتح نافذة فيها بعض الخيارات قم بنسخ محتوى Cookies
أخيرا قم بلصقه كما هو في البرنامج

بعد ذلك إذا أتممت هذه الخطوة سنأتي إلى خطوة معرفة اسم الملف

[سعود]

اتعبتك معي
يعني لازم ملف آخر نستخدمه
يعني الا يمكن تطبيق الفكرة فقط بواسطة فيجوال بيسك؟؟؟
خلاص اذا ... شكلي كنسلت الفكرة.
المعذرة ساكتفي بحفظ الصفحات

[sooriaty03]

(10-10-13, 06:42 PM)سعود كتب : اتعبتك معي
يعني لازم ملف آخر نستخدمه
يعني الا يمكن تطبيق الفكرة فقط بواسطة فيجوال بيسك؟؟؟
خلاص اذا ... شكلي كنسلت الفكرة.
المعذرة ساكتفي بحفظ الصفحات

لأ يا أخي الموضوع سهل جدا ولأول مرة وبعد ذلك لن تكرر العملية ولن تضيف أي أداة إلى الفيجوال بيسك
هي فقط لأخذ بيانات اسم المستخدم وكلمة المرور

لتتمكن من تحميل المرفقات

[سعود]

http://www.codeproject.com/Articles/1965...th-Cookies
حولت الكود الى vb لكن يوجد خطا لم افهمه

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

(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

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

[سعود]

اخي ابو اريد المشكلة ان المثال يستخدم كونسول شلون نستخدمه