• So Demon hat nen kleinen Spam Bot
    in Vb releast :)
    ich machs ma in Autoit :D

    Code
    #include <GUIConstants.au3>#Region ### START Koda GUI section ### Form=$Form1_1 = GUICreate("Chat Spamer", 411, 199, 448, 131)$Group1 = GUICtrlCreateGroup("", 8, 0, 393, 193)$Edit1 = GUICtrlCreateEdit("", 224, 40, 169, 121)GUICtrlSetData(-1, "")$Label2 = GUICtrlCreateLabel("Spam Text", 224, 16, 55, 17)$Button2 = GUICtrlCreateButton("Start Spaming", 16, 80, 185, 41)$Label5 = GUICtrlCreateLabel("Spaming Interval", 16, 16, 83, 17)$Input2 = GUICtrlCreateInput("", 112, 14, 89, 21)$Label6 = GUICtrlCreateLabel("Spaming Number", 16, 40, 85, 17)$Input3 = GUICtrlCreateInput("", 112, 38, 89, 21)$Button3 = GUICtrlCreateButton("Stop Spaming", 16, 136, 185, 41)$Button1 = GUICtrlCreateButton("Clear", 224, 162, 169, 23, 0)GUICtrlCreateGroup("", -99, -99, 1, 1)GUISetState(@SW_SHOW)#EndRegion ### END Koda GUI section ###While 1    $counter = 0    $msg = GUIGetMsg()    Switch $msg        Case $GUI_EVENT_CLOSE            exit        Case $Button2            $interval = GuiCtrlRead($Input2)            $count = GuiCtrlRead($Input3) - 1            sleep(1000)            While 1                $text = GuiCtrlRead($Edit1)                send($text)                send("{Enter}")                $msg = GUIGetMsg()                    Switch $msg                        Case $Button3                            $counter = 0                            ExitLoop                            ExitLoop                    EndSwitch                $counter = $counter + 1                If $counter > $count then Exitloop                sleep($interval)            WEnd    EndSwitchWEnd

    Funktionen:

    • Eingabe der Anzahl wie oft der Text gesendet werden soll

    • Den Abstand des Sendens

    • Abbrechen

    Hf damit :)

    [CENTER]
    [/CENTER]

  • Na ja die Frage ist nur warum ? ich hat an einem Sontag morgen Langeweile und hab in ca. 2 Minuten das Ding gemacht ist es echt so lohnenswert mir nach zu machen?

    Edit// Ok Habs mir an geschaut deiner ist besser geworden^^ bedeutet muss noch einen besseren machen ^^

    [CENTER]
    [/CENTER]

  • Hier wurden schon Massig von released.. aber ohne source und nicht in autoit.

    Schön gemacht, aber nicht sehr arbeitsaufwändig..


    Aber hastn Thanks^^


    MfG
    xDrago

    [CENTER]


    [/CENTER]

  • [COLOR="DarkOrange"][SIZE="2"]

    Zitat von Demon;156858

    Na ja die Frage ist nur warum ? ich hat an einem Sontag morgen Langeweile und hab in ca. 2 Minuten das Ding gemacht ist es echt so lohnenswert mir nach zu machen?

    Edit// Ok Habs mir an geschaut deiner ist besser geworden^^ bedeutet muss noch einen besseren machen ^^

    ^^
    is bei mir auch aus langerweile entstanden
    aber is schon n bisel her
    und war grad am pc aufräumen :D

    xDrago
    ty =)
    [/SIZE][/COLOR]

    [CENTER]
    [/CENTER]

  • du hast aber noch ein fehler drin
    das in rot
    [FELD=" "]#include <GUIConstants.au3>

    #Region ### START Koda GUI section ### Form=
    $Form1_1 = GUICreate("Chat Spamer", 411, 199, 448, 131)
    $Group1 = GUICtrlCreateGroup("", 8, 0, 393, 193)
    $Edit1 = GUICtrlCreateEdit("", 224, 40, 169, 121)
    GUICtrlSetData(-1, "")
    $Label2 = GUICtrlCreateLabel("Spam Text", 224, 16, 55, 17)
    $Button2 = GUICtrlCreateButton("Start Spaming", 16, 80, 185, 41)
    $Label5 = GUICtrlCreateLabel("Spaming Interval", 16, 16, 83, 17)
    $Input2 = GUICtrlCreateInput("", 112, 14, 89, 21)
    $Label6 = GUICtrlCreateLabel("Spaming Number", 16, 40, 85, 17)
    $Input3 = GUICtrlCreateInput("", 112, 38, 89, 21)
    $Button3 = GUICtrlCreateButton("Stop Spaming", 16, 136, 185, 41)
    $Button1 = GUICtrlCreateButton("Clear", 224, 162, 169, 23, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###


    While 1
    $counter = 0
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    exit
    Case $Button2
    $interval = GuiCtrlRead($Input2)
    $count = GuiCtrlRead($Input3) - 1
    sleep(1000)
    While 1
    $text = GuiCtrlRead($Edit1)
    send($text)
    send("{Enter}")
    $msg = GUIGetMsg()
    Switch $msg
    Case $Button3
    $counter = 0
    ExitLoop
    ExitLoop
    EndSwitch
    $counter = $counter + 1
    If $counter > $count then Exitloop
    sleep($interval)
    WEnd
    EndSwitch
    WEnd[/FELD]
    den wen der grade sagen wir den txt 1000 mal senden in ein invterval von 100 milisec ist es schwer den beendebutton zu drucken bau das lieber in ein hotkey func ein

  • [COLOR="DarkOrange"][SIZE="2"]

    Zitat von sedas;157440


    den wen der grade sagen wir den txt 1000 mal senden in ein invterval von 100 milisec ist es schwer den beendebutton zu drucken bau das lieber in ein hotkey func ein

    hab ich schon getestet :O
    hatte ich keine probleme mit D:
    aber ich machs trozdem ma wen ich demnächst wieder
    langeweile habe xd
    [/SIZE][/COLOR]

    [CENTER]
    [/CENTER]

Jetzt mitmachen!

Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!