Przerobienie bota

[Gość Wesołek]

; Press Esc to terminate script, Pause/Break to "pause"
Global $Paused
Global $Par
HotKeySet("{F1}", "TogglePause")
HotKeySet("{F3}", "End")
;;;; Body of program would go here ;;;;
While 1
   Sleep(100)
WEnd
;;;;;;;;
Func TogglePause()
   $Paused = NOT $Paused
   While 2
   $wojna = PixelSearch( 524, 407, 554, 437, 0x000000, 10)
   If $wojna = 0 Then
    Send("{SPACE down}")
    Sleep(260)
    Send("{SPACE up}")
    Sleep(1)
EndIf
    $seed = PixelSearch( 739, 437, 749, 447, 0xED1B23, 10)
    If $seed = 0 Then
    Send ("{ESC}")
    Sleep (0)
    Send ("{ESC}")
    Sleep (0)
    Send ("{ESC}")
    Sleep (0)
    Send ("{ESC}")
    Sleep (0)
    Send ("{ESC}")
    Sleep (0)
    Send ("{SPACE}")
   EndIf
   WEnd
   EndFunc

Func End()
   Exit 0
EndFunc

745, 437, 755, 447
543, 434, 563, 454
544, 434, 564, 454

 

Proszę aby tan gdzie jest to: wciśnięcie klawisza [ESC] to był image serach, nie wiem czy to to ale takie coś że wyszukuje taki malutki obrazeczek i klika to. Żeby poprostu zamykał te okno tym krzyzykiem.

http://imageshack.us/photo/my-images/828/imagadfa.png/

[Sopelek997]

Sleep (0)

 

LOL

 

Nie wystarczy Ci pare pixelsearchów lub sam mouseclick do takiej prostej rzeczy?

[Gość Wesołek]

Jak dla Cb. to proste, to sam napisz bota do tej gry Mogę Ci powiedzieć co i jak .

[Sopelek997]

Nie interesuje mnie pisanie botów do gier.

 

Jeśli chodzi ci o łowienie rybek to użyj autoit3Info.exe, pixelgetcolor(), mouseclick() i ewentualnie send() [controlsend()].

Bez problemu zrobisz tak prostego bota w około godzine.

Nie używaj imagesearch bo jest wolne.

Zrób główną pętle, w której będzie sprawdzał wszystkie możliwości jakie chcesz ująć w bocie i wykonuj dla nich odpowiednie klicki czy co co tam ma się robić. To jest takie proste, że bardziej się już nie da pomóc. Możesz jeszcze poczytać tutki.

[Protecto]

Przygotowania

 

Wrzuć UDF ImageSearch do:

[katalog instalacji AutoIt3]\Include\

 

DL:

http://hotfile.com/dl/136384166/dd21697/ImageSearch.au3.html

SKAN:

http://www.virustotal.com/file-scan/report.html?id=213415b551b044ba8e4c135821fb3a79e7ecbf7fe0d42cb832f63cee9b1ac1f1-1271066551

 

 

Wrzuć ImageSearchDLL do:

C:\Windows\System32\

 

DL:

http://hotfile.com/dl/136384106/b3f4901/ImageSearchDLL.dll.html

SKAN:

http://www.virustotal.com/file-scan/report.html?id=e7c92ceb8e1214afffe30712df85804f62dfbed15121e02a9a3ae9918dbccc25-1322680926

 

 

---

 

Kod

#include <ImageSearch.au3> ;UDF ImageSearch.au3
Func klik_w_x() ;definiuje funkcje klikniecia
Local $x, $y ;definiuje zmienne polozenia kursora
_ImageSearch("x.png", 1, $x, $y, 10)
If Not _ImageSearch("x.png", 1, $x, $y, 10) Then ;wykonuje funkcje ImageSearch i sprawdza czy zwrocona przez nia wartosc jest rowna 0
 MsgBox(16, "Błąd", "Nie znaleziono iksa.") ;jesli tak to wyswietla MsgBox z bledem
