تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] شرح انشاء برنامج لتسجيل الدخول للمنتدى
#1
السلام عليكم 
حابب اعطيكم طريقة لعمل برنامج تسجيل الدخول و راح نجربو على المنتدى 
نبدا :
نحتاج 
TextBox عدد (2)
و نحتاج Button لتسجيل الدخول
الNameSpace الي نحتاجها 
كود :
Imports System.IO
Imports System.Net
Imports System.Text
كما نحتاج Function عدد (2) هما :
كود :
Dim CC As New CookieContainer
   Dim RQ As HttpWebRequest
   Dim RP As HttpWebResponse
   Public Function GetResponse(ByVal url As String, ByVal referer As String) As String
       RQ = CType(HttpWebRequest.Create(url), HttpWebRequest)
       RQ.CookieContainer = CC

       If referer <> "" Then
           RQ.Referer = referer
       End If

       RP = CType(RQ.GetResponse(), HttpWebResponse)

       Return New StreamReader(RP.GetResponseStream()).ReadToEnd()
   End Function

   Public Function GetResponse(ByVal url As String, ByVal post As String, ByVal referer As String) As String
       RQ = CType(HttpWebRequest.Create(url), HttpWebRequest)
       RQ.Method = "POST"
       RQ.CookieContainer = CC
       RQ.UserAgent = "AppleWebKit/537.36 (KHTML, like Gecko) Mozilla/5.0 (Windows NT 6.1) Chrome/28.0.1468.0 Safari/537.36"

       If referer <> "" Then
           RQ.Referer = referer
       End If

       Dim byteArr() As Byte = Encoding.Default.GetBytes(post)
       RQ.ContentLength = byteArr.Length

       Dim dataStream As Stream = RQ.GetRequestStream()
       dataStream.Write(byteArr, 0, byteArr.Length)

       RP = CType(RQ.GetResponse(), HttpWebResponse)

       Return New StreamReader(RP.GetResponseStream()).ReadToEnd()
   End Function

و الان كود الButton 
كود :
Dim html As String = GetResponse("http://vb4arb.com/vb/member.php?action=login/", "")
       Dim token As String = html.Substring(html.IndexOf("csrfmiddlewaretoken")).Split(""""c)(2)
       Dim username As String = TextBox1.Text
       Dim password As String = TextBox2.Text

       Dim S_B As New StringBuilder
       S_B.Append("csrfmiddlewaretoken=" & token)
       S_B.Append("&username=" & username)
       S_B.Append("&password=" & password)

       html = GetResponse("http://vb4arb.com/vb/member.php?action=login", S_B.ToString, "http://vb4arb.com/vb/member.php?action=login/")

       If html.Contains("""username"":""" & username) Then
           MsgBox("Successfully Logged In", MessageBoxIcon.Information)
       ElseIf html.Contains("Please enter a correct username and password.") Then
           MsgBox("Invalid Username or Password", MessageBoxIcon.Error)
       Else
           MsgBox("Unable Login Error", MessageBoxIcon.Error)
       End If

الان اضغط على F5

و جرب 
اذا طلعتلك الرساله هاذي 

يعني تم تسجيل الدخول بنجاح  Shy


منقووووووووووووووووووووووووووووووووووووووول للفائدة  Heart
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد }}}}
تم الشكر بواسطة: الماجيك مسعد
#2
أولا يعطيك العافية على هذا المجهود
لكن ممكن بعد إذنك شرح للأكواد بالتفصيل سطر سطر؟؟

من بعد أذنك عندي ايضا سؤال طرحته على شكل موضوع في هذا المنتدى ممكن تساعد في حل هذا السؤال؟؟
هذا هو الرابط:
http://vb4arb.com/vb/thread-17771.html
الرد }}}}
تم الشكر بواسطة:
#3
جربت البرنامج لكنه أعطاني هذا الخطأ:


ماهو الحل برأيك؟؟؟
الرد }}}}
تم الشكر بواسطة: CLARO
#4
اشكرك على الطرح القيم
الرد }}}}
تم الشكر بواسطة:
#5
(27-10-16, 04:03 PM)rafaag777 كتب : جربت البرنامج لكنه أعطاني هذا الخطأ:


ماهو الحل برأيك؟؟؟

هذا المثال للانستغرام فقط Dodgy
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] مشروع برنامج لتشغيل ملفات mp3 alking-0999 2 510 31-12-16, 11:46 PM
آخر رد: Basil Abdallah
  عمل برنامج FTP Upload Basil Abdallah 3 148 31-12-16, 11:46 PM
آخر رد: Basil Abdallah
Information تحميل برنامج الفيجوال بيسك 2010 download visual basic 2010 mohamed atef2018 1 422 31-12-16, 11:44 PM
آخر رد: Basil Abdallah
Question [مقال] كيف تعرف عدد مستخدمين برنامج Basil Abdallah 6 216 31-12-16, 10:32 PM
آخر رد: Basil Abdallah
  [مشروع] تعلم كيف تصنع برنامج لنشر منشورات لحساب الفيس بوك الخاص بك Basil Abdallah 6 213 31-12-16, 09:23 PM
آخر رد: Basil Abdallah
  طباعة بيانات موجودة في برنامج على ( 2003 Microsoft Office Word ) abulayth 1 420 11-09-16, 07:20 AM
آخر رد: أبووسم
  العلاقات بين الجداول-الاضافة و الحذف و التعديل-برنامج لحفظ مصادر الموقع ابو ليلى 10 1,299 23-06-16, 01:13 PM
آخر رد: yasser_72
  شرح انشاء برنامج تحويل صيغ الملفات الصوتيه CLARO 9 444 02-06-16, 11:13 AM
آخر رد: CLARO
  شرح انشاء برنامج دردشة بسيط CLARO 0 348 28-05-16, 02:24 PM
آخر رد: CLARO
Brick [مثال] انشاء ترميز باركود من نوع QR عن طريق موقع جوجل الطالب 1 484 02-09-15, 10:42 PM
آخر رد: مبرمج بلا حدود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم