Jak napisać spambota w AutoIT

TheAlsenPL · 13 Czerwca 2012

Witam! Postanowiłem napisać takiego oto tutka. Nie będę wszystkiego wyjaśniać bo nie jest wam to potrzebne, po prostu pokażę, co gdzie wpisać aby wszystko dobrze działało.

Więc zaczynajmy! Po 1 potrzebujemy AutoIT, gdy już go zdobędziemy tworzymy nowy plik "AutoIT Script". Naciskamy na niego prawym przyciskiem myszy i naciskamy Edit Script

Powinniśmy mieć już wpisane kilka wierszy

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.1
Author:		 TwojeImie
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here

Zostawiamy wszystko jak jest oprocz "TwojeImie" wpisujemy tu swoj nick/imie/ksywe cokolwiek.

Teraz przejdziemy do pisania naszego AutoSpamera.

Naciskamy enter i wklejamy ten oto kod:

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

  HotKeySet("{Esc}", "off")

W nim nic również nie zmieniamy. Powiem tylko, że jest to bardzo ważne w naszym bocie.

Napiszemy już GUI, nie będzie ono piękne, bo nie musi, ale postaramy się zrobić to tak aby było w sam raz.

Potrzebujemy tego oto kodu:

$GUI1 = GUICreate("NAZWA", 200, 260)
  $Label1 = GUICtrlCreateLabel("TREŚĆ1", 15, 5, 200, 15)
  $Label2 = GUICtrlCreateLabel("TREŚĆ2", 60, 50, 85, 80)
  $Label3 = GUICtrlCreateLabel("TREŚĆ3", 17, 100, 170, 20)
  $Label4 = GUICtrlCreateLabel("TREŚĆ4", 65, 120)
  $Input1 = GUICtrlCreateInput("", 8, 27, 180, 20)
  $Input2 = GUICtrlCreateInput("1", 70, 77, 60, 20)
  GuiCtrlCreateUpDown(-1)
  GUICtrlSetLimit(-1, 9999, 1)
  $Input3 = GUICtrlCreateInput("", 70, 140, 60, 20)
  $Button1 = GUICtrlCreateButton("TREŚĆ 5", 25, 170, 150, 45)

O co tutaj chodzi? Więc w NAZWA wpisujemy oczywiście nazwę naszego bota, w TREŚĆ1 coś co będzie informować, że tabelke niżej wpisujemy treść jaką spambot będzie wysyłać. W TREŚĆ2 coś co zainformuje użytkownika, że niżej określi ilość wysyłanych przez bota wiadomości. W TREŚĆ3 komunikat oznajmujący co jaki czas bot wysyła wiadomość. TREŚĆ4 = Tutaj najlepiej wpisać 1s=1000 chyba nie muszę tłumaczyć o co chodzi? TREŚĆ5 to button który uruchamia spambota. Wszystkie cyfry w nawiasach to wymiary i też w pewnym sensie położenie napisu, musimy je sami dostosować do długości naszego tekstu. Możemy dodać nowe napisy wpisując

$LabelCYFRA = GUICtrlCreateLabel("TREŚĆ", 17, 100, 170, 20)

W miejsce CYFRA wpisujemy np. jeżeli chcemy, żeby znajdowało się to pod TREŚĆ4 wpisujemy $Label5, rozumiecie?

Teraz stworzymy komunikaty To jest jedna z tych części które tworzą łatwym sposobem nasz programik bardziej zaawansowanym i estetyczniejszym, co zwiększa zainteresowanie u użytkowników.

UISetState(@SW_SHOW,$GUI1)

   While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
	  Case $GUI_EVENT_CLOSE
	   Exit

	 Case $Button1
		GUISetState(@SW_HIDE, $GUI1)
		TrayTip("SpamBot","Spamowanie za: 5 sek.",2,1)
		Sleep(1000)
		TrayTip("SpamBot","Spamowanie za: 4 sek.",2,1)
		Sleep(1000)
		TrayTip("SpamBot","Spamowanie za: 3 sek.",2,1)
		Sleep(1000)
		TrayTip("SpamBot","Spamowanie za: 2 sek.",2,1)
		Sleep(1000)
		TrayTip("SpamBot","Spamowanie za: 1 sek.",2,1)
		Sleep(1000)
		TrayTip("SpamBot","Rozpoczęto Spamowanie!",2,1)
	 spam()
	  TrayTip("SpamBot","Zakończono Spamowanie",2,1)



	 EndSwitch
	 WEnd

Wygląda to mniej więcej tak, tak jak wcześniej możemy stworzyć dłuższe odliczanie dodając wiersze, byle tylko "spam()" było między Rozpoczęciem a Zakończeniem. Oczywiście tekst możemy modyfikować. Wartość Sleep oznacza czas za jaki wyskoczy następny komunikat. Możemy zmniejszyć ilość komunikatów modyfikując tekst na:

