Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[BOT] Shakes & Fidget

dave00k

Rekomendowane odpowiedzi

dave00k Odkrywca

dave00k

Opublikowano
Odkrywca

dave00k

Opublikowano

Zrobiłem bota który co 10 min atakuje graczy z listy gdy skończy atakować ostatniego gracza zaczyna od początku .

Lista jest na 10 graczy .

 

UWAGA !

Aby bot działał plik ImageSearch.dll trzeba skopiować do folderu system32 .

 

Instrukcja :

1. Kopiujemy plik ImageSearch.dll do system32

2. Uruchamiamy bota

3. Okienkiem które się pojawi zakrywamy przyciski Bohater,Poczta,Gildia

4. Klikamy przycisk gotowe

5. Pojawi się nam nowe okienko tam wpisujemy graczy których bot ma atakować (atakuje po kolei)

6. Klikamy Start

 

Uwagi :

- Drugie okienko nie może zakrywać przycisku arena w grze .

- Przeglądarka musi być na wierzchu .

 

FILMIK : http://www.youtube.com/user/dave00k?feature=mhee#p/u/0/jR9J7_ndn4Q

 

KOD :

 

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ImageSearch.au3>
#Region ### START Koda GUI section ### Form=c:\dawid\autoit\shakes & fidget    [ bot ]\data\form2.kxf
$Form2 = GUICreate("Cel", 179, 116, 140, 672)
$Button1 = GUICtrlCreateButton("Co to ?", 120, 88, 57, 25, $WS_GROUP)
$Pic1 = GUICtrlCreatePic("Data\Image\obrazek.bmp", 112, 8, 54, 49, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic2 = GUICtrlCreatePic("Data\Image\bohater_poczta_gildia.bmp", 8, 8, 97, 92, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Button2 = GUICtrlCreateButton("Gotowe", 120, 64, 57, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$result = 0

While $result = 0
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $Button1
		Msgbox(0,"Informacja","Tym oknem zasłoń przyciski bohater,poczta,gildia")
	Case $Button2
		$x=0
		$y=0
		$result = _ImageSearch("Data\Image\obrazek.bmp",1,$x,$y,0)
		If $result = 0 Then
			MsgBox(0,"Error","Error nie znaleziono obrazka")
		EndIf
		Sleep(500)
		GUIDelete($Form2)
EndSwitch
WEnd

;Zmienne
$Arena_x = $x + 10
$Arena_y = $y - 370
$Ok_A_x = $x + 750
$Ok_A_y = $y - 10
$Nick_A_x = $x + 850
$Nick_A_y = $y - 70
$Ok_x = $Ok_A_x
$Ok_y = $Ok_A_y + 200
; END Zmienne

; Nazwy
$Gracz_1 = "Nazwa gracza"
$Gracz_2 = "Nazwa gracza"
$Gracz_3 = "Nazwa gracza"
$Gracz_4 = "Nazwa gracza"
$Gracz_5 = "Nazwa gracza"
$Gracz_6 = "Nazwa gracza"
$Gracz_7 = "Nazwa gracza"
$Gracz_8 = "Nazwa gracza"
$Gracz_9 = "Nazwa gracza"
$Gracz_10 = "Nazwa gracza"
$x_1 = 0
$x_2 = 0
$x_3 = 0
$x_4 = 0
$x_5 = 0
$x_6 = 0
$x_7 = 0
$x_8 = 0
$x_9 = 0
$x_10 = 0
;END Nazwy
#Region ### START Koda GUI section ### Form=C:\Dawid\Autoit\Shakes & Fidget    [ BoT ]\Data\Form1.kxf
$Form10 = GUICreate("Shakes & Fidget", 281, 294, 192, 124)
GUISetBkColor(0xFFFFFF)
$Input10 = GUICtrlCreateInput("Gracz 1", 16, 56, 97, 21)
$Label10 = GUICtrlCreateLabel("Gracze do atakowania :", 16, 8, 234, 37)
GUICtrlSetFont(-1, 14, 800, 0, "Segoe Print")
$Pic10 = GUICtrlCreatePic("Data\Image\obrazek_1.bmp", 184, 160, 89, 130, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label20 = GUICtrlCreateLabel("by dave00k", 120, 264, 82, 27)
GUICtrlSetFont(-1, 10, 800, 0, "Segoe Print")
$Input20 = GUICtrlCreateInput("Gracz 2", 16, 80, 97, 21)
$Input30 = GUICtrlCreateInput("Gracz 3", 16, 104, 97, 21)
$Input40 = GUICtrlCreateInput("Gracz 4", 16, 128, 97, 21)
$Input50 = GUICtrlCreateInput("Gracz 5", 16, 152, 97, 21)
$Input60 = GUICtrlCreateInput("Gracz 6", 16, 176, 97, 21)
$Input70 = GUICtrlCreateInput("Gracz 7", 16, 200, 97, 21)
$Input80 = GUICtrlCreateInput("Gracz 8", 16, 224, 97, 21)
$Input90 = GUICtrlCreateInput("Gracz 9", 16, 248, 97, 21)
$Input100 = GUICtrlCreateInput("Gracz 10", 16, 272, 97, 21)
$Button3 = GUICtrlCreateButton("Atakuj", 144, 80, 105, 41, $WS_GROUP)
GUICtrlSetFont(-1, 10, 800, 0, "Segoe Print")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit
	Case $Button3
	While 1
			$Gracz_1 = GUICtrlRead($Input10)
			$Gracz_2 = GUICtrlRead($Input20)
			$Gracz_3 = GUICtrlRead($Input30)
			$Gracz_4 = GUICtrlRead($Input40)
			$Gracz_5 = GUICtrlRead($Input50)
			$Gracz_6 = GUICtrlRead($Input60)
			$Gracz_7 = GUICtrlRead($Input70)
			$Gracz_8 = GUICtrlRead($Input80)
			$Gracz_9 = GUICtrlRead($Input90)
			$Gracz_10 = GUICtrlRead($Input100)
		Call("Start")
	WEnd

EndSwitch
WEnd

Func Start()
MouseClick("",$Arena_x,$Arena_y,1,0)
Sleep(2000)
MouseClick("",$Nick_A_x,$Nick_A_y,1,0)
Sleep(1000)
Call("delete")
Sleep(1000)
If $x_1=1 And $x_2=1 And $x_3=1 And $x_4=1 And $x_5=1 And $x_6=1 And $x_7=1 And $x_8=1 And $x_9=1 And $x_10=1 Then
$x_1 = 0
$x_2 = 0
$x_3 = 0
$x_4 = 0
$x_5 = 0
$x_6 = 0
$x_7 = 0
$x_8 = 0
$x_9 = 0
$x_10 = 0
EndIf
If $x_1 = 0 Then
Send($Gracz_1)
$x_1 = 1
ElseIf $x_2 = 0 Then
Send($Gracz_2)
$x_2 = 1
ElseIf $x_3 = 0 Then
Send($Gracz_3)
$x_3 = 1
ElseIf $x_4 = 0 Then
Send($Gracz_4)
$x_4 = 1
ElseIf $x_5 = 0 Then
Send($Gracz_5)
$x_5 = 1
ElseIf $x_6 = 0 Then
Send($Gracz_6)
$x_6 = 1
ElseIf $x_7 = 0 Then
Send($Gracz_7)
$x_7 = 1
ElseIf $x_8 = 0 Then
Send($Gracz_8)
$x_8 = 1
ElseIf $x_9 = 0 Then
Send($Gracz_9)
$x_9 = 1
ElseIf $x_10 = 0 Then
Send($Gracz_10)
$x_10 = 1
EndIf
MouseClick("",$Ok_A_x,$Ok_A_y,1,0)
Sleep(5000)
MouseClick("",$Ok_x,$Ok_y,1,0)
Sleep(5000)
MouseClick("",$Ok_x,$Ok_y,1,0)
Sleep(600000)
EndFunc ;-==> Start
Func delete()
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
Send("{backspace}")
Send("{delete}")
EndFunc ;-==> delete

 

Kanał : dave00k

 

Chomik : Chomik daavis

lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano

I co chwalisz sie?? ale czym kody nie widze...

imagesearsh to nie problem ale zrob takiego co operuje na flashu ^^

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

dave00k Odkrywca

dave00k

Opublikowano
Odkrywca

dave00k

  • Autor
Opublikowano

Nie chwale się tylko daje jakby się komuś przydał .

Nie każdy jest tak dobry jak ty więc to ty się nie chwal .

A kodu zapomniałem dać zaraz dodam . Skoro jesteś taki ogarnięty to zrób ;)

 

PS . Wiem że to nie jest super bot .

Kanał : dave00k

 

Chomik : Chomik daavis

Cartman(SP) Pasjonat

Cartman(SP)

Opublikowano
Pasjonat

Cartman(SP)

Opublikowano

Lokuxd on się nie chwali, ale pewnie ty zaraz napiszesz coś w rodzaju :"Ja umiem wszystko", więc cię oświecę AutolT jest banalny porównaj go do C++ ;))

bez linków

lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano

bo to nie problem zrobic w imagesearch a brales pod uwage ze kazdy ma inne obrazki na kompie(rozdzielczosc)

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

dave00k Odkrywca

dave00k

Opublikowano
Odkrywca

dave00k

  • Autor
Opublikowano

Długo o tym myślałem i wymyśliłem że rozdzielczość gry na przeglądarce się nie zmienia . (tak myślę)

 

EDIT :

FAIL sprawdziłem i nie działa tak jak to sobie wymyśliłem ;/

EDIT2 :

Doszedłem do wniosku że ImageSearch się do takich rzeczy nie nadaję idę uczyć się FF albo IE .

EDIT3:

Chrome.au3 nie ma nie ? :D

Kanał : dave00k

 

Chomik : Chomik daavis

lokuxd Weteran

lokuxd

Opublikowano
Weteran

lokuxd

Opublikowano

w autoit nie ma biblioteko do obslugi flash... dlatego to nie takie proste, a rozdzielczosc gry sie zmienia:P

Do
$wiek+=1
Until ŻycieGetMsg() = -3

zbieram +

  • 1 rok później...
JDaniel1 Pomocnik

JDaniel1

Opublikowano
Pomocnik

JDaniel1

Opublikowano

Bot całkiem całkiem niezły. Dobiłeś mnie tym tekstem: Chrome.au3 nie ma nie?

 

Życzę, aby szło Tobie jeszcze lepiej

Tysiące lat wojen, ani jednego dnia pokoju,

pytam czy to skończy się.

 

Zegarek BB

JDaniel1 Pomocnik

JDaniel1

Opublikowano
Pomocnik

JDaniel1

Opublikowano

Sory przeglądałem w google nie patrzałem na datę, to sory za odkop. Ale bocik nawet niezły :)

Tysiące lat wojen, ani jednego dnia pokoju,

pytam czy to skończy się.

 

Zegarek BB

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...