منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator (/showthread.php?tid=18321)

الصفحات: 1 2


RE: ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator - LoveVb - 10-12-16

قمت بعمل الطلب بدون القيم

تفضل 

كود :
    Dim cookie As CookieContainer
    Sub CreateAccount(ByVal Name As String, ByVal mail As String, ByVal pswd As String)
        Dim Token As String = ""
        cookie = New CookieContainer
        Dim r As HttpWebRequest = HttpWebRequest.Create("https://twitter.com/account/complete")
        r.CookieContainer = cookie
        Token = Regex.Match(New IO.StreamReader(r.GetResponse.GetResponseStream).ReadToEnd, "value..(.+?)"".+?token").Groups(1).Value
        '
        Dim Data As String = String.Format("authenticity_token={0}&user%5Bname%5D={1}&user%5Bemail%5D={2}&user%5Buser_password%5D={3}&asked_cookie_personalization_setting=1&ad_ref=&user%5Bdiscoverable_by_email%5D=1&asked_discoverable_by_email=1&user%5Bdiscoverable_by_mobile_phone%5D=1&asked_discoverable_by_mobile_phone=1", Token, Name, mail.Replace("@", "%40"), pswd)
        Dim PostData() As Byte = System.Text.Encoding.UTF8.GetBytes(Data)
        Dim req As HttpWebRequest = HttpWebRequest.Create("https://twitter.com/account/create")
        req.Method = "Post"
        req.ContentLength = PostData.Length
        req.ContentType = "application/x-www-form-urlencoded"
        req.CookieContainer = cookie
        req.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/55.0.2883.75 Safari/537.36"
        req.Referer = "https://twitter.com/"
        req.Headers.Add("accept-language", "ar,en-US;q=0.8,en;q=0.6,en-GB;q=0.4")
        Dim WriteData As IO.Stream = req.GetRequestStream
        WriteData.Write(PostData, 0, PostData.Length) : WriteData.Close()
        req.GetResponse()
    End Sub

 اعتقد انك لن تحتاج محتوى الصفحة بعد اكمال التسجيل وستكون تسجيل دخول
لا تنسى التحقق من الايميل قبل التسجيل من هذا الرابط : https://twitter.com/users/email_available?email={mail}

بالتوفيق


RE: ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator - الماجيك مسعد - 10-12-16

(10-12-16, 04:00 AM)LoveVb كتب : قمت بعمل الطلب بدون القيم

تفضل 

كود :
    Dim cookie As CookieContainer
    Sub CreateAccount(ByVal Name As String, ByVal mail As String, ByVal pswd As String)
        Dim Token As String = ""
        cookie = New CookieContainer
        Dim r As HttpWebRequest = HttpWebRequest.Create("https://twitter.com/account/complete")
        r.CookieContainer = cookie
        Token = Regex.Match(New IO.StreamReader(r.GetResponse.GetResponseStream).ReadToEnd, "value..(.+?)"".+?token").Groups(1).Value
        '
        Dim Data As String = String.Format("authenticity_token={0}&user%5Bname%5D={1}&user%5Bemail%5D={2}&user%5Buser_password%5D={3}&asked_cookie_personalization_setting=1&ad_ref=&user%5Bdiscoverable_by_email%5D=1&asked_discoverable_by_email=1&user%5Bdiscoverable_by_mobile_phone%5D=1&asked_discoverable_by_mobile_phone=1", Token, Name, mail.Replace("@", "%40"), pswd)
        Dim PostData() As Byte = System.Text.Encoding.UTF8.GetBytes(Data)
        Dim req As HttpWebRequest = HttpWebRequest.Create("https://twitter.com/account/create")
        req.Method = "Post"
        req.ContentLength = PostData.Length
        req.ContentType = "application/x-www-form-urlencoded"
        req.CookieContainer = cookie
        req.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/55.0.2883.75 Safari/537.36"
        req.Referer = "https://twitter.com/"
        req.Headers.Add("accept-language", "ar,en-US;q=0.8,en;q=0.6,en-GB;q=0.4")
        Dim WriteData As IO.Stream = req.GetRequestStream
        WriteData.Write(PostData, 0, PostData.Length) : WriteData.Close()
        req.GetResponse()
    End Sub

 اعتقد انك لن تحتاج محتوى الصفحة بعد اكمال التسجيل وستكون تسجيل دخول
