[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}

بالتوفيق