Else ;kiedy jest rozna od zera
 MouseClick("primary", $x, $y, 1, 0) ;klika w znaleziony obrazek
EndIf
EndFunc
klik_w_x() ;wykonuje func

[Gość Wesołek]

Nie interesuje mnie pisanie botów itd. Piszę temat bo chcę pomoc. Interesuję się grafiką i robieniem filmików. Więc wiesz ;<

@Protecto A ten kod gdzie umieścić? W której linijce kodu?

 

; Press Esc to terminate script, Pause/Break to "pause"
Global $Paused
Global $Par
HotKeySet("{F1}", "TogglePause")
HotKeySet("{F3}", "End")
;;;; Body of program would go here ;;;;
While 1
   Sleep(100)
WEnd
;;;;;;;;
Func TogglePause()
   $Paused = NOT $Paused
   While 2
   $wojna = PixelSearch( 524, 407, 554, 437, 0x000000, 10)
   If $wojna = 0 Then
    Send("{SPACE down}")
    Sleep(260)
    Send("{SPACE up}")
    Sleep(1)
EndIf
    $seed = PixelSearch( 739, 437, 749, 447, 0xED1B23, 10)
    If $seed = 0 Then
    Send ("{ESC}")
    Sleep (0)
    Send ("{ESC}")
    Sleep (0)
    Send ("{ESC}")
    Sleep (0)
    Send ("{ESC}")
    Sleep (0)
    Send ("{ESC}")
    Sleep (0)
    Send ("{SPACE}")
   EndIf
   WEnd
   EndFunc

#include <ImageSearch.au3> ;UDF ImageSearch.au3
Func klik_w_x() ;definiuje funkcje klikniecia
Local $x, $y ;definiuje zmienne polozenia kursora
_ImageSearch("x.png", 1, $x, $y, 10)
If Not _ImageSearch("x.png", 1, $x, $y, 10) Then ;wykonuje funkcje ImageSearch i sprawdza czy zwrocona przez nia wartosc jest rowna 0
 MsgBox(16, "Błąd", "Nie znaleziono iksa.") ;jesli tak to wyswietla MsgBox z bledem
Else ;kiedy jest rozna od zera
 MouseClick("primary", $x, $y, 1, 0) ;klika w znaleziony obrazek
EndIf
EndFunc


Func End()
   Exit 0
EndFunc

745, 437, 755, 447
543, 434, 563, 454
544, 434, 564, 454

 

wstawiłem tam i jest źle.

[Gość Wesołek]

@F5 To przerobi ktoś bota?

A i co oznaczają te cyfry na końcu?

[Sopelek997]

A i co oznaczają te cyfry na końcu?

To mu mamy wiedzieć?

 

Func klik_w_x()

to jest funkcja. Sama się nie wykona. Trzeba jej pomóc.

 

wyglądać będzie to mniej więcej tak

#include <ImageSearch.au3> ;UDF ImageSearch.au3
; Press Esc to terminate script, Pause/Break to "pause"
Global $Paused = true
Global $Par
HotKeySet("{F1}", "TogglePause")
HotKeySet("{F3}", "End")
;;;; Body of program would go here ;;;;
While 1
if not $paused then klik_w_x()
Sleep(100)
WEnd
;;;;;;;;
Func TogglePause()
$Paused = NOT $Paused
EndFunc


Func klik_w_x() ;definiuje funkcje klikniecia
Local $x, $y ;definiuje zmienne polozenia kursora

If Not _ImageSearch("względna scieka do obrazka", 1, $x, $y, 10) Then ;wykonuje funkcje ImageSearch i sprawdza czy zwrocona przez nia wartosc jest rowna 0
 MsgBox(16, "Błąd", "Nie znaleziono iksa.") ;jesli tak to wyswietla MsgBox z bledem
Else ;kiedy jest rozna od zera
 MouseClick("primary", $x, $y, 1, 0) ;klika w znaleziony obrazek
EndIf
EndFunc

Func End()
Exit 0
EndFunc