[Pytanie] Jak Zrobić Spam Bot

[Ginter007]

Witam . uczę się pisania skryptów w autoit i chciałem nauczyć się pisać spamer do takich gier jak metin 2 Cabal online Last chaos . Prosił bym o napisanie całego skryptu z takim czymś że nap : MsgBox i tam dalej - wytłumaczenie do czego to służy . I mam pytanie czy taki spam bot da się przerobić do gry przeglądarkowej ?

[RobeM]

nie da sie przerobić inna zasada pisania skryptów do programów inna do przeglądarek , no i obsługa też inna . do każdeg gry tzreba by pisać indywidualny skrypt pasujący do kodu strony

 

co do napisania ktoś pewnie ci za niedługo skopiuje skrypt który jest jest na forum a tobie się nie chce poszukać, zresztą mi też

[Ginter007]

Po 1 . Nie mam za wiele czasu

Po 2. Nawet jak jest to nie jest wyjaśnione co do czego

[RobeM]

wszystko wyjaśnione w tutorialach , w różnych postach tylko poczytać, brak czasu nie jest tłumaczeniem. uczysz się to się naucz najpierw szukać , z taką ilością poleceń co w autoit nikt nie daje sobie rady od razu, nawet zaawansowany użytkownik nie użyje większości w skrypcie

 

zresztą jak chcesz by ci cokolwiek napisać to parre informacji o gzre sie przyda . jakie m zabezpieczenia i czy działają skrypty autoit w programie?

[Ginter007]

No dobra no to np. LC skrypty w autoit działają ale trzeba mieć bypass (mam) . Nie wiem czy są zabezpieczenia . Aktualnie używam eterni więc tam większość skryptów działa . Jak chcesz więcej informacji to pisz bo nie wiem co jest jeszcze potrzebne

[adwi32]

2min szukania i mam spam bot by KIngSp1

 

