AutoIt Bot Community

AutoIt-QuellCode

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:     Arian Vaziri/ahv2j5dc

 Script Function:
Es ist Ein SpamBOT

#ce ----------------------------------------------------------------------------







Global $Paused
HotKeySet("{F5}", "TogglePause")
HotKeySet("{ESC}", "Terminate")




#include <GUIConstantsEx.au3>
GUICreate("SpamBOT by ahv2j5dc/Arian Vaziri", 1000, 700)
GUISetState(@SW_SHOW)
ToolTip ( "Gib die geforderten Informationen ein", 6, 10)
GUICtrlCreateLabel("Das ist mein SpamBOT den ich zum trainieren und zum Spaß entworfen habe ;-) By Arian Vaziri",10, 10)
GUICtrlCreateLabel("Hier kannst du den Bot Testen er spamt vorgebene Informationen auch hier hast du wieder 5sek Zeit das Fenster zum Spammen zu öffnen", 330, 480)
GUICtrlCreateLabel("Wie oft es Gespammt werden soll in zahlen", 300, 80)
Guictrlcreatelabel ("In welchem Zeitabstand soll Es gespammt werden Zeit in Sekunden", 300, 280)
GUICtrlCreateLabel("Der Text der Gespammt werden soll", 300, 180)
$Oft = GUICtrlCreateInput("", 300, 100, 200, 20)
$Zeit = GuictrlCreateInput ("",300, 300, 200, 20) 
$Box = GUICtrlCreateInput("", 300, 200, 200, 20)
GUICtrlCreateLabel("Wenn du auf Spam klickst hast du noch genau 5 sekunden Zeit bis es anfängt zu Spammen", 150, 620)
$ID_Button = GUICtrlCreateButton("Spam", 600, 600, 50, 50)
$Zu = GUICtrlCreateButton("Schliessen", 700, 600, 80, 50)
$test = GUICtrlCreateButton ("Test", 600, 500, 50, 50)


While 1
$msg = GUIGetMsg()
Switch $msg
Case $ID_Button
        Sleep(5000)
ToolTip ("SpamBOT by ahv2j5dc/Arian vaziri läuft, drücke F5 für Pause und Esc zum Schließen " , 6 , 10)
        For $i = 0 To GUICtrlRead($Oft) - 1 Step +1
            Send(GUICtrlRead($Box))
           Send("{ENTER}")
   sleep(GuictrlRead($Zeit )* 1000)
        Next
Case $test
sleep (5000)
ToolTip ("Test vom SpamBOT by ahv2j5dc/Arian vaziri läuft, drücke F5 für Pause und Esc zum Schließen " , 6 , 10)
For $e = 0 To 5 - 1 Step +1
Send("Dies ist nur ein Test und es sendet es 5x im abstand von 5sekunden")
Send("{Enter}")
Sleep(5000)
Next
    Case $GUI_EVENT_CLOSE
        Exit
    Case $Zu
        Exit
EndSwitch

sleep(20)
WEnd

Func TogglePause()
$Paused = NOT $Paused
While $Paused
    sleep(100)
    ToolTip('Bot ist Pausiert F5 um den BOT wieder zu Starten',0,0)
WEnd
ToolTip("")
EndFunc

Func Terminate()
Exit 0
EndFunc

AutoIt-QuellCode

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         Arian Vaziri/ahv2j5dc

 Script Function:
    Es ist Ein SpamBOT

#ce ----------------------------------------------------------------------------
#include <GUIConstantsEx.au3>

