[pytanie] Pixel Search jak ?

[DePoS]

Witam serdecznie

 

przejde od razu do setna . chodzi o to zeby np: myszka ciagle klikala na rozowy pixel ktory sie pojawia na monitorze , jest to moj 1 raz z ta funkcja i nie wiem co i jak : podaje kod , prosze o przeszsztalcenie , lub wytlumaczenie co i jak .

 

 

 

while 1

sleep(300)

$coord = PixelSearch( 0, 0, 100, 300,0x6E026E )

If Not @error Then

MouseClick("right", $coord ,$coord , 2,)

EndIf

 

wend

[KingSP1MPC]

chodzi

while 1  ;mawiają ,że hotkey się w pętli nie daję ,a jednak innego wyjścia nie widzę
HotKeySet("{1}", "click") ;klawisz "1" uruchamia funkcję szukania pixela
HotKeySet("{2}","stop") ; klawisz 2 wyłącza skrypt
wend

func click() ;poczatek funkcji klikania
while 1
sleep(300)
$coord = PixelSearch( 0, 0, 100, 300,0x6E026E) 
If Not @error Then
MouseClick("right",$coord[0],$coord[1],1,1)
EndIf
wend
endfunc ; koniecc funkcji

func stop() ;funkcja która zakańcza skrypt
Exit
endfunc

;

w "MouseClick" 1- kliknięcia,1 -szybkość . Żeby nakierować na środek mychę trzeba po zmiennych [$coord] dodać [0] i [1] jak widzisz. Nie wiem jak ci to wytłumaczyć czemu tak jest.

[C.J]

While 1
sleep(100)
$coord = PixelSearch( 0, 0, 100, 300,0x6E026E )
If Not @error Then
MouseClick("right", $coord[0] ,$coord[1] , 2)
EndIf
Wend

[DePoS]

Dziekuje wam , wszystko dziala :}

[DePoS]

zeby nie robic nowego posta jeszcze zapytam czy moga byc 2 koolory zeby i tak wykonywalo ten mouseclick ? np

 

While 1

sleep(100)

$coord = PixelSearch( 0, 0, 100, 300,0x6E026E , TUTAJ JESZCZE JEDEN ? )

If Not @error Then

MouseClick("right", $coord[0] ,$coord[1] , 2)

EndIf

Wend

[C.J]

Musisz dodać drugi raz pixelsearch z nowym kolorem.

Albo zachować kolory w tablicach wywołać je pętlą for...to...next w taki sposób.

 

Global $zmienne[5] 
$zmienna[0] =  0xFFFFFF ; kolor 1
$zmienna[1] =  0xFFFF44 ; kolor 2
$zmienna[2] =  0xFFFF33 ; kolor 3
$zmienna[3] =  0xFFFF22 ; kolor 4
$zmienna[4] =  0xFFFF11 ; kolor 5

For $i = 0 To 4
$coord = PixelSearch(0,0,100,300,$zmienna[$i])
If not @Error Then
MouseClick("right",$coord[0],$coord[1],2)
endif
next

[Sopelek997]

While 1
sleep(100)
$coord = PixelSearch( 0, 0, 100, 300,0x6E026E )
If Not @error Then
$coord = PixelSearch( drugi )
If Not @error Then
MouseClick("right", $coord[0] ,$coord[1] , 2)
endif
EndIf
Wend

[DePoS]

Dzieki Wielkie , wszystko gra i buczy

[Zkumeku]

Zamykam, problem rozwiązany. W razie potrzeby otwarcia pisać do mnie na PW.