10-12-16, 04:00 AM
قمت بعمل الطلب بدون القيم
تفضل
اعتقد انك لن تحتاج محتوى الصفحة بعد اكمال التسجيل وستكون تسجيل دخول
لا تنسى التحقق من الايميل قبل التسجيل من هذا الرابط : https://twitter.com/users/email_available?email={mail}
بالتوفيق
تفضل
كود :
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}
بالتوفيق
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