;;;;;;;;;;;;;;; tzw "includy" z nich brane są funkcje których używasz np.guicreate;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;koniec includów (zawsze muszą być na początku ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;tworzenie GUI (graficzny interfejs użytkownika) nie musisz się tym martwić Koda wykona za ciebie tą robotę ;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#Region ### START Koda GUI section ### Form=
Opt( "GuiOnEventMode",1)
$Form1 = GUICreate("Metin2PL Easy_SpamBot v 3.6 ", 633, 360, 192, 124)
GUISetFont(11, 800, 0, "Times New Roman")
GUISetBkColor(0xD8E4F8)
$Button1 = GUICtrlCreateButton("Credits", 504, 304, 113, 41, $WS_GROUP)
GUICtrlSetFont(-1, 12, 800, 2, "Times New Roman")
$Button2 = GUICtrlCreateButton("Aktualizuj=>", 504, 264, 113, 41, $WS_GROUP)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("Exit- (END)", 504, 216, 113, 33, $WS_GROUP)
$Button6 = GUICtrlCreateButton("Button6", 480, 136, 1, 9, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("CZAS", 368, 16, 43, 21)
$czas = GUICtrlCreateInput("", 344, 48, 177, 25)
$Label2 = GUICtrlCreateLabel("TEKST", 64, 8, 54, 21)
$tekst =GUICtrlCreateInput("", 40, 48, 169, 25)
$Label3 = GUICtrlCreateLabel("TRYB SPAMOWANIA:", 32, 224, 163, 21)                    
$Button8 = GUICtrlCreateButton("NORMALNY", 8, 256, 113, 25, $WS_GROUP)          
$Button9 = GUICtrlCreateButton("WOŁAJ", 128, 288, 113, 25, $WS_GROUP)             
$Button10 = GUICtrlCreateButton("GILDIA", 8, 288, 113, 25, $WS_GROUP)             
$Button11 = GUICtrlCreateButton("GRUPA", 128, 256, 113, 25, $WS_GROUP)           
GUISetState(@SW_SHOW)                                                                                 
#EndRegion ### END Koda GUI section ###

;;;;;;;;;;;;;;;;;;; koniec tworzenia gui ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

GUICtrlSetOnEvent($Button8,"normal") ;;;; dodanie zdarzenia do przycisku $Button8 , jeżeli go naciśniesz wykona się funkcja "normal"

;;;;;;;;;;;;;;; funkcja spamowania na normalnym w metinie ;;;;;;;;;;;;;;;;;;                                    
Func normal()
               While 1    ; rozpoczyna pętle nieskończoną 
                               WinActivate("METIN2")  ; aktywuje okno metina
                               Send("{ENTER}") ;wciska Enter
                               Sleep(GUICtrlRead($czas)) ; czeka liczbe milisekund zapisaną w zmiennej czas
                               Send(GUICtrlRead($tekst)) ; wysyła tekst zapisany w zmiennej tekst

               WEnd ; wraca do while
EndFunc

;;;;;;;;;;;;;;;koniec funkcji normal ;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;; to samo ;;;;;;
GUICtrlSetOnEvent($Button10,"gildia")
Func gildia()
               While 1
                               WinActivate("METIN2")
                               Send("{ENTER}")
                               Send("{%}")
                               Sleep(GUICtrlRead($czas))
                               Send(GUICtrlRead($tekst))

               WEnd
EndFunc
GUICtrlSetOnEvent($Button9,"wolaj")
Func wolaj()
               While 1
                               WinActivate("METIN2")
                               Send("{ENTER}")
                               Send("{!}")
                               Sleep(GUICtrlRead($czas))
                               Send(GUICtrlRead($tekst))
               WEnd
EndFunc
GUICtrlSetOnEvent($Button11,"grupa")
Func grupa()
               While 1
                               WinActivate("METIN2")
                               Send("{ENTER}")
                               Send("{#}")
                               Sleep(GUICtrlRead($czas))
                               Send(GUICtrlRead($tekst))
               WEnd
EndFunc
GUICtrlSetOnEvent($Button1,"Credit")
Func Credit()
       MsgBox(64, "########","Created Bot by KingSP1")
EndFunc
GUICtrlSetOnEvent($Button2,"Aktualizu")
Func Aktualizu()
       ProgressOn("Wyszukuje Aktualizacji", "Prosze czekac", "0 Procent")
For $i = 10 to 100 step 10
   sleep(1000)
   ProgressSet( $i, $i & " procent")
Next
ProgressSet(100 , "Status", "Posiadasz najnowsza wersje ")
sleep(500)
ProgressOff()
EndFunc
GUICtrlSetOnEvent($Button5,"off")
Func off()
       Exit
EndFunc
HotKeySet( "{END}" ,"off")

;;; w zasadzie tu zaczyna się program , kod w funkcjach nie uruchomi się poki nie będzie wywołany przez program
While 1
       $nMsg = GUIGetMsg() ; zmienna odpowiedzialna za wysyłanie info do gui
       Switch $nMsg 
               Case $GUI_EVENT_CLOSE  ;można to nazwać yyyy jeżeli wcisniesz x w prawym górnym rogu to przechodzi do linijki niżej
                       Exit ; zamyka

       EndSwitch
WEnd

 

pozwoliłem sobie na dodanie komentów

[Ginter007]

Dzięki . Szukałem ale widocznie źle wpisywałem a do gier przeglądarkowych jest całkiem inna budowa ?

[RobeM]

taa, obsługa IE albo FF

 

masz przykład punkcji w bocie do prison wars , spamuje na spacerniaku

[PoCoNazwa?]

Ej jak zrobić spam bota do prisonwars ? Niech ktoś mi to wytłumaczy nie chodzi mi o gotowy skrypt tylko o wskazówki jak zrobić

[karol2317]

spam bota można tez zrobić w visual basic

 

Link do Tut'a:

http://www.mpcforum.pl/topic/187130-poradnik-jak-zrobic-spam-bota-w-visual-basic-2008/page__gopid__1284097#entry1284097

[Maciek134]

@up:

halo halo, to jest forum o autoit'cie! :P

 

@top:

Skoro napisałeś coś takiego:

Prosił bym o napisanie całego skryptu z takim czymś że nap : MsgBox i tam dalej

 

to polecam zacząć od czegoś prostszego niż spambot, np hello world!

 

Link do tutoriala masz w moim podpisie, strona domowa autoit, wikipedia o autoit.

 

Powodzenia!

 

@PS: Jeśli nie masz czasu - zrezygnuj bo to nie jest robota na pięć minut.

 

@down:

spam?

 

@down #2:

nie pamiętam co napisałeś, ale skoro uznałem to za spam to rzeczywiście musiałeś napisać coś bez sensu (przypomnij mi)

[PoCoNazwa?]

to była odpowiedz do mojego posta ?