Spambot Hilfe!

    Hey,
    ich will ein spambot machen aber hab folgendes problem...
    Wenn ich den spambot starte spammt er nur " 4 " bitte hilfe >.<

    Spoiler anzeigen


    Edit: So richtig jetzt?.... hat nix geholfen

    In $text steht die 4, welche die ID des Inputcontrols ist. Mit Funktionen wie GUICtrlRead kannst du anhand der ControlID den Text des Controls auslesen. Das was GUICtrlRead zurückgibt, musst du auch wieder in einer Variablen speichern (außer, du trägst es direkt in Send ein), und diese Variable gibst du dann in Send an.

    Bitte schön :)
    Update: 22:52 Uhr , klappt nun.
    Getestet.


    Edit: Keine antwort ? Kein danke ^^ ?
    [cs]#include <GUIConstants.au3>
    HotKeySet("{F6}", "_Exit")


    $Form1 = GUICreate("Form1", 210, 154, 463, 177)
    $spamgo = GUICtrlCreateButton("Start Spambot", 16, 8, 177, 41, 0)
    $input = GUICtrlCreateInput("", 16, 112, 177, 21) ; Dein Text
    GUISetState(@SW_SHOW)


    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $spamgo
    ShellExecute("Notepad.exe") ; Starte Notepad zum spammen , können auch programm sein
    WinWaitActive("[CLASS:Notepad]") ; Aktiviert Notepad , damit dort drin gespammt wird
    $Text = GUICtrlRead($input) ; Liest den Text
    AdlibRegister("_Spam", 500) ; Starte _Spam mit delay 500


    EndSwitch
    WEnd


    Func _Spam()
    If $Text == "" Then ; Wenn nix drin steht kommt die MSG
    MsgBox(0, "Fehler", "Sie haben Nix eingegeben")
    AdlibUnRegister("_Spam") ; Hört auf mit der Funktion _Spam
    Else
    Send($text) ; Sendet den Text
    Send("{ENTER}") ; Sendet Enter
    Sleep(250) ; Delay 250


    EndIf
    EndFunc ;==>_Spam



    Func _Exit() ; Selbst erklärent :D
    AdlibUnRegister("_Spam")
    Exit
    EndFunc ;==>_Exit[/cs]