Public Function PostData(ByRef data As String, ByRef url As String) As String
Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
request.Method = "POST"
request.ContentType = "application/x-www-form-urlencoded"
Dim postData As String = data
request.ContentLength = postData.Length
Dim writer As New StreamWriter(request.GetRequestStream(), System.Text.Encoding.ASCII)
writer.Write(postData)
writer.Close()
Dim stream As Stream = request.GetResponse().GetResponseStream()
Dim reader As New StreamReader(stream)
Dim response As String = String.Empty
While (response = reader.ReadLine()) IsNot Nothing
response += reader.ReadLine()
End While
Return response
End Function
Dim Request As Object = .GetResponse("https://accounts.google.com/NewAccount")
Dim Response As HttpWebResponse = DirectCast(Request, HttpWebResponse)
Dim Html As String = .ProcessResponse(Response)
Dim sb As New StringBuilder
sb.Append("email=" & .UrlEncode(Information.EMail))
sb.Append("&username=" & .UrlEncode(Information.Username))
sb.Append("&country=" & Information.Location)
sb.Append("&postal_code=" & Information.Postal)
sb.Append("&birthday_mon=" & Information.Birthday.Month)
sb.Append("&birthday_day=" & Information.Birthday.Day)
sb.Append("&birthday_yr=" & Information.Birthday.Year)
sb.Append("&gender=" & IIf(Information.Gender = Gender.Male, "m", "f"))
sb.Append("&find_me_via_email=agreed")
sb.Append("&scr=h%3D1024%26w%3D1280%26d%3D24")
sb.Append("&service_key=")
sb.Append("&session_key=")
sb.Append("¤t_form=signupForm")
sb.Append("&next=%2F")
sb.Append("&session_token=" & .UrlEncode(.ParseBetween(Html, "XSRF_TOKEN': '", "'", "XSRF_TOKEN': '".Length).Trim))
Request = .GetResponse("https://www.youtube.com/create_account?action_save_user_info=true", sb.ToString)
i made a tool that shorts your link with goo.gl, adf . ly, adfoc. us and tiny. cc
Copyright © 2026, NextGenUpdate.
All Rights Reserved.