HotKeySet("{F5}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

Global $Paused
Global $Beenden = 0

GUICreate("SpamBOT by ahv2j5dc/Arian Vaziri", 1000, 700)
GUICtrlCreateTab (100,50,800,600)
GUICtrlCreateTabItem ("Spambot")
ToolTip ( "Gib die geforderten Informationen ein", 6, 10)
GUICtrlCreateLabel("Das ist mein SpamBOT den ich zum trainieren und zum Spaß entworfen habe ;-) By Arian Vaziri",10, 10)
GUICtrlCreateLabel("Hier kannst du den Bot Testen er spamt vorgebene Informationen auch hier hast du wieder 5sek Zeit das Fenster zum Spammen zu öffnen", 330, 480)
GUICtrlCreateLabel("Wie oft es Gespammt werden soll in zahlen", 300, 80)
Guictrlcreatelabel ("In welchem Zeitabstand soll Es gespammt werden Zeit in Sekunden", 300, 280)
GUICtrlCreateLabel("Der Text der Gespammt werden soll", 300, 180)
$Oft = GUICtrlCreateInput("", 300, 100, 200, 20)
$Zeit = GuictrlCreateInput ("",300, 300, 200, 20)
$Box = GUICtrlCreateInput("", 300, 200, 200, 20)
GUICtrlCreateLabel("Wenn du auf Spam klickst hast du noch genau 5 sekunden Zeit bis es anfängt zu Spammen", 150, 620)
$ID_Button = GUICtrlCreateButton("Spam", 600, 600, 50, 50)
$Zu = GUICtrlCreateButton("Schliessen", 700, 600, 80, 50)
$test = GUICtrlCreateButton ("Test", 600, 500, 50, 50)

GUICtrlCreateTabItem ("Mehr")
$Spamtext1 = GUICtrlCreateInput ("",110,100,200,20)
$SpamText2 = GUiCtrlCreateInput ("",320,100,200,20)
$SpamText3 = GUICTRLCREATEINPUT ("",530,100,200,20)
$WarteZeit1 = GUICtrlCreateInput("",110,150,200,20)
$WarteZeit2 = GUICtrlCreateInput("",420,150,200,20)
GuiCtrlCreateLabel("Erster SpamText",110,80)
GuiCtrlCreateLabel("Zweiter SpamText",320,80)
GuiCtrlCreateLabel("Dritter SpamText",530,80)
GUICtrlCreateLabel("Warte Zeit zwischen erstem Spamtext und Zweitem",110,130)
GUICtrlCreateLabel("Warte Zeit zwischen zweitem Spamtext und drittem",420,130)
$Button1 = GUICtrlCreateButton("Spam", 648, 552, 137, 49, 0)
$Label1 = GUICtrlCreateLabel("Du hast 5 Sekunden Zeit das Spamziel zu öffnen ", 616, 528, 242, 18)
$Anzahl = GUICtrlCreateInput ("",110,200,200,20)
$Label2 = GUICtrlCreateLabel("Wie oft soll das ganze Gespammt werden", 104, 176, 206, 18)
$WarteZeit3 = GUICtrlCreateInput("", 416, 200, 201, 22)
$Label3 = GUICtrlCreateLabel("Warte Zeit zwischen den Wiederholungen", 416, 176, 207, 18)
$Checkbox1 = GUICtrlCreateCheckbox("Nach abschluss des Spammens den BOT beenden?", 336, 568, 273, 17)
GUISetState(@SW_SHOW)



While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $ID_Button
            TrayTip ("Start", "du hast den Spam gestartet", 5000)
            Sleep(5000)
            ToolTip ("SpamBOT by ahv2j5dc/Arian vaziri läuft, drücke F5 für Pause und Esc zum Schließen " , 6 , 10)
            For $i = 0 To GUICtrlRead($Oft) - 1 Step +1
                Send(GUICtrlRead($Box))
               Send("{ENTER}")
               sleep(GuictrlRead($Zeit )* 1000)
           Next
           
        Case $test
            sleep (5000)
            ToolTip ("Test vom SpamBOT by ahv2j5dc/Arian vaziri läuft, drücke F5 für Pause und Esc zum Schließen " , 6 , 10)
            For $e = 0 To 5 - 1 Step +1
                Send("Dies ist nur ein Test und es sendet es 5x im abstand von 5sekunden")
                Send("{Enter}")
                Sleep(5000)
            Next
        Case $Button1
            TrayTip ("Start", "du hast den Spam gestartet", 5000)
            Sleep(5000)
            ToolTip ("SpamBOT by ahv2j5dc/Arian vaziri läuft, drücke F5 für Pause und Esc zum Schließen " , 6 , 10)
            For $i = 0 To GUICtrlRead($Anzahl) - 1 Step +1
                    sleep(GUICtrlRead($WarteZeit3)* 1000)
                Send (GUICtrlRead($Spamtext1))
                Send ("{ENTER}")
                sleep(GUICtrlRead($WarteZeit1)* 1000)
                Send (GUICtrlRead($Spamtext2))
                Send ("{ENTER}")
                sleep(GUICtrlRead($WarteZeit2)* 1000)
                Send (GUICtrlRead($SpamText3))
                Send ("{ENTER}")
            Next
            
            If (GUICtrlRead($Checkbox1) ) = $GUI_CHECKED Then Exit
                
            
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Zu
            Exit
    EndSwitch
    sleep(20)
WEnd

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Bot ist Pausiert F5 um den BOT wieder zu Starten',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

Func _button1()
    TrayTip ("Start", "du hast den Spam gestartet", 5000)
    Sleep(5000)
    ToolTip ("SpamBOT by ahv2j5dc/Arian vaziri läuft, drücke F5 für Pause und Esc zum Schließen " , 6 , 10)
    For $i = 0 To GUICtrlRead($Anzahl) - 1 Step +1
        sleep(GUICtrlRead($WarteZeit3)* 1000)
        Send (GUICtrlRead($Spamtext1))
        Send ("{ENTER}")
        sleep(GUICtrlRead($WarteZeit1)* 1000)
        Send (GUICtrlRead($Spamtext2))
        Send ("{ENTER}")
        sleep(GUICtrlRead($WarteZeit2)* 1000)
        Send (GUICtrlRead($SpamText3))
        Send ("{ENTER}")
    Next
    
EndFunc