UISetState(@SW_SHOW,$GUI1)

   While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
	  Case $GUI_EVENT_CLOSE
	   Exit

	 Case $Button1
		GUISetState(@SW_HIDE, $GUI1)
		TrayTip("SpamBot","Spamowanie za: 5 sek..",2,1)
		Sleep(5000)
		TrayTip("SpamBot","rozpoczęto spamowanie!",2,1)
	 spam()
	  TrayTip("SpamBot","Zakończono Spamować",2,1)




	 EndSwitch
	 WEnd

Jak zauważyliście, zmieniłem wartość sleep na 5000 dzięki czemu komunikat o rozpoczęciu spamowania wyskoczy dokładnie 5sek po wyskoczeniu komunikatu o odliczaniu.

Naciskamy enter i piszemy

  Func spam()
   If WinActive($GUI1) Then GUISetState(@SW_HIDE, $GUI1)
sleep(100)
TrayTip("","",2,1)
   $zmienna=0
  $pisz=GUICtrlRead($Input1) & " " ;" "
   $zmienna2=GUICtrlRead($Input3)

   Do
	   Opt("SendKeyDelay", 1)
	 Opt("SendKeyDownDelay", 1)
	 $zmienna=$zmienna+1
	 Sleep( $zmienna2 )
   Send($pisz & "{Enter}")


Until $zmienna=GUICtrlRead($Input2)
GUISetState(@SW_SHOW, $GUI1)
 EndFunc
 Func off()
  Exit
 EndFunc

Tu już raczej nie powinniśmy nic zmieniać.

Jeżeli macie już zakończonego spambota zapiszcie zmiany a następnie naciśnijcie PPM>Run Script i przetestujcie. Wszystko działa w porządku?? W takim razie użyjcie COMPILE! I oto wasz spambot gotowy

Mam nadzieję, że podobał się ten prosty tutek. Dzięki temu możecie bez problemu stworzyć prostego spambota i zmodyfikować go wedle upodobań, teraz jeszcze pokaże jak to powinno w całości wyglądać.

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.1
Author:		 TheAlsenPL
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

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

  HotKeySet("{Esc}", "off")

  $GUI1 = GUICreate("SpamBot", 200, 260)
  $Label1 = GUICtrlCreateLabel("Treść Spamu", 15, 5, 200, 15)
  $Label2 = GUICtrlCreateLabel("Ile razy spamować?", 60, 50, 85, 80)
  $Label3 = GUICtrlCreateLabel("Czas co jaki będzie wysylany spam:", 17, 100, 170, 20)
  $Label4 = GUICtrlCreateLabel("1 sek.= 1000", 65, 120)
  $Input1 = GUICtrlCreateInput("", 8, 27, 180, 20)
  $Input2 = GUICtrlCreateInput("1", 70, 77, 60, 20)
  GuiCtrlCreateUpDown(-1)
  GUICtrlSetLimit(-1, 9999, 1)
  $Input3 = GUICtrlCreateInput("", 70, 140, 60, 20)
  $Button1 = GUICtrlCreateButton("Zacznij Spam!", 25, 170, 150, 45)



  GUISetState(@SW_SHOW,$GUI1)

   While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
	  Case $GUI_EVENT_CLOSE
	   Exit

	 Case $Button1
		GUISetState(@SW_HIDE, $GUI1)
		TrayTip("SpamBot","SpamBot rozpocznie spamowanie za: 5 sek.",2,1)
		Sleep(1000)
		TrayTip("SpamBot","SpamBot rozpocznie spamowanie za: 4 sek.",2,1)
		Sleep(1000)
		TrayTip("SpamBot","SpamBot rozpocznie spamowanie za: 3 sek.",2,1)
		Sleep(1000)
		TrayTip("SpamBot","SpamBot rozpocznie spamowanie za: 2 sek.",2,1)
		Sleep(1000)
		TrayTip("SpamBot","SpamBot rozpocznie spamowanie za: 1 sek.",2,1)
		Sleep(1000)
		TrayTip("SpamBot","SpamBot rozpoczął spamowanie!",2,1)
	 spam()
	  TrayTip("SpamBot","SpamBot skończył spamować!",2,1)




	 EndSwitch
	 WEnd

  Func spam()
   If WinActive($GUI1) Then GUISetState(@SW_HIDE, $GUI1)
sleep(100)
TrayTip("","",2,1)
   $zmienna=0
  $pisz=GUICtrlRead($Input1) & " " ;" "
   $zmienna2=GUICtrlRead($Input3)

   Do
	   Opt("SendKeyDelay", 1)
	 Opt("SendKeyDownDelay", 1)
	 $zmienna=$zmienna+1
	 Sleep( $zmienna2 )
   Send($pisz & "{Enter}")


