[DL]Spam Bot

[MatiCraft]

Bot spamuje całkiem szybko - powiedzmy 10 na sekunde

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("SpamBot v.3.1", 209, 333, -1, -1)
GUISetBkColor(0xD4D0C8)
$Slider1 = GUICtrlCreateSlider(16, 32, 166, 29)
GUICtrlSetLimit(-1, 3, 1)
GUICtrlSetData(-1, 2)
GUICtrlSetBkColor(-1,0xD4D0C8)
$Label1 = GUICtrlCreateLabel("Normalna", 72, 64, 57, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("Podaj szybkość spamu", 32, 8, 132, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("Wolna", 8, 64, 40, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("Szybka", 152, 64, 45, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label5 = GUICtrlCreateLabel("Ile razy spamować tekst wyżej", 8, 216, 175, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Edit1 = GUICtrlCreateEdit("", 8, 120, 185, 89)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetLimit(-1, 50)
GUICtrlSetBkColor(-1,0xD4D0C8)
$Label6 = GUICtrlCreateLabel("Tekst który ma być spamowany", 8, 96, 181, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Input1 = GUICtrlCreateInput("", 8, 240, 193, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER))
GUICtrlSetBkColor(-1,0xD4D0C8)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetLimit(-1, 3)
$Button1 = GUICtrlCreateButton("SPAM", 8, 272, 187, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetCursor (-1, 0)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xC0C0C0)
$Label8 = GUICtrlCreateLabel("By MatiCraft", 8, 304, 114, 17)
$Label7 = GUICtrlCreateLabel("0%", 152, 304, 45, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$iR = GUICtrlRead($Input1)
$jSZ = GUICtrlRead($Slider1)
$jT = GUICtrlRead($Edit1)
If $iR = not "" and $jT = not "" Then
Switch $jSZ
 Case 1
 $jC = 500
 Case 2
 $jC = 100
 Case 3
 $jC = 1
EndSwitch
Local $L
For $L = 1 To 100
 sleep(30)
 GUICtrlSetData($Label7,$L&"%")
Next
 Sleep(500)
$cSt = Msgbox(4,"SPAM","Czy chcesz zacząć spam?")
If $cSt = 7 Then

Else
 Local $L2
 ClipPut($jT)
 For $L2 = 1 To $iR
 Sleep($jC)
 Send("{LCTRL}")
 Send("^{V}")
 Send("{ENTER}")
Next
msgbox(64,"Ukończono","Zakończono Spam")
 GUICtrlSetData($Label7,"0%")
EndIf
Else
msgbox(16,"Błąd","Uzupełnij dane")
EndIf
EndSwitch
WEnd

[Phoenix_PL]

Send("{LCTRL}")
Send("^{V}")

Wywal senda LCTRL, niepotrzebny

A ogólnie dobry pomysł.

Zrób jeszcze przywracanie zawartości schowka po spamowaniu.

[tapne]

spam botów już jest pełno, nie można czegoś innego udostępniać ? ;o

[MatiCraft]

To był taki z nudów do trollowania znajomych może kiedyś coś dodam