تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل هذا الكود
#1
كود :
Imports System.Web
Imports System.Net
Imports System.IO
Imports System.Text

Public Class Form1
    Sub login(ByVal email As String, ByVal password As String)
        If txtUserName.Text = String.Empty AndAlso txtPass.Text = String.Empty Then
            MsgBox("Put your email & password", 0, "Input data")
        Else
            Dim postData As String = "email=" & email & "&pass=" & password & ""
            Dim tempcookies As New CookieContainer
            Dim encoding As New UTF8Encoding
            Dim byteData As Byte() = encoding.GetBytes(postData)
            Dim postreq As HttpWebRequest = DirectCast(HttpWebRequest.Create("http://login.uid.me/?site=2newsyu&ref=http://newsyu.at.ua/"), HttpWebRequest)
            postreq.Method = "POST"
            postreq.KeepAlive = True
            postreq.CookieContainer = tempcookies
            postreq.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:2.0b6pre) Gecko/20100903 Firefox/4.0b6pre"
            postreq.ContentType = "application/x-www-form-urlencoded"
            postreq.Referer = "http://login.uid.me/?site=2newsyu&ref=http://newsyu.at.ua/"
            postreq.ContentLength = byteData.Length
            Dim postreqstream As Stream = postreq.GetRequestStream()
            postreqstream.Write(byteData, 0, byteData.Length)
            postreqstream.Close()
            Dim postresponse As HttpWebResponse
            postresponse = DirectCast(postreq.GetResponse, HttpWebResponse)
            tempcookies.Add(postresponse.Cookies)
            Dim logincookie
            logincookie = tempcookies
            Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
            Dim thepage As String = postreqreader.ReadToEnd
            If thepage.Contains("Incorrect email/password combination") = True Then
                MsgBox("Incorrect email/password combination", 0, "Login error!")
            Else
                MsgBox("Logged in", 0, "Success!")
            End If
            If thepage.Contains("You have exceeded the number of invalid login attempts that we allow for your account") = True Then
                MsgBox("You have exceeded the number of invalid login attempts", 0, "Max number of wrong logins")
            End If
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        login(txtUserName.Text, "12312332112123")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        login(txtUserName.Text, txtPass.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Start()
    End Sub
End Class
المشكلة اذا كان الاميل خطأ بيظهر رسالة Login اريد اذا كان الاميل ليس متسجل فى الموقع يظهر خطأ اما اذا كان متسجل يظهر تم بنجاح تسجيل الدخول شكرآ هذا هو الموقع
http://newsyu.at.ua/
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حل مشكلة الكود الاتي - سهل- CLARO 3 78 02-12-16, 04:06 PM
آخر رد: ali.alfoly
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 40 29-11-16, 01:37 AM
آخر رد: hglogtd
  ما هو الخطاء فى هذا الكود "كود التعديل" السيد الجوهري 1 63 26-11-16, 03:22 AM
آخر رد: أبو عمر
  [VB.NET] ربط الداتا بيز بالكريستال ريبورت عن طريق الكود thevirus 3 97 22-11-16, 02:38 PM
آخر رد: thevirus
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 200 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [سؤال] هل يمكن عرض عناصر الكومبوبوكس عن طريق الكود ؟؟؟؟؟؟؟؟؟؟؟؟ thevirus 1 98 10-11-16, 06:25 PM
آخر رد: أبو عمر
  كيف اضيف هذا الكود في module nabil.1710 6 123 01-11-16, 03:23 PM
آخر رد: silverlight
  كيف انقل هذا الكود منForm2 اليForm1 3asfa~mdmra 2 73 30-10-16, 01:47 PM
آخر رد: 3asfa~mdmra
  [VB.NET] تعديل بسيط على المشروع المرفق أبووسم 4 133 29-10-16, 03:42 PM
آخر رد: أبووسم
  ممكن شرح هذا الكود؟ rafaag777 0 72 26-10-16, 10:18 AM
آخر رد: rafaag777

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


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