[Source] YouTube Account Bot

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.Threading
Imports System.Management

Namespace Youtube_Account_Bot

	Public Partial Class Form1
		Inherits Form

		Public pw As String
		Public l As Integer
		Public rnd As New Random()
		Public isReady As Boolean = False
		Public accs As String
		Public nickname As String
		Public Sub New()


			InitializeComponent()
		End Sub

		Private Sub button1_Click(sender As Object, e As EventArgs)





			Dim chars_a = "BCDFGHJKLMNPQRSTVWXYZ"
			Dim random = New Random()
			Dim a = New String(Enumerable.Repeat(chars_a, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())
			Dim chars_b = "aeiou"
			Dim b = New String(Enumerable.Repeat(chars_b, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())
			Dim chars_z = "0123456789"
			Dim z = New String(Enumerable.Repeat(chars_z, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())
			Dim chars_c = "aeiou"
			Dim c = New String(Enumerable.Repeat(chars_c, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())
			Dim chars_d = "aeiou"
			Dim d = New String(Enumerable.Repeat(chars_d, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())

			Dim chars_f = "bcdfghjklmnpqrstvwxyz"
			Dim f = New String(Enumerable.Repeat(chars_f, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())
			Dim chars_g = "bcdfghjklmnpqrstvwxyz"
			Dim g = New String(Enumerable.Repeat(chars_g, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())
			Dim chars_z_2 = "0123456789"
			Dim z2 = New String(Enumerable.Repeat(chars_z_2, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())
			Dim chars_h = "aeiou"
			Dim h = New String(Enumerable.Repeat(chars_h, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())

			Dim chars_z_3 = "0123456789"
			Dim z3 = New String(Enumerable.Repeat(chars_z_3, 1).[Select](Function(s) s(random.[Next](s.Length))).ToArray())

			nickname = a & b & f & c & g & h & "s" & z & z2 & z3
			' Name zusammensetzen
			pw = a & f & z & c & z3 & g & z2 & b
			accs = textBox2.Text + vbCr & vbLf & nickname & ":" & pw
			textBox2.Text = accs
			l = rnd.[Next](1, 999999999)
			isReady = False
			webBrowser1.Navigate("http://www.youtube.com/create_account")

			MessageBox.Show("weiter?")
			While Not isReady
				Application.DoEvents()
			End While
			webBrowser1.Document.All("signUpEmail").SetAttribute("value", l & "@" & l & ".de")
			webBrowser1.Document.All("username").SetAttribute("value", nickname)
			webBrowser1.Document.GetElementById("birthday_day").SetAttribute("value", "7")
			webBrowser1.Document.GetElementById("birthday_mon").SetAttribute("value", "1")
			webBrowser1.Document.GetElementById("birthday_yr").SetAttribute("value", "1990")
			webBrowser1.Document.All("male").InvokeMember("click")
			webBrowser1.Document.GetElementById("button-signin").InvokeMember("click")

			isReady = False

			isReady = False

			While Not isReady
				Application.DoEvents()
			End While
			webBrowser1.Document.GetElementById("Passwd").SetAttribute("value", "aogf1975")
			webBrowser1.Document.GetElementById("PasswdAgain").SetAttribute("value", "aogf1975")
			webBrowser1.Document.GetElementById("newaccountcaptcha").SetAttribute("value", "11111")
			isReady = False
			webBrowser1.Document.GetElementById("signup").InvokeMember("click")
			While Not isReady
				Application.DoEvents()
			End While
			webBrowser1.Document.GetElementById("Passwd").SetAttribute("value", pw)
			webBrowser1.Document.GetElementById("PasswdAgain").SetAttribute("value", pw)
			isReady = False
		End Sub

		Private Sub webBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
			isReady = True
		End Sub



		Private Sub button3_Click(sender As Object, e As EventArgs)
			isReady = False
			webBrowser1.Navigate("https://www.google.com/accounts/EditEmail")
			While Not isReady
				Application.DoEvents()
			End While
			'eMail ändern ~> AntiBan

			webBrowser1.Document.GetElementById("Email").SetAttribute("value", l & "[Only registered and activated users can see links. Click Here To Register...]")
			webBrowser1.Document.GetElementById("Passwd").SetAttribute("value", pw)
			webBrowser1.Document.All("save").InvokeMember("click")
			isReady = False
			While Not isReady
				Application.DoEvents()
			End While
			isReady = False
			webBrowser1.Navigate("http://cust.in")
			While Not isReady
				Application.DoEvents()
			End While
			Dim ctns As Boolean = False

			'eMail bestätigen
			webBrowser1.Document.GetElementById("intLoginDomainId").SetAttribute("value", "7")
			webBrowser1.Document.GetElementById("strLoginUsername").SetAttribute("value", l & "1")
			isReady = False
			webBrowser1.Document.All("btnLogin").InvokeMember("click")

			While Not isReady
				Application.DoEvents()
			End While
			If webBrowser1.DocumentText.Contains("gaja.bounces.google.com") Then
				ctns = True
			End If
			isReady = False
			'
'            while (ctns == false)
'            {
'                
'                
'
'                while (!isReady)
'                {
'                    Application.DoEvents();
'                }
'                isReady = false;
'                webBrowser1.Document.GetElementById("current").InvokeMember("click");
'                
'                if (webBrowser1.DocumentText.Contains("gaja.bounces.google.com"))
'                {
'                    ctns = true;
'                }
'            }
'                if (ctns == true)
'
'                { 
'                    MessageBox.Show("nice");
'                }

		End Sub



		Private Sub webBrowser1_DocumentCompleted_1(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
			isReady = True
		End Sub

		Private Sub button2_Click(sender As Object, e As EventArgs)
			While Not isReady
				Application.DoEvents()
			End While
			webBrowser1.Document.GetElementById("Passwd").SetAttribute("value", pw)
			webBrowser1.Document.GetElementById("PasswdAgain").SetAttribute("value", pw)
			isReady = False

		End Sub

		Private Sub Form1_Load(sender As Object, e As EventArgs)
			webBrowser1.Navigate("http://youtube.com")
			isReady = False
			Dim form2 As New Form2()
			form2.Close()
		End Sub

		Private Sub button4_Click(sender As Object, e As EventArgs)
			isReady = False
			webBrowser1.Navigate("http://youtube.com")
			While Not isReady
				Application.DoEvents()
			End While

			webBrowser1.Navigate("javascript:document.logoutForm.submit();")
		End Sub

	End Class
End Namespace