下面是我看这帖后,弄得一找图脚本www.autoitx.com/forum.php?mod=vi ... hlight=%D5%D2%CD%BC调用按键精灵(屏幕范围内查找图片)函数,如果要在屏幕指定范围内依次查找文件夹内所有图片,并在指定位置输入找到图片的文件名,该怎么写?比如如果找到qt.bmp,则在指定位置输入qt
otKeySet("1", "findImage") ;按1查找图片
HotKeySet("{ESC}", "terminate") ;alt-q 退出
While 1
Sleep(100)
WEnd
Func terminate()
Exit
EndFunc
Func findImage()
$tmp = _FindPic(0, 0, 1023, 767,"lu.bmp",0.5)
If $tmp[0]>0 and $tmp[1]>0 Then
$pos = _FindPic(0, 0, 1023, 767, "图\qt.bmp",0.5)
MouseClick("left", $pos[0]+200, $pos[1], 1,1)
Sleep(1000)
send("qt")
EndIf
EndFunc ;==>findImage
Func _FindPic($iLeft, $iTop, $iRight, $iBottom, $szFileName, $fSimilar)
Dim $pos[2]
$obj = ObjCreate("QMDispatch.QMFunction")
$foundpixel = $obj.FindPic($iLeft, $iTop, $iRight, $iBottom, $szFileName, $fSimilar)
$pos[0] = Int($foundpixel / 8192)
$pos[1] = Mod($foundpixel, 8192)
Return $pos
EndFunc ;==>FindPic
[ 本帖最后由 怒月 于 2009-1-29 22:32 编辑 ] |