[ VB.NET ] خطا في فنكشن

تم تحميل الصفحة في 0,3451476 ثانية
خطا في فنكشن
إنضم
11 يناير 2019
المشاركات
30
الإعجابات
9
النقاط
8
العمر
19
سلام عليكم كنت عامل برنامج يفحص جيميل بس فنكشن فيه خطا ممكن اخد يصلحهولي؟
كود:
Function gmail(ByVal email As String) As Object
        Try
            Dim user As String = email.Replace("@gmail.com", "")
            Dim post As String = "{""input01"":{""Input"":""GmailAddress"",""GmailAddress"":""" + user + """,""FirstName"":""JKHack"",""LastName"":""JKHack""},""Locale"":""en""}"
            Dim Bytes As Byte() = Encoding.UTF8.GetBytes(post)
            Dim Req As HttpWebRequest = DirectCast(WebRequest.Create("https://accounts.google.com/InputValidator?resource=SignUp&service=mail"), HttpWebRequest)
            Req.Proxy = Nothing
            Req.Method = "POST"
            Req.ContentType = "application/json; charset=utf-8"
            Req.Referer = "https://accounts.google.com/SignUp?service=mail&continue=https://mail.google.com/mail&hl=ar"
            Req.UserAgent = "Mozilla/5.0 (iPhone; U; CPU iPhone OS 3_0 like Mac OS X; en-us) AppleWebKit/528.18 (KHTML, like Gecko) Version/4.0 Mobile/7A341 Safari/528.16"
            Req.ContentLength = Bytes.Length
            Req.CookieContainer = New CookieContainer
            Dim Stream As Stream = Req.GetRequestStream()
            Stream.Write(Bytes, 0, Bytes.Length)
            Stream.Close()
            Dim xRes As HttpWebResponse = DirectCast(Req.GetResponse(), HttpWebResponse)
            If New StreamReader(xRes.GetResponseStream).ReadToEnd.Contains("""Valid"":""true""") Then
                instagram(xemail)
            Else
                Label13.Text += 1
            End If
        Catch ex As Exception : End Try
        Return Nothing
    End Function
 
إنضم
3 مايو 2013
المشاركات
1,207
الإعجابات
1,316
النقاط
143
ممكن ترفع المشروع كامل
لأن في اشياء ناقصة
مثل instagram ما ادري هو فنكشن ولا شي ثاني
وxemail

والـ Label وش يكون موجود فيه
 
إنضم
11 يناير 2019
المشاركات
30
الإعجابات
9
النقاط
8
العمر
19
ممكن ترفع المشروع كامل
لأن في اشياء ناقصة
مثل instagram ما ادري هو فنكشن ولا شي ثاني
وxemail

والـ Label وش يكون موجود فيه
;ممكن الانستجرام او فيس تبعك اتواص مععك؟؟
 

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل