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 :)