Spam Bot(Zatrzymywanie)

[edi22]

Witam wie ktoś może co trzeba dopisać żeby po kliknięciu "end" zatrzymywał spamowanie ??(coś mi z głowy wyleciało :P )

 

to mój kod

 

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

$answer = MsgBox(4, "?", "czy chcesz wlączyc")

If $answer = 7 Then

Exit

EndIf

 

Opt("GUIOnEventMode", 1)

$spam = GUICreate("spam", 378, 90, 205, 206)

GUISetOnEvent($GUI_EVENT_CLOSE, "spamClose")

GUISetOnEvent($GUI_EVENT_MINIMIZE, "spamMinimize")

GUISetOnEvent($GUI_EVENT_MAXIMIZE, "spamMaximize")

GUISetOnEvent($GUI_EVENT_RESTORE, "spamRestore")

$Start = GUICtrlCreateButton("Start", 248, 32, 57, 49, $WS_GROUP)

GUICtrlSetOnEvent(-1, "StartClick")

$wpisz = GUICtrlCreateInput("Wpisz text", 8, 8, 361, 21)

GUICtrlSetOnEvent(-1, "wpiszChange")

$czas = GUICtrlCreateInput("wpisz czas 1000=1sek", 8, 32, 233, 21)

GUICtrlSetOnEvent(-1, "czasChange")

$ile = GUICtrlCreateInput("wpisz ile razy ma napisać", 8, 56, 233, 21)

GUICtrlSetOnEvent(-1, "ileChange")

$Button1 = GUICtrlCreateButton("Exit", 312, 32, 57, 49, $WS_GROUP)

GUICtrlSetOnEvent(-1, "Button1Click")

GUISetState(@SW_SHOW)

 

 

While 1

Sleep(100)

WEnd

 

Func Button1Click()

Exit

EndFunc

 

Func czasChange()

 

EndFunc

Func ileChange()

 

EndFunc

Func spamClose()

Exit

EndFunc

Func spamMaximize()

 

EndFunc

Func spamMinimize()

 

EndFunc

Func spamRestore()

 

EndFunc

Func StartClick()

 

 

 

 

 

For $i = 1 to $ile

Send(GUICtrlRead($wpisz))

sleep(GUICtrlRead($czas))

Next

EndFunc

 

 

 

 

 

Func wpiszChange()

 

EndFunc

 

[yonji94]

Witam wie ktoś może co trzeba dopisać żeby po kliknięciu "end" zatrzymywał spamowanie ??

 

to mój kod

 

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

$answer = MsgBox(4, "?", "czy chcesz wlączyc")

If $answer = 7 Then

Exit

EndIf

 

Opt("GUIOnEventMode", 1)

$spam = GUICreate("spam", 378, 90, 205, 206)

GUISetOnEvent($GUI_EVENT_CLOSE, "spamClose")

GUISetOnEvent($GUI_EVENT_MINIMIZE, "spamMinimize")

GUISetOnEvent($GUI_EVENT_MAXIMIZE, "spamMaximize")

GUISetOnEvent($GUI_EVENT_RESTORE, "spamRestore")

$Start = GUICtrlCreateButton("Start", 248, 32, 57, 49, $WS_GROUP)

GUICtrlSetOnEvent(-1, "StartClick")

$wpisz = GUICtrlCreateInput("Wpisz text", 8, 8, 361, 21)

GUICtrlSetOnEvent(-1, "wpiszChange")

$czas = GUICtrlCreateInput("wpisz czas 1000=1sek", 8, 32, 233, 21)

GUICtrlSetOnEvent(-1, "czasChange")

$ile = GUICtrlCreateInput("wpisz ile razy ma napisać", 8, 56, 233, 21)

GUICtrlSetOnEvent(-1, "ileChange")

$Button1 = GUICtrlCreateButton("Exit", 312, 32, 57, 49, $WS_GROUP)

GUICtrlSetOnEvent(-1, "Button1Click")

GUISetState(@SW_SHOW)

 

 

While 1

Sleep(100)

WEnd

 

Func Button1Click()

Exit

EndFunc

 

Func czasChange()

 

EndFunc

Func ileChange()

 

EndFunc

Func spamClose()

Exit

EndFunc

Func spamMaximize()

 

EndFunc

Func spamMinimize()

 

EndFunc

Func spamRestore()

 

EndFunc

Func StartClick()

 

 

 

 

 

For $i = 1 to $ile

Send(GUICtrlRead($wpisz))

sleep(GUICtrlRead($czas))

Next

EndFunc

 

 

 

 

 

Func wpiszChange()

 

EndFunc

 

 

 

Wiesz ile to razy było? Jak ja to z 4 razy już pisałem, a jeszcze inni. Użyj wyszukiwarki.

[MrBibix123]

mi tez to wylecialo z glowy ale moze sprawdz w innym spam bocie archiwum?

[adwi32]

Hoykeyset("{End}","stop") ; to musi byc na początku skryptu

Func stop ()

exit

endfunc

 

 

Proste...

[edi22]

Hoykeyset("{End}","stop")

Func stop ()

exit

endfunc

 

 

Proste...

mi nie chodzi o wyłączenie spam bota tylko że przestaje pisać po kliknięciu "end"

[asdek171]

prosze

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

[edi22]

thx działa masz 5 i +

nie:

HotKeySet("END","pauza")

tylko:

HotKeySet("{END}","pauza")

:P

(sory chciałeś - dam kiedy indziej )