Roki Opublikowano 4 Kwietnia 2010 Opublikowano 4 Kwietnia 2010 Mam kod, który znalazłem na innym forum, ale nie wiem, jakim kompilatorem go skompilować, ktoś pomoże? Oto kod: ; includes; #AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <IE.au3> #include <GUIScrollBars.au3> #include <ScrollBarConstants.au3> #include <StructureConstants.au3> #Include <File.au3> hotkeyset("{F9}", "maincore") HotKeySet("{END}", "terminator") ;options; Opt("WinWaitDelay", 100) Opt("WinTitleMatchMode", 4) Opt("WinDetectHiddenText", 1) Opt("PixelCoordMode", 2) Opt("MouseCoordMode", 2) Opt("MustDeclareVars", 1) ;hotkeys' ;zmienne global $coord, $cros, $x ; $uruch = Iniread("config.ini", "Mbot Settings", "launchcount", "0") WinWait("METIN2", "") If Not WinActive("METIN2", "") Then WinActivate("METIN2", "") WinWaitActive("METIN2", "") TrayTip("Metin Simple Bot","Bot aktywny, możesz iść afk",30) WinWait("METIN2", "") If Not WinActive("METIN2", "") Then WinActivate("METIN2", "") WinWaitActive("METIN2", "") ;TrayTip("Bot aktywny, możesz isć odpocząć;-)",30) While 1 Sleep(300) WEnd func maincore() while 1 call("mobsearch") ;call("dropsearch") WEnd EndFunc Func mobsearch() $coord = PixelSearch(100, 150, 650, 540, 0xEB1609, 5, 10) If Not @error Then MouseMove($coord[0],$coord[1],0) MouseClick("left",$coord[0],$coord[1]) Call ("fight") EndIf EndFunc Func fight() Do sleep(500) $cros = pixelgetcolor(613, 54, "metin2") send("z") until $cros <> 0xFFFBFF send("z") send("z") send("z") Endfunc func terminator() Exit EndFunc
Rekomendowane odpowiedzi