Spammer Paussieren

[♥ .Meroc' ♥]

Hallo,

Ich möchte mein AutoIT wissen erweitern und wollte mal Fragen wie ich meinen Spam Bot durch drücken eines GUI Buttons Pausieren/Fortsetzen kann.


Script:

 Spoiler

PHP Code:

#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\fabian\desktop\koda\forms\formspammer.kxf
$Form1_1 = GUICreate("Spammer by Bl4CkIsTheBest  ", 515, 218, 193, 125)
GUISetBkColor(0x716F64)
$Input1 = GUICtrlCreateInput("Text 1", 16, 16, 489, 21)
GUICtrlSetCursor (-1, 5)
$Input2 = GUICtrlCreateInput("Text 2", 16, 48, 489, 21)
GUICtrlSetCursor (-1, 5)
$Input3 = GUICtrlCreateInput("1000", 16, 88, 153, 21)
GUICtrlSetCursor (-1, 5)
$Button1 = GUICtrlCreateButton("Credits", 184, 80, 153, 33, 0)
GUICtrlSetFont(-1, 12, 800, 4, "Comic Sans MS")
GUICtrlSetCursor (-1, 0)
$Button2 = GUICtrlCreateButton("Adversiting", 352, 80, 153, 33, 0)
GUICtrlSetFont(-1, 12, 800, 4, "Comic Sans MS")
GUICtrlSetCursor (-1, 0)
$Button3 = GUICtrlCreateButton("Informationen", 16, 120, 153, 57, 0)
GUICtrlSetFont(-1, 12, 800, 4, "Comic Sans MS")
GUICtrlSetCursor (-1, 0)
$Button4 = GUICtrlCreateButton("Start", 184, 120, 153, 57, 0)
GUICtrlSetFont(-1, 12, 800, 4, "Comic Sans MS")
GUICtrlSetCursor (-1, 0)
$Button5 = GUICtrlCreateButton("Pause", 352, 120, 153, 57, 0)
GUICtrlSetFont(-1, 12, 800, 4, "Comic Sans MS")
GUICtrlSetCursor (-1, 0)
$Label1 = GUICtrlCreateLabel("Copyright by Bl4CkIsTheBest                                    http://cleanii.eu/ - Webdesigns", 16, 184, 486, 21)
GUICtrlSetFont(-1, 9, 400, 6, "Comic Sans MS")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
        ShellExecute("http://cleanii.eu/")
            Exit
        Case $Button1
            MsgBox(0,"Credits","Bl4CkIsTheBest - Coding"&@CRLF&"Cleanii - Design")
        Case $Button2
            ShellExecute("http://cleanii.eu/")
            ShellExecute("http://blackworld3.com/")
        Case $Button3
            MsgBox(0,"","Mit F6 beendet sich der Bot"&@CRLF&"Sie Besitzen die Vollversion ohne Updates!")
        Case $Button5
            Exit
        Case $Button4
            MsgBox(0,"","Mit F6 beendet sich der Bot")
            Sleep(5000)
            While 1
            Send(GUICtrlRead($Input1))
            Send("{ENTER}")
            Sleep(GUICtrlRead($Input3))
            Send(GUICtrlRead($Input2))
            Send("{ENTER}")
            Sleep(GUICtrlRead($Input3))
            Wend

    EndSwitch
WEnd 


[Ludder231]

Button mit func, dann ne endlosschleife und sleep drinne...

[KDeluxe]

Wenn du dein Wissen ausweiten möchtest, solltest du bei der GUI anfangen. Diese schmeist dir Koda zwar zusammen, aber bei der Länge... Das geht auch kürzer.
Controls sollten eine nachvollziehbare Bezeichnung bekommen. Bei größeren Projekten bringen dir die Bezeichnungen ButtonX, $InputX, usw. nichts, außer du möchtest ständig nachgucken, was was ist. Das kostet nur wertvolle Zeit, außerdem ist es nervig.
Beim beenden des Programms klatscht man einfach nicht nervige Werbung rein... Was soll das? Die Credits kannst du im Grunde auch gleich streichen, diese gelten eigentlich dem, der dir hilft. Das könnte man natürlich weiter ausdiskutieren, aber wozu? Dafür wärst du wahrscheinlich viel zu uneinsichtig.
Ein weiteres grundlegendes Problem: Man startet in einer Dauerschleife keine 2. Dauerschleife. Deinem primitiven Lösungsweg kannst du entnehmen, wieso man das nicht macht. Dazu noch ein Sleep in Höhe von 5 Sekunden? Das ist 1. viel zu hoch und 2. unnötig.
Die GUI... Sie ist viel zu groß und hat zudem unnötige Buttons. Eine dunkle Farbe macht sich meiner Meinung nach auch nicht gut, aber hier teilen sich die Meinungen.
Zusammengefasst: Das Script sowie resultierendes Ergebnis ist für den Papierkorb.

Kommen wir zu den Lösungsvorschlägen:
Nicht unbedingt beitragend, aber überarbeite die GUI noch einmal. Das mit den Start/Stopp Buttons erreichst du ganz einfach mit einer Variable. Setze diese auf "True" bzw. "False". Es würde sich auch ganz einfach mit einem Button erledigen. Einfach $Variable = Not $Variable als "Schalter" benutzen. Das Delay in entsprechender Höhe kannst du ganz einfach mit Timern verwenden. Hierfür gibt es die Funktionen TimerInit() sowie TimerDiff().

Das ganze wird natürlich gekonnt verdrängt. Was her muss ist ein fertiges Script:

PHP Code:

#include <GUIConstantsEx.au3>

#Region GUI
$GUI = GUICreate("Spammer by Bl4CkIsTheBest  ", 515, 215)
GUISetBkColor(0x716F64)
$I_Text1 = GUICtrlCreateInput("Text 1", 16, 16, 489, 21)
$I_Text2 = GUICtrlCreateInput("Text 2", 16, 48, 489, 21)
$I_Delay = GUICtrlCreateInput("1000", 16, 88, 153, 21)
$B_Credits = GUICtrlCreateButton("Credits", 184, 80, 153, 33, 0)
$B_Advertising = GUICtrlCreateButton("Advertising", 352, 80, 153, 33, 0)
$B_Info = GUICtrlCreateButton("Informationen", 16, 120, 153, 57, 0)
$B_Start = GUICtrlCreateButton("Start", 184, 120, 153, 57, 0)
$B_Stop = GUICtrlCreateButton("Pause", 352, 120, 153, 57, 0)
For $Control = $B_Credits To $B_Stop
    GUICtrlSetFont($Control, 12, 800, 4, "Comic Sans MS")
    GUICtrlSetCursor($Control, 0)
Next
GUICtrlCreateLabel("Copyright by Bl4CkIsTheBest                                    http://cleanii.eu/ - Webdesigns", 16, 184, 486, 21)
GUICtrlSetFont(-1, 9, 400, 6, "Comic Sans MS")
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
#EndRegion

Global $Active, $Timer, $FirstText = True

While Sleep(10)
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $B_Credits
            MsgBox(0, "Credits", "Blaaa")
        Case $B_Advertising
            ShellExecute("http://cleanii.eu/")
            ShellExecute("http://blackworld3.com/")
        Case $B_Info
            MsgBox(0, "", "Hier stehen unnütze Informationen!")
        Case $B_Stop
            $Active = False
        Case $B_Start
            $Active = True
            $Timer = 0
            $FirstText = True
    EndSwitch

    If $Active Then
        If TimerDiff($Timer) >= GUICtrlRead($I_Delay) And Not WinActive($GUI) Then
            Send("{ENTER}")
            If $FirstText Then
                Send(GUICtrlRead($I_Text1))
            Else
                Send(GUICtrlRead($I_Text2))
            EndIf
            Send("{ENTER}")
            $FirstText = Not $FirstText
            $Timer = TimerInit()
        EndIf
    EndIf
WEnd 


Die Erklärungen findest du mit der F1 Hilfe oder auch mit Google.