لا تنسى التحقق من الايميل قبل التسجيل من هذا الرابط : https://twitter.com/users/email_available?email={mail}

بالتوفيق
السلام عليكم

اولا اشكرك كثيرا لانشغالك معى ومساعدتك
ثانيا هل جربته لديك ونجح التسجيل وتم ارسال لينك التفعيل اليك؟

لان لما بجرب عندى بعد ما بعدل المطلوب بيظهرلى الرسالة دى

غير مصرح لك بتنفيذ هذا الاجراء .

اسف انى بتعبك معايا منتظر ردك يا غالى

عملت بريك بوينت

الداتا

"authenticity_token=560c2c02f6d21e399addf076ec0c683818ab13fd&user%5Bname%5D=moutmiyzdmsail&user%5Bemail%5D=5m2tuctmn%40bareed.ws&user%5Buser_password%5D=sddsfvasmwqt1nkmz@bareed.ws&asked_cookie_personalization_setting=1&ad_ref=&user%5Bdiscoverable_by_email%5D=1&asked_discoverable_by_email=1&user%5Bdiscoverable_by_mobile_phone%5D=1&asked_discoverable_by_mobile_phone=1"

وايضا قمت بالتحقق من الاميل اولا وتأكدت انه متاح

ولكن للاسف يعرض هذه الرسالة

غير مصرح لك بتنفيذ هذا الاجراء .

فى انتظار ردك بفارغ الصبر والله

هذا 3 يوم ليا احاول حل هذا المشكلة

يارب يكون الحل على ايدك انت


RE: ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator - LoveVb - 10-12-16

التسجيل شغال وتم ارسال رسالة تفعيل
صور المشكلة


RE: ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator - الماجيك مسعد - 11-12-16

(10-12-16, 11:33 PM)LoveVb كتب : التسجيل شغال وتم ارسال رسالة تفعيل
صور المشكلة

الحمدلله انك رديت
انا منتظر ردك من امبارح والله

المهم
عن اى صورة تتحدث لم ارى اى صور

+
انا لم اشكك فى كودك انا واثق باذن الله انه سليم 100%

بس مش عارف ليه مشتغلش معايا

فضلا وليس امرا لو تعمل مثال (سورس كود) وترفعه

او تدخلى تيم فيور ونجرب على جهازى لتتأكد بنفسك انه لا يسجل لدى

تذكر هذا رجاء وليس اى شئ اخر

وربنا يكرمك من وسع باذن الله

جربت من جهاز اخر الان واشتغل ووصل الرسالة

هل هذا يعنى ان تويتر حظر ايبي بتاعى او حظر جهازى؟


+

بارك الله فيك

ايضا جربت اول كود انا كتبته واشتغل بس على جهاز اخر وليس جهازى يعنى كان السبب تقريبا هو الحظر من تويتر والله اعلم


بارك الله فيك اخى الفاضل

والله انا من كتر زهقى كنت ركنت المشروع

بس الى شجعنى ليه تانى لما لقيتك بدئت ترد على موضوعى

مش عارف اشكرك ازاى والله الله يبارك لك ويرزقك


RE: ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator - LoveVb - 11-12-16

لا اعتقد انه حظر اذا كنت تستطيع تسجيل حساب من المتصفح
هل الخطا يرجع لك ب Forbidden 403


RE: ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator - الماجيك مسعد - 11-12-16

(11-12-16, 12:30 AM)LoveVb كتب : لا اعتقد انه حظر اذا كنت تستطيع تسجيل حساب من المتصفح
هل الخطا يرجع لك ب Forbidden 403

هل لديك حساب فيس بوك او سكايب؟


RE: ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator - الماجيك مسعد - 13-12-16

الله يبارك فيك ويبارك لك

انت انسان مبدع والله