Klikacz do gry metin2

Dołączył: 01 Mar 2012 Posty: 36 Przeczytał: 0 tematów Ostrzeżeń: 0/5

Wspomagacz gdy expienie staje się nudne.
1.Pobieramy ze strony autoit -> download->

	Kod:
	https://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe

2.Instalujemy.
3.Odpalamy edytor scite.
4.W edytorze wklejamy kod znajdujący się w poście poniżej.
5.Zapisujemy w scite -> menu File -> Save as.. ->Nazwa Pliku -> klik.au3 (lub jakaś inna własna nazwa z końcówką .au3) .
6.W scite -> menu Tools -> Go - lub klawiszem F5 odpalamy ten kod.
7.Dla wygody w scite -> menu Tools -> Compile - kompilujemy ten plik do formy exe.
8.Odpalamy już ten plik exe i sprawdzamy czy działa poprawnie (np. na oknie notatnika).
9.Gra Metin2 musi być odpalona w oknie gdyż bot działa tylko na aktywnym oknie.
Przy pomocy tego skryptu (bota) gra staje się łatwiejsza ponieważ poszczególne kliknięcia klawiszy działają nie zależnie od siebie.

Lub ściągnąć gotowy z

	Kod:
	https://mega.nz/#!qMY0TIrL!ccmstn6v1GGGjIGoqhTuf22iD18dI_samuKAX75jX3g

skan z virustotal:

	Kod:
	https://www.virustotal.com/#/file/1ad88886232d94554b7d4cc74459f6e9d38b0753781a96259db077fd8d511100/detection

Post został pochwalony 0 razy

Ostatnio zmieniony przez myplayer dnia Nie 15:53, 30 Wrz 2018, w całości zmieniany 14 razy

Dołączył: 01 Mar 2012 Posty: 36 Przeczytał: 0 tematów Ostrzeżeń: 0/5

#include <ButtonConstants>
#include <GUIConstantsEx>
#include <WindowsConstants>
#include <GUIConstants>
Opt("GUIOnEventMode", 1)

$LowerLimit = 100
$UpperLimit = 400

HotKeySet("{F8}", "start")
HotKeySet("{F9}", "pauza")
HotKeySet("{End}", "koniec")
Global $g_bPaused = False

$form = GUICreate("metinplayer", 150, 280, 868, 0)
$komunikat = GUICtrlCreateLabel("F8 = start", 8, 236, 129, 17)
$komunikat1 = GUICtrlCreateLabel("F9 = pause,End = exit", 8, 216, 129, 17)
$komunikat3 = GUICtrlCreateLabel(">>>by metinplayer<<<", 8, 256, 129, 17)

$kk1 = GUICtrlCreateLabel("sec 1 key", 55, 9, 50)
$k1 = GUICtrlCreateCombo("1", 10, 5, 40, 20)
GUICtrlSetData(-1, "1|2|3|4|5")
$k1gc = GUICtrlCreateCheckbox(" ", 125, 5)

$kk2 = GUICtrlCreateLabel("sec 2 key", 55, 39, 50)
$k2 = GUICtrlCreateCombo("1", 10, 35, 40, 20)
GUICtrlSetData(-1, "1|2|3|4|5")
$k2gc = GUICtrlCreateCheckbox(" ", 125, 35)

$kk3 = GUICtrlCreateLabel("sec 3 key", 55, 69, 50)
$k3 = GUICtrlCreateCombo("1", 10, 65, 40, 20)
GUICtrlSetData(-1, "1|2|3|4|5|10|15")
$k3gc = GUICtrlCreateCheckbox(" ", 125, 65)

$kk4 = GUICtrlCreateLabel("sec 4 key", 55, 99, 50)
$k4 = GUICtrlCreateCombo("1", 10, 95, 40, 20)
GUICtrlSetData(-1, "1|2|3|4|5")
$k4gc = GUICtrlCreateCheckbox(" ", 125, 95)

$kkz = GUICtrlCreateLabel("sec z`key", 55, 129, 50)
$kz = GUICtrlCreateCombo("1", 10, 125, 40, 20)
GUICtrlSetData(-1, "1|2|3|4|5")
$kzgc = GUICtrlCreateCheckbox(" ", 125, 125)

$kks = GUICtrlCreateLabel("space key", 10, 152, 50)
$ksgc = GUICtrlCreateCheckbox(" ", 125, 148)

$kkr = GUICtrlCreateLabel("sec asdw key", 55, 179, 70)
$kr = GUICtrlCreateCombo("1", 10, 172, 40, 20)
GUICtrlSetData(-1, "3|5|10|12|15|18|22")
$krgc = GUICtrlCreateCheckbox(" ", 125, 172)
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "koniec")
GUISetState()

