![[Release]Youtube Abo Bot](https://www.elitepvpers.com/forum/iconimages/coding-tutorials/release-youtube-abo-bot_ltr.gif){kind=small}
da immer mehr Leute fremde Youtube Bot Sources verkaufen mache ich meinen nun public damit das aufhört mit dem ganzen Müll.
Für ich erkläre Schritt für Schritt den Bot für die die nichts lernen wollen: Scrollt runter.
Es ist nur der Abobot! Er Aboniert hidden!
Erklärung:
Zuerst erstellen wir eine GUI mit:
-2 Inputboxen
-3 Label
-1 Button
Wie diese: (Die " 1111 " ist als Platzhalter da damit Koda es nicht wegschneidet!)
Source der GUI
PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Abo Bot", 332, 125, 192, 124)
$Label1 = GUICtrlCreateLabel("Channel URL:", 8, 8, 71, 17)
$Input1 = GUICtrlCreateInput("", 8, 32, 313, 21)
$Label2 = GUICtrlCreateLabel("Wie viele Abos:", 8, 64, 78, 17)
$Input2 = GUICtrlCreateInput("", 88, 64, 33, 21)
$Label3 = GUICtrlCreateLabel("Bereits Aboniert: ", 8, 96, 108, 17) ; Hier kann jetzt die 1111 weggemacht werden
$Button1 = GUICtrlCreateButton("Start", 136, 64, 185, 49, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
PHP Code:
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$URL = GUICtrlRead($Input1) ;Input lesen und als Variable $URL speichern
$Anz = GUICtrlRead($Input2) ;Input lesen und als Variable $Anz speichern
Start() ; Funktion erstellen
EndSwitch
WEnd
PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
PHP Code:
Func Start()
$Anz = GUICtrlRead($Input2) ;Input lesen und als Variable $Anz speichern
For $a = 1 To $Anz
$IE = _IECREATEEMBEDDED()
$Bot = GUICreate("Form1", 800, 800);Erstellt eine neue GUI
GUICtrlCreateObj($IE, 0, 0, 800, 800);Erstellt ein neues Objekt
GUISetState(@SW_HIDE);Macht das fenster unsichtbar
_IENAVIGATE($IE, "https://www.google.com/accounts/ServiceLogin?uilel=3&service=youtube&passive=true&continue=http%3A%2F%2Fwww.youtube.com%2Fsignin%3Faction_handle_signin%3Dtrue%26nomobiletemp%3D1%26hl%3Dde_DE%26next%3D%252F%253Fgl%253DDE%2526hl%253Dde&hl=de_DE<mpl=sso")
Sleep(2000) ; Wartet bis das IE Fenster ($IE) geladen ist
$IDs = FileOpen(@ScriptDir & "\Nutzernamen.txt");Öffnet das Textdokument das die Nutzernamen enthält
$Login = FileReadLine($IDs, $a);Liest im Script "IDs" die erste Zeile raus da $a=1 ist und speichert is in eine Variable, wenn die Schleife einmal durch ist wird Zeile 2 Ausgelesen
FileClose($IDs);Schließt das Fenster wieder
$PWs = FileOpen(@ScriptDir & "\Passwörter.txt");Öffnet das Textdokument das die Passwörter enthält enthält und speichert is in eine Variable
$Passwort = FileReadLine($PWs, $a);Liest im Script "PSs" aus
FileClose($PWs);Schließt das Fenster wieder
$Loginform = _IEFORMGETOBJBYNAME($IE, "gaia_loginform")
$IDIn = _IEGetObjById($IE, "Email");Liest die ID des Inputs
$PWIn = _IEGetObjById($IE, "Passwd");Liest die ID des Inputs
$Anmelden = _IEGetObjById($IE, "signIn");Liest die ID des Anmeldebuttons
_IEFormElementSetValue($IDIn, $Login);Füllt die form mit dem Nutzernamen aus
_IEFormElementSetValue($PWIn, $Passwort);Füllt die form mit dem Passwort aus
Sleep(1000)
_IEFormElementCheckBoxSelect($Loginform, 0, "", 0, "byIndex");Macht das häkchen bei "Angemeldet bleiben" weg
_IEACTION($Anmelden, "click"); Klickt auf den Loginbutton
_IELOADWAIT($IE);Wartet bis die Seite fertig geladen ist
Sleep(1500)
$URL = GUICtrlRead($Input1) ;Input lesen und als Variable $URL speichern
_IENAVIGATE($IE, $URL);Öffnet die Seite von dem der Aboniert werden soll
_IELOADWAIT($IE);Wartet bis die Seite fertig geladen ist
Sleep(1500)
$Sub = _IETagNameGetCollection($IE, "span")
For $e In $Sub
If $e.innerHTML = "Abonnieren" Then _IEACTION($e, "click");Klickt auf den Abobutton
Next
Sleep(1000)
$LOGOUT = _IEFormGetObjByName($IE, "logoutForm");Sucht Logout
_IEFORMSUBMIT($LOGOUT, 0);Loggt aus
Sleep(500);Wartet etwas bevor sich das neue Fenster für den nächsten account öffnet
Next
MsgBox(0,"Fertig","Fertig Aboniert");Teilt mit das der Bot fertig ist
EndFunc
Und hier der fertige code:
Ihr müsst in dem Ordner wo sich der Bot befindet 2 Textdokumente machen namens Passwörter und Nutzernamen!
Die Nutzernamen.txt muss so aufgebaut sein:
Name1
Name2
Name3
...
Die Passwörter.txt muss so aufgebaut sein:
Passwort zu dem Account Name1
Passwort zu dem Account Name2
Passwort zu dem Account Name3
Exe Download:
Edit:
Die Funktionen für Like und Dislike:
PHP Code:
Func _Like()
$Anz = GUICtrlRead($input2)
$b = GUICtrlRead($Input1)
If $b = "" Then
MsgBox(0,"Error","Du hast keinen Link angegeben")
Exit
ElseIf $Anz = "" Then
MsgBox(0,"Error","Du hast keine Anzahl angegeben")
Exit
EndIf
For $a = 1 To $Anz
$IE = _IECREATEEMBEDDED()
$Bot = GUICreate("Form1", 800, 800)
GUICtrlCreateObj($IE, 0, 0, 800, 800)
GUISetState(@SW_SHOW)
_IENAVIGATE($IE, "https://www.google.com/accounts/ServiceLogin?uilel=3&service=youtube&passive=true&continue=http%3A%2F%2Fwww.youtube.com%2Fsignin%3Faction_handle_signin%3Dtrue%26nomobiletemp%3D1%26hl%3Dde_DE%26next%3D%252F%253Fgl%253DDE%2526hl%253Dde&hl=de_DE<mpl=sso")
Sleep(2000)
$IDs = FileOpen(@ScriptDir & "\Nutzernamen.txt")
$Login = FileReadLine($IDs, $a);
FileClose($IDs)
$PWs = FileOpen(@ScriptDir & "\Passwörter.txt")
$Passwort = FileReadLine($PWs, $a)
FileClose($PWs)
$Loginform = _IEFORMGETOBJBYNAME($IE, "gaia_loginform")
$IDIn = _IEGetObjById($IE, "Email")
$PWIn = _IEGetObjById($IE, "Passwd")
$Anmelden = _IEGetObjById($IE, "signIn")
_IEFormElementSetValue($IDIn, $Login)
_IEFormElementSetValue($PWIn, $Passwort)
Sleep(1000)
_IEFormElementCheckBoxSelect($Loginform, 0, "", 0, "byIndex")
_IEACTION($Anmelden, "click")
_IELOADWAIT($IE)
_IENavigate($IE,$b)
_IELOADWAIT($IE)
$L = _IEGetObjById($IE,"watch-like")
_IEAction($L,"click")
$LOGOUT = _IEFormGetObjByName($IE, "logoutForm")
_IEFORMSUBMIT($LOGOUT, 0)
Sleep(1100)
Next
MsgBox(0,"Fertig","Fertig")
EndFunc
PHP Code:
Func _Dislike()
$Anz = GUICtrlRead($input2)
$b = GUICtrlRead($Input1)
If $b = "" Then
MsgBox(0,"Error","Du hast keinen Link angegeben")
Exit
ElseIf $Anz = "" Then
MsgBox(0,"Error","Du hast keine Anzahl angegeben")
Exit
EndIf
For $a = 1 To $Anz
$IE = _IECREATEEMBEDDED()
$Bot = GUICreate("Form1", 800, 800)
GUICtrlCreateObj($IE, 0, 0, 800, 800)
GUISetState(@SW_SHOW)
_IENAVIGATE($IE, "https://www.google.com/accounts/ServiceLogin?uilel=3&service=youtube&passive=true&continue=http%3A%2F%2Fwww.youtube.com%2Fsignin%3Faction_handle_signin%3Dtrue%26nomobiletemp%3D1%26hl%3Dde_DE%26next%3D%252F%253Fgl%253DDE%2526hl%253Dde&hl=de_DE<mpl=sso")
Sleep(2000)
$IDs = FileOpen(@ScriptDir & "\Nutzernamen.txt")
$Login = FileReadLine($IDs, $a);
FileClose($IDs)
$PWs = FileOpen(@ScriptDir & "\Passwörter.txt")
$Passwort = FileReadLine($PWs, $a)
FileClose($PWs)
$Loginform = _IEFORMGETOBJBYNAME($IE, "gaia_loginform")
$IDIn = _IEGetObjById($IE, "Email")
$PWIn = _IEGetObjById($IE, "Passwd")
$Anmelden = _IEGetObjById($IE, "signIn")
_IEFormElementSetValue($IDIn, $Login)
_IEFormElementSetValue($PWIn, $Passwort)
Sleep(1000)
_IEFormElementCheckBoxSelect($Loginform, 0, "", 0, "byIndex")
_IEACTION($Anmelden, "click")
_IELOADWAIT($IE)
_IENavigate($IE,$b)
_IELOADWAIT($IE)
$L = _IEGetObjById($IE,"watch-unlike")
_IEAction($L,"click")
$LOGOUT = _IEFormGetObjByName($IE, "logoutForm")
_IEFORMSUBMIT($LOGOUT, 0)
Sleep(1100)
Next
MsgBox(0,"Fertig","Fertig")
EndFunc
, weil man sie sonst für 40€ kaufen muss!!!
assworz