Until $zmienna=GUICtrlRead($Input2)
GUISetState(@SW_SHOW, $GUI1)
 EndFunc
 Func off()
  Exit
 EndFunc

Liczę na komentarze, oraz prosiłbym o ściągnięcie kilku warnów jeżeli istnieje taka możliwość

Pozdrawiam, TheAlsenPL

GothRain · 13 Czerwca 2012

Jezeli sam to napisales jestem pod wielkim wrazeniem. ! Mi cos nie wychodzi wiec od poczatku sprawdze i powiem.

TheAlsenPL · 14 Czerwca 2012

Spróbuj najpierw użyć "Run Script" a potem dopiero scompiluj. Możesz też od razu wziąść gotowy kod i pozmieniać według upodobań Jeżeli się spodoba dodam kilka tutoriali z AutoIT

Kaczor008 · 14 Czerwca 2012

Mnie sie to nie podoba:

"W miejsce CYFRA wpisujemy np. jeżeli chcemy, żeby znajdowało się to pod TREŚĆ4 wpisujemy $Label5, rozumiecie?"

powinno byc chyba $Label4

taki drobny bledzik ale jakis nieinteligentny czlowiek przyjdzie i bedzie plakac ze mu nie dziala

A tak poza tym to fajnie napisane tylko troche za malo wyjasnien, jezeli to ma byc dla poczatkujacych

TheAlsenPL · 15 Czerwca 2012

Nie. Zauważ, że $Label4 już zostało dodane, wyskoczyłby ci error bo jedna formuła przeszkadza drugiej Nie wiem co tu więcej wyjaśniać, jakbym mial to wyjaśniać to bym 2 miechy pisał tego tutka bo to sporo jest. Wyjasnilem to co najpotrzebniejsze. Powiedz mi tylko, czy ci działa?

TheAlsenPL · 15 Czerwca 2012

ref

szymek111 · 15 Czerwca 2012

Bardzo przydatny tut chyba jeszcze takiego nie było podpinam .Aha i leci like

TheAlsenPL · 15 Czerwca 2012

Bardzo się cieszę, że doceniłeś to szymku. Postaram się napisać więcej tutków. Wtedy stworzę listę, ten odepniesz a podemniesz tą liste

Sto0rm · 1 Lipca 2012

po chu to podpieles kurwa po co ci ten kidmod wgl ?

proste jak chuj i bez sensu po co wypisywales to nie lepiej dac kod itd i koniec? nic tu ciekawego nie ma po co to komu? ;f

TheAlsenPL · 6 Lipca 2012

Jezeli zechcesz o panie przerobie to tak, ze nic z tego nie ogarniesz ok? A ty szymek wydawales mi sie rozsadniejszy a nie ze bylo kto sie rzuci i odpinasz liste...... Przeciez miala powstac jeszcze masa tutkow ><

szymek111 · 6 Lipca 2012

Ee sory ale jest 3 kidów i jeden mod więc mnie sie

nie czepiaj ze ktoś ci odpina tuty

@Storm tak zazdrościsz bo sam nigdy kida nie będziesz miał?A pozatym zmień wreszcie swoje słownictwo....

Adverce700 · 1 Sierpnia 2012

Hmm ciekawe , pokombinuję coś przy tym . Chociaż nie mam do tego głowy ;>

TheAlsenPL · 30 Sierpnia 2012

Akurat według tego poradnika powinno ci pójść jak z płatka

Szchachcic · 3 Września 2012

Sztorm sam by czegoś lepszego nie zrobił i się tego czepił widać że ma nie dużo lat

hwid1337 · 16 Stycznia 2013

Nie lepiej to przenieść do AutoIt'a ?

Szchachcic · 16 Stycznia 2013

Nie lepiej to przenieść do AutoIt'a ?

Hah ty se jaja robisz?? data!!

Zaloguj się

👋 Witaj na MPCForum!

Jak napisać spambota w AutoIT

Rekomendowane odpowiedzi

TheAlsenPL

TheAlsenPL

GothRain

GothRain

TheAlsenPL

TheAlsenPL

Kaczor008

Kaczor008

TheAlsenPL

TheAlsenPL

TheAlsenPL

TheAlsenPL

szymek111

szymek111

TheAlsenPL

TheAlsenPL

Sto0rm

Sto0rm

TheAlsenPL

TheAlsenPL

szymek111

szymek111

Adverce700

Adverce700

TheAlsenPL

TheAlsenPL

Szchachcic

Szchachcic

hwid1337

hwid1337

Szchachcic

Szchachcic

Zarchiwizowany