[الماجيك مسعد]

(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 يوم ليا احاول حل هذا المشكلة

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