While 1
Sleep(50)
WEnd

func start()
Sleep(50)
$g_bPaused = False
GUICtrlSetData($komunikat,"Press F9 to pause")
Sleep(50)

If GUICtrlRead($k1gc) = $gui_checked Then
_5()
endif

If GUICtrlRead($k2gc) = $gui_checked Then
_6()
endif

If GUICtrlRead($k3gc) = $gui_checked Then
_7()
endif

If GUICtrlRead($k4gc) = $gui_checked Then
_8()
endif

If GUICtrlRead($kzgc) = $gui_checked Then
_9()
endif

If GUICtrlRead($krgc) = $gui_checked Then
_r()
endif

If GUICtrlRead($ksgc) = $gui_checked Then
_0()
endif
endfunc

Func _5()
GUICtrlSetData($kk1,"1 on")
$k11 = GUICtrlRead($k1)&0&0&0

AdlibRegister("k1",$k11)

EndFunc

Func k1()
GUICtrlSetData($kk1,"1 on")
Send("{1 down}")
sleep(100)
Send("{1 up}")
EndFunc

Func _6()
GUICtrlSetData($kk2,"2 on")
$k22 = GUICtrlRead($k2)&0&0&0

AdlibRegister("k2",$k22)

EndFunc

Func k2()
GUICtrlSetData($kk2,"2 on")
Send("{2 down}")
sleep(100)
Send("{2 up}")
EndFunc

Func _7()
GUICtrlSetData($kk3,"3 on")
$k33 = GUICtrlRead($k3)&0&0&0

AdlibRegister("k3",$k33)

EndFunc

Func k3()
GUICtrlSetData($kk3,"3 on")
Send("{3 down}")
sleep(100)
Send("{3 up}")
EndFunc

Func _8()
GUICtrlSetData($kk4,"4 on")
$k44 = GUICtrlRead($k4)&0&0&0

AdlibRegister("k4",$k44)

EndFunc

Func k4()
GUICtrlSetData($kk4,"4 on")
Send("{4 down}")
sleep(100)
Send("{4 up}")
EndFunc

Func _9()
GUICtrlSetData($kkz,"z ` on")
$kzz = GUICtrlRead($kz)&0&0
AdlibRegister("kz",$kzz)
EndFunc

Func kz()
GUICtrlSetData($kkz,"z ` on")
Send("{z down}")
sleep(200)
Send("{z up}")
sleep(200)
Send("{` down}")
sleep(200)
Send("{` up}")
EndFunc

Func _r()
GUICtrlSetData($kkr,"asdw on")
$krr = GUICtrlRead($kr)&0&0&0
AdlibRegister("kr",$krr)
EndFunc

Func kr()
sleep(100)
GUICtrlSetData($kkr,"asdw on")
$RandomNumber = Random($LowerLimit,$UpperLimit,100)
Send("{a down}")
sleep($RandomNumber)
Send("{a up}")
sleep($RandomNumber)
Send("{d down}")
sleep($RandomNumber)
Send("{d up}")
sleep($RandomNumber)
Send("{w down}")
sleep($RandomNumber)
Send("{w up}")
sleep($RandomNumber)
Send("{s down}")
sleep($RandomNumber)
Send("{s up}")
EndFunc

Func _0()
ks()
EndFunc

Func ks()
GUICtrlSetData($kks,"space on")
Send("{space down}")
EndFunc

Func pauza()
Sleep(200)
GUICtrlSetData($komunikat,"press F8 to start")
AdlibUnRegister("k1")
GUICtrlSetData($kk1,"1 off")
AdlibUnRegister("k2")
GUICtrlSetData($kk2,"2 off")
AdlibUnRegister("k3")
GUICtrlSetData($kk3,"3 off")
AdlibUnRegister("k4")
GUICtrlSetData($kk4,"4 off")
AdlibUnRegister("kz")
GUICtrlSetData($kkz,"z `off")
Send("{space up}")
send("{space}")
GUICtrlSetData($kks,"space off")
AdlibUnRegister("kr")
GUICtrlSetData($kkr,"asdw off")
Sleep(200)
$g_bPaused = Not $g_bPaused

While $g_bPaused
Sleep(200)
WEnd

EndFunc

Func koniec()
AdlibUnRegister("k1")
AdlibUnRegister("k2")
AdlibUnRegister("k3")
AdlibUnRegister("k4")
AdlibUnRegister("kz")
AdlibUnRegister("kr")
Exit 0
EndFunc

Post został pochwalony 0 razy