Youtube selbst hat auf der Seite das Anmeldeverfahren geändert. Ich weiß nicht genau was aber ein Beispiel wäre: (ist nicht so auf youtube blos beispiel)
Früher: alle daten wie name, passwort, geburtsdatum, gehimeinantwort untereinander auf einer seite eingeben und dann auf ok oder so drücken.
Heute: Name, passwort, geburtsdatum auf einer Seite, dann muss man auf weiter klicken und dann die geheimantwort eingeben.
nein, man muss sich registrieren, hat dann einen unnutzbaren Account auf der eMail und muss sich einen Kanal mit dem gewünschten Benutzernamen erstellen.
Jaa, ich hab einen YouTube Account Bot verkauft, den sicher einige von euch kennen.
YouTube hat aber leider sein Registrierungsverfahren geändert und deshalb muss man Id's ändern und noch etwas hinzufügen. (Wer nicht weiß was, kann es auf YouTube testen).
Im Anhang habe ich den Sourcecode und ich poste ihn auch nochmal hier.
Es gibt nur eine Regel: Es darf nicht verändert und/oder verkauft werden, also nur für den Privatgebrauch.
@.SaFe,
Der Absatz wiederspricht sich ein bisschen
Hi
Geil, dass man mal die Chance bekommt zu sehen wie das funktioniert. Von den Anweisungen hab ich das im Grunde alles verstanden, ich geh jetzt mal davon aus, dass ich die nächsten Schritte zu einem funktionsfähigen Bot selbst hinbekomme, aber wie funktioniert das mit dem Compiler genau ? Lade ich mir einen C++ Editor mit Compiler, ändere dort die Source und lass mir dann eine exe ausspucken oder wie läuft das ?
Gruß
Naja eigentlich ist ja C# eine OOP aber das ähnelt leicht einem Funktionalen Stil.
OOP hätte man das ganze bestimmt leichter lösen können und vorallem übersichtlicher^^
dabei handelt es sich nicht um die optimal lösung.
1. ist das ganze sehr funktional
2. ist die webbrowser komponente der wohl langsamste weg dafür, obwohl bei einer solch komplexen seite wie youtube auch der einfachste
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 & "")
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
Imports System
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 As var = "BCDFGHJKLMNPQRSTVWXYZ"
Dim random As var = New Random()
Dim a As var = New String(Enumerable.Repeat(chars_a, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
Dim chars_b As var = "aeiou"
Dim b As var = New String(Enumerable.Repeat(chars_b, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
Dim chars_z As var = "0123456789"
Dim z As var = New String(Enumerable.Repeat(chars_z, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
Dim chars_c As var = "aeiou"
Dim c As var = New String(Enumerable.Repeat(chars_c, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
Dim chars_d As var = "aeiou"
Dim d As var = New String(Enumerable.Repeat(chars_d, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
Dim chars_f As var = "bcdfghjklmnpqrstvwxyz"
Dim f As var = New String(Enumerable.Repeat(chars_f, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
Dim chars_g As var = "bcdfghjklmnpqrstvwxyz"
Dim g As var = New String(Enumerable.Repeat(chars_g, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
Dim chars_z_2 As var = "0123456789"
Dim z2 As var = New String(Enumerable.Repeat(chars_z_2, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
Dim chars_h As var = "aeiou"
Dim h As var = New String(Enumerable.Repeat(chars_h, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
Dim chars_z_3 As var = "0123456789"
Dim z3 As var = New String(Enumerable.Repeat(chars_z_3, 1).[Select](Function(s As ) s(random.[Next](s.Length))).ToArray())
nickname = a + b + f + c + g + h + "s" + z + z2 + z3
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
webBrowser1.Document.GetElementById("Email").SetAttribute("value", l + "")
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
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
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
[S] YouTube Account [B] YouTube Account [Jeder der das liest 1mal anklicken :)] 12/15/2011 - elite*gold Trading - 3 Replies Hallo e*pvp,
ich tausche meinen YouTube Account gegen einen YouTube acc mit mindestens 1.000 Abonnenten.
Mein Account besitzt mehr wie 1.200Abonnenten, aber daher mir der Name nicht gefällt will ich tauschen. Wer interesse an einem tausch hat, schreibt mir. Ich kaufe auf per PSC.
Mfg
[B]YouTube - Account Checker Source[S]E*Gold 08/18/2011 - elite*gold Trading - 26 Replies Hi,
ich verkaufe den Source Code meines YouTube - Account Checker.
Hier das Programm:
http://www7.pic-upload.de/18.08.11/hxisgy5bbdm.jp g
![[Source] YouTube Account Bot](https://www.elitepvpers.com/forum/iconimages/coding-releases/source-youtube-account-bot_ltr.gif){kind=small}
")
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
