Spambot

[lexox]

Proszę oto mój 1 spam bot w AutoIT robiłem go ciężko ale mi wyszło .

 

HotKeySet("{F2}", "start") ;przycisk startu
HotKeySet("{F3}", "stop") ;przycisk stopu


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

HotKeySet("{F2}", "start") ;przycisk startu
HotKeySet("{F3}", "stop") ;przycisk stopu


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("SpamBot by lexox", 366, 39, 192, 124)
$Input1 = GUICtrlCreateInput("Tutaj wpisz tekst do spamu", 8, 8, 273, 21)
$Button1 = GUICtrlCreateButton("Start", 288, 8, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $Button1
                       Start()
       EndSwitch
WEnd

Func stop()
       Exit
EndFunc

Func start()
       While 1 ;Pętla by cały czas spamował
			$txt = GUICtrlRead($Input1)
               Send($txt)
               sleep(100)
       WEnd ;koniec pętli
EndFunc

 

Zakaz dodawania na inne fora .Nawet z dopiskami .

[RobeM]

ujdzie

bezsensownie spamuje gdzie popadnie , zresztą dziwie się zakazowi bo tego typu skryptów mase nawet tu na forum, a ty jeszcze zastrzegasz sobie własność do kodu

[lokuxd]

+ po co 2 razy dales hotkey'e? uzyj lepiej controlsend i dodaj controlID bedzie dokladniej spamowac tam gdzie bys chcial ale to juz takie male dodatki:P

[Ballas]

Nie wysiliłeś się tyle mogę ci powiedzieć.

Ja po tygodniu przeglądania forum też napisałem spamera.

Robiłem go 3 dni bo byłem noobkiem teraz coś takiego robię w 15 min :rolleyes:

Masz kod:

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


$Form1 = GUICreate("???", 205, 280)
$input1 = GUICtrlCreateInput("Podaj Tekst",5,5,70,20)
$input01 = GUICtrlCreateInput("Czas w MS.",77,5,70,20,0x2000)
$checkbox1 = GUICtrlCreateCheckbox("On/Off",150,5)
$input2 = GUICtrlCreateInput("Podaj Tekst",5,30,70,20)
$input02 = GUICtrlCreateInput("Czas w MS.",77,30,70,20,0x2000)
$checkbox2 = GUICtrlCreateCheckbox("On/Off",150,30)
$input3 = GUICtrlCreateInput("Podaj Tekst",5,55,70,20)
$input03 = GUICtrlCreateInput("Czas w MS.",77,55,70,20,0x2000)
$checkbox3 = GUICtrlCreateCheckbox("On/Off",150,55)
$input4 = GUICtrlCreateInput("Podaj Tekst",5,80,70,20)
$input04 = GUICtrlCreateInput("Czas w MS.",77,80,70,20,0x2000)
$checkbox4 = GUICtrlCreateCheckbox("On/Off",150,80)
$input5 = GUICtrlCreateInput("Podaj Tekst",5,105,70,20)
$input05 = GUICtrlCreateInput("Czas w MS.",77,105,70,20,0x2000)
$checkbox5 = GUICtrlCreateCheckbox("On/Off",150,105)
$input6 = GUICtrlCreateInput("Podaj Tekst",5,130,70,20)
$input06 = GUICtrlCreateInput("Czas w MS.",77,130,70,20,0x2000)
$checkbox6 = GUICtrlCreateCheckbox("On/Off",150,130)
$input7 = GUICtrlCreateInput("Podaj Tekst",5,155,70,20)
$input07 = GUICtrlCreateInput("Czas w MS.",77,155,70,20,0x2000)
$checkbox7 = GUICtrlCreateCheckbox("On/Off",150,155)
$input8 = GUICtrlCreateInput("Podaj Tekst",5,180,70,20)
$input08 = GUICtrlCreateInput("Czas w MS.",77,180,70,20,0x2000)
$checkbox8 = GUICtrlCreateCheckbox("On/Off",150,180)

$Razy = GUICtrlCreateInput("Ile Razy Całość??",5,205,195,20,0x2000)
$Start = GUICtrlCreateButton("S     P     A     M     U     J",5,230,195,20)
GUISetState(@SW_SHOW)




While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $start
For $for1 = 10 to 1 Step -1
ToolTip($for1,10,10)
sleep(990)
ToolTip("")
Next
For $for1 = 1 to GuiCtrlread($razy)
If GUICtrlRead($Checkbox1) == $GUI_CHECKED Then
Send(GUICtrlRead($Input1))
Send("{Enter}")
Sleep(GUICtrlRead($Input01))
EndIf
If GUICtrlRead($Checkbox2) == $GUI_CHECKED Then
Send(GUICtrlRead($Input2))
Send("{Enter}")
Sleep(GUICtrlRead($Input02))
EndIf
If GUICtrlRead($Checkbox3) == $GUI_CHECKED Then
Send(GUICtrlRead($Input3))
Send("{Enter}")
Sleep(GUICtrlRead($Input03))
EndIf
If GUICtrlRead($Checkbox4) == $GUI_CHECKED Then
Send(GUICtrlRead($Input4))
Send("{Enter}")
Sleep(GUICtrlRead($Input04))
EndIf
If GUICtrlRead($Checkbox5) == $GUI_CHECKED Then
Send(GUICtrlRead($Input5))
Send("{Enter}")
Sleep(GUICtrlRead($Input05))
EndIf
If GUICtrlRead($Checkbox6) == $GUI_CHECKED Then
Send(GUICtrlRead($Input6))
Send("{Enter}")
Sleep(GUICtrlRead($Input06))
EndIf
If GUICtrlRead($Checkbox7) == $GUI_CHECKED Then
Send(GUICtrlRead($Input7))
Send("{Enter}")
Sleep(GUICtrlRead($Input07))
EndIf
If GUICtrlRead($Checkbox8) == $GUI_CHECKED Then
Send(GUICtrlRead($Input8))
Send("{Enter}")
Sleep(GUICtrlRead($Input08))
EndIf
Next
EndSwitch
WEnd

 

[tk371]

Jeszcze licencje na ten program załóż

Ballas: Ja do tego kalkulatora nie nałożyłem zakazu kopiowania. Ale dzięki - jeśli się podoba

[Ballas]

A ty na ten piękny kalkulator.

[maroczek123]

Że tak zapytam. Gdzie on wgl spamuje?

[Sopelek997]

w aktywnym oknie

[4ggr35510n]

@2UP

Arecheolog?

 

Tam gdzie masz focus, czyli nigdzie konkretnie ( jakbyś pisał z klawy ).

 

Zamykam, stary temat, słabej jakości kod...