Witam. Piszę program, który wyszukuje po kolei kilka obrazkow. Problem w tym, że nie działają funkcje _ImageSearch. Czemu tak się dzieje? Oto kod:
#include <ImageSearch.au3>
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)
Global $wybor, $wyb, $kat
GuiCreate("Wybór", 400, 130)
GUICtrlCreateLabel ("Wybierz kategorię ", 10, 10)
$kat=GUICtrlCreateCombo ("Electronics", 100, 10, 150, 10)
GUICtrlSetData(-1, "Brands We Love")
GUICtrlCreateLabel ("Wyierz nagrodę ", 10, 33)
$btn1 = GUICtrlCreateButton("Potwierdz", 260, 17, 80, 20)
GUICtrlSetOnEvent($btn1, "Wybor")
func Wybor ()
GUICtrlDelete($wyb)
if GuiCtrlRead($kat)="Electronics" Then
$wyb=GUICtrlCreateCombo("iPod Touch 8gb", 100, 33, 150, 10)
GUICtrlSetData(-1, "iPod touch 16gb|iPod Touch 32gb", "iPod Touch 8gb")
else
$wyb=GUICtrlCreateCombo("PayPal $1000", 100, 33, 150, 10)
GUICtrlSetData(-1, "item2|item3", "PayPal $1000")
endif
EndFunc
$autofill=GUICtrlCreateLabel ("Podaj pełną sciezke pliku autofill.exe", 10, 59)
GUICtrlCreateInput ("", 210, 56, 180)
$rchecker=GUICtrlCreateLabel ("Podaj pełną sciezke pliku RChecker.exe", 10, 83)
GUICtrlCreateInput ("", 210, 79, 180)
$btn = GUICtrlCreateButton("OK", 150, 105, 80, 20)
GUICtrlSetOnEvent($btn, "Wyjscie")
GUISetOnEvent($GUI_EVENT_CLOSE, "Wyjscie")
GUISetState(@SW_SHOW)
While GuiGetMsg()<>$GUI_EVENT_CLOSE
WEnd
Func Wyjscie()
msgbox(0, "Wybor","Wybrales: "&GUICtrlRead($wyb)&@CRLF& "Z kategorii: "&GuiCtrlRead($kat))
GuiDelete ()
EndFunc
do
$x=1440
$y=900
$result = _ImageSearch("welcome.bmp", 1, $x, $y, 10)
If $result = 1 Then
MouseClick( "left", 316, 29)
ExitLoop
EndIf
until $result=1
do
$x = 1440
$y = 900
$result = _ImageSearch(GuiCtrlRead($kat)&".bmp", 1, $x, $y, 10)
If $result = 1 Then
MouseClick( "left", $x, $y)
EndIf
until $result=1
do
$x = 1440
$y = 900
$result = _ImageSearch(GuiCtrlRead($wyb)&".bmp", 1, $x, $y, 10)
sleep (500)
If $result = 1 Then
MouseClick( "left", $x, $y)
Else
For $i=0 To 47 Step +1
send ("{DOWN}")
Next
EndIf
until $result=1
Do
$x = 1440
$y = 900
$result = _ImageSearch("redeem.bmp", 1, $x, $y, 10)
If $result = 1 Then
MouseClick( "left", $x, $y)
ExitLoop
EndIf
until $result=1
do
$x = 1440
$y = 900
$result = _ImageSearch("redeem.bmp", 1, $x, $y, 10)
If $result = 1 Then
Send ("{F6}")
ExitLoop
EndIf
until $result=1