السلام عليكم ورحمة الله وبركاته
لأ الطريقة اللي اتبعتوها لتسجيل الدخول هي للدخول إلى شبكة اتصال انترنت محمية باسم مستخدم وكلمة المرور وليست للدخول إلى الموقع
أما بالنسبة إلى الموقع فعن طريق تمرير الكوكيز
(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()
إذا أردت جلب الكوكيز فباستخدام متصفح فايرفوكس
(10-10-13, 06:07 PM)سعود كتب : [ -> ]لكن لا اعرف التعامل مع الكوكيز حتى بتطبيقات الويب اللي سويتها
يعني ايش يكون محتوى الكوكيز؟
معلش شي غامض بالنسبة لي
طيب الكود التالي هل نطبق عليه؟ هل ممكن؟
http://vb4arb.com/vb/showthread.php?tid=...84#pid2184
لانه بيحفظ كل شيء بالصفحة من غير اتصال
على ما يبدو أن هذه المكتبة هي لكتابة الرسائل فقط
ولا يوجد فيها إمكانية تسجيل دخول
بالنسبة إلى الكوكيز فنسنطيع معرفتها بكل سهولة فقط اتبع الخطوات
افتح الفايرفكس
وانتقل إلى صفحة المنتدى
قم بتسجيل الدخول وقم بوضع علامة صح على مربع تذكرني
بعد ذلك قم بتنزيل الملحق Tamper Data
بعد التنزيل سيطلب إعادة تشغيل الفايرفوكس ... قم بالموافقة على ذلك
اذهب الآن الآن إلى أداة TamperData ستجدها في القائمة المنسدلة "أدوات"
من النافذة المنبثقة اختر Start Tamper
اذهب إلى المتصفح مرة أخرى وافتح صفحة المنتدى
بمجرد الدخول إلى الموقع سيبدأ عمل Tamper Data وسيظهر لك مربع حوار اختر الخيار Tamper
ستنفتح نافذة فيها بعض الخيارات قم بنسخ محتوى Cookies
أخيرا قم بلصقه كما هو في البرنامج
بعد ذلك إذا أتممت هذه الخطوة سنأتي إلى خطوة معرفة اسم الملف
اتعبتك معي
يعني لازم ملف آخر نستخدمه
يعني الا يمكن تطبيق الفكرة فقط بواسطة فيجوال بيسك؟؟؟
خلاص اذا ... شكلي كنسلت الفكرة.
المعذرة ساكتفي بحفظ الصفحات
(10-10-13, 06:42 PM)سعود كتب : [ -> ]اتعبتك معي
يعني لازم ملف آخر نستخدمه
يعني الا يمكن تطبيق الفكرة فقط بواسطة فيجوال بيسك؟؟؟
خلاص اذا ... شكلي كنسلت الفكرة.
المعذرة ساكتفي بحفظ الصفحات
لأ يا أخي الموضوع سهل جدا ولأول مرة وبعد ذلك لن تكرر العملية ولن تضيف أي أداة إلى الفيجوال بيسك
هي فقط لأخذ بيانات اسم المستخدم وكلمة المرور
لتتمكن من تحميل المرفقات
(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
السلام عليكم ورحمة الله وبركاته
اخي ابو اريد المشكلة ان المثال يستخدم كونسول شلون نستخدمه