» »

prosim za pomoc loop zanke

prosim za pomoc loop zanke

Silk ::

Pozdravljeni

prvo da povem da sem cisto svez v programiranju

proble: jaz sem rdeca pika poskeniram box (x1,y1,x2,y2) v primeru da najdem rumeno piko kliknem na njo to mij e uspelo narediti.

v primeru ko pa ni rumene pike notr moram kliknil prvo na kordinate kjer je modra pika in ko se prispem na kordinate ponovno zacnem skenirat ali je rumena pika notri v pri meru da je klioknem na njo v primeru da ni pa naslednic kliknem na zeleno piko in tako dalje dokler ni v boxu rumene pike

men pa ta zanka tudi ce je v boxu rumena pika hoce tako kar kliknit na plavo in pol spet in ne vem kako se lotit in to je moja koda

lp

HotKeySet("{f1}","myExit")
$i=0
$color = 0x1FFC90E
$x1 = 1159
$y1 = 170
$x2 = 1894
$y2 = 910


While(1)

$Found = PixelSearch ($x1, $y1, $x2, $y2, $color, 5)
if not @error Then
ML($Found[0],$Found[1])

Sleep(10000)
ML(1872,842)
Sleep(220000)
ML(974,863)
Sleep(5000)
ML(991,834)
Sleep(10000)
$scan = True
Else
MR(1386,974)
Sleep(2500)
$Found = PixelSearch ($x1, $y1, $x2, $y2, $color, 5)
if not @error Then
ML($Found[0],$Found[1])
Sleep(10000)
ML(1872,842)
Sleep(220000)
ML(974,863)
Sleep(5000)
ML(991,834)
Sleep(10000)
EndIf

EndIf


WEnd


Func MR($x,$y)
MouseMove($x, $y,1)
MouseDown("right")
sleep(250)
MouseUp("right")
EndFunc

Func ML($x,$y)
MouseMove($x, $y,1)
MouseDown("left")
sleep(50)
MouseUp("left")

EndFunc


Func myExit()
Exit
EndFunc




Silk ::

:(

Zgodovina sprememb…

  • spremenilo: Silk ()


Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

Oracle PL/SQL pomoč

Oddelek: Programiranje
161471 (910) MrStein
»

[c#] ukaz radirka

Oddelek: Programiranje
91039 (832) japol
»

[c#] picturebox, slika na sliko

Oddelek: Programiranje
151010 (820) japol
»

[c#] Risanje z miško

Oddelek: Programiranje
221351 (1032) japol
»

Grafika

Oddelek: Programiranje
201614 (966) aaaaa93

Več podobnih tem