So Demon hat nen kleinen Spam Bot
in Vb releast :)
ich machs ma in Autoit :D
Alles anzeigen
Funktionen:
Hf damit :)
in Vb releast :)
ich machs ma in Autoit :D
Quellcode
- #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
- Eingabe der Anzahl wie oft der Text gesendet werden soll
- Den Abstand des Sendens
- Abbrechen
Hf damit :)