在论坛找到了这个,运行了一下却出错了,请懂的指点一下,错在哪?
HotKeySet("{F3}", "mian")
HotKeySet("{F4}", "terminate") ;alt-q 退出
While 1
Sleep(100)
WEnd
Func terminate()
Exit
EndFunc ;==>terminate
Func mian()
;开始识别和找图
$aa=objCreate("SimPlugOCR.OCR") ;调用外部插件
$aa.FontColor="94BAFF";图片大部分颜色
$aa.SimilarColor=100;允许颜色偏差
$aa.SimilarFont=5;允许范围偏差
$aa.Dict="图2代码.txt";自己生成图片代码
sleep(200)
$i=$aa.FindChar("1",0,0,600,600)
$x = Int($i / 8192)
$Y = Mod ($I,8192)
IF $x > 0 then
MsgBox(0,"结果","找到图^*^呵呵")
MsgBox(0,"图的坐标","X坐标:" & $x & @CR & "Y坐标:" & $y)
MouseMove ( $X, $Y ,1 )
;//方法1:计算取出文字的坐标,
;//方法2:直接从模块的cx,cy变量中取出,
Else
MsgBox(0,"结果","没有找到图")
EndIf
EndFunc
|