تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طباعة بيانات موجودة في برنامج على ( 2003 Microsoft Office Word ) abulayth 1 267 11-09-16, 07:20 AM
آخر رد: أبووسم
Information تحميل برنامج الفيجوال بيسك 2010 download visual basic 2010 mohamed atef2018 0 256 09-07-16, 08:30 PM
آخر رد: mohamed atef2018
  العلاقات بين الجداول-الاضافة و الحذف و التعديل-برنامج لحفظ مصادر الموقع ابو ليلى 10 863 23-06-16, 01:13 PM
آخر رد: yasser_72
  شرح انشاء برنامج تحويل صيغ الملفات الصوتيه CLARO 9 313 02-06-16, 11:13 AM
آخر رد: CLARO
  [مشروع] مشروع برنامج لتشغيل ملفات mp3 alking-0999 1 386 01-06-16, 10:20 PM
آخر رد: CLARO
  شرح انشاء برنامج دردشة بسيط CLARO 0 247 28-05-16, 02:24 PM
آخر رد: CLARO
Wink عمل برنامج فك الضغط alking-0999 0 295 20-12-15, 06:32 PM
آخر رد: alking-0999
Brick [مثال] انشاء ترميز باركود من نوع QR عن طريق موقع جوجل الطالب 1 415 02-09-15, 10:42 PM
آخر رد: مبرمج بلا حدود
  [VB.NET] عمل برنامج تحويل الفيديو video convert alking-0999 0 506 09-07-15, 12:50 PM
آخر رد: alking-0999
  [VB.NET] عمل برنامج محرر وعارض اكواد html alking-0999 0 438 08-07-15, 06:27 PM
آخر رد: alking-0999

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


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