Spam Bot

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

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

      Quellcode

      1. #include <GUIConstants.au3>
      2. #Region ### START Koda GUI section ### Form=
      3. $Form1_1 = GUICreate("Chat Spamer", 411, 199, 448, 131)
      4. $Group1 = GUICtrlCreateGroup("", 8, 0, 393, 193)
      5. $Edit1 = GUICtrlCreateEdit("", 224, 40, 169, 121)
      6. GUICtrlSetData(-1, "")
      7. $Label2 = GUICtrlCreateLabel("Spam Text", 224, 16, 55, 17)
      8. $Button2 = GUICtrlCreateButton("Start Spaming", 16, 80, 185, 41)
      9. $Label5 = GUICtrlCreateLabel("Spaming Interval", 16, 16, 83, 17)
      10. $Input2 = GUICtrlCreateInput("", 112, 14, 89, 21)
      11. $Label6 = GUICtrlCreateLabel("Spaming Number", 16, 40, 85, 17)
      12. $Input3 = GUICtrlCreateInput("", 112, 38, 89, 21)
      13. $Button3 = GUICtrlCreateButton("Stop Spaming", 16, 136, 185, 41)
      14. $Button1 = GUICtrlCreateButton("Clear", 224, 162, 169, 23, 0)
      15. GUICtrlCreateGroup("", -99, -99, 1, 1)
      16. GUISetState(@SW_SHOW)
      17. #EndRegion ### END Koda GUI section ###
      18. While 1
      19. $counter = 0
      20. $msg = GUIGetMsg()
      21. Switch $msg
      22. Case $GUI_EVENT_CLOSE
      23. exit
      24. Case $Button2
      25. $interval = GuiCtrlRead($Input2)
      26. $count = GuiCtrlRead($Input3) - 1
      27. sleep(1000)
      28. While 1
      29. $text = GuiCtrlRead($Edit1)
      30. send($text)
      31. send("{Enter}")
      32. $msg = GUIGetMsg()
      33. Switch $msg
      34. Case $Button3
      35. $counter = 0
      36. ExitLoop
      37. ExitLoop
      38. EndSwitch
      39. $counter = $counter + 1
      40. If $counter > $count then Exitloop
      41. sleep($interval)
      42. WEnd
      43. EndSwitch
      44. WEnd
      Alles anzeigen
      Funktionen:

      • Eingabe der Anzahl wie oft der Text gesendet werden soll
      • Den Abstand des Sendens
      • Abbrechen


      Hf damit :)
    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )

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

      Demon;156858 schrieb:

      [B]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//

      Demon;156858 schrieb:

      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 =)[/B][/SIZE][/COLOR]
    • 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"]

      sedas;157440 schrieb:


      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]