تقييم الموضوع :
  • 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/
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 97 أمس, 09:25 AM
آخر رد: hglogtd
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 45 19-05-17, 04:09 PM
آخر رد: e-coder
  منع تعديل التاريخ والوقت ريم النهاري 7 145 18-05-17, 09:28 AM
آخر رد: ريم النهاري
  [VB.NET] كيف اضع وقت في هذا الكود e-coder 4 127 18-05-17, 08:07 AM
آخر رد: e-coder
  اين الخطا في هذا الكود rabeh.ram 18 445 16-05-17, 10:48 PM
آخر رد: rabeh.ram
  [مشروع] ممكن تعديل علي المشروع دموع الوطن 12 204 15-05-17, 09:29 AM
آخر رد: دموع الوطن
  [كود] طلب الكود للتاريخ الميلادي كتابياُ باسم الشهر الميلادي . محمد مسافر 2 71 11-05-17, 12:42 AM
آخر رد: محمد مسافر
  محتاج مساعدة في اكمال الكود bidaya 7 216 04-05-17, 05:14 PM
آخر رد: bidaya
  [VB.NET] طلب حل مشكلة هذا الكود A-R 3 93 02-05-17, 05:10 PM
آخر رد: A-R
Smile ممكن رسم سهم بهذا الكود abdalamask 16 369 02-05-17, 10:50 AM
آخر رد: silverlight

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


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