大漠插件後台找图找色识字的完整例子

大漠插件後臺找圖找色識字的完整例子

2010-12-01 16:44:19| 分類： 按鍵精靈 | 標籤：按鍵精靈學習 |字型大小 訂閱

下面代碼，請把RegDll.dll,dm.dll,圖片,字形檔添加到附件裏面。 就可以啟動腳本。

大漠幫助裏資訊很全，多看大漠幫助就可以。 弄不明白的請調試，問題自然就出來了。

PutAttachment ".\Plugin" ,"*.*"

Call Plugin.RegDll.Reg(".\Plugin\dm.dll")

set dm = createobject("dm.dmsoft")

dm_ret = dm.SetPath(".\Plugin")

dm_ret = dm.LoadPic("*.bmp")

dm_ret = dm.SetDict(0,".\Plugin\字形檔.txt")

Jubing = dm.GetMousePointWindow()

Call Plugin.Window.Move(Jubing, 0, 0)

dm_ret = dm.BindWindow(Jubing,"dx","dx","dx")

Delay 1000

If dm_ret=1

Else

MessageBox "綁定失敗，重啟腳本或聯繫作者"

EndScript

End If

px=3:py=29 //後臺必須要設置的偏移座標。 此座標就是視窗邊框大小。 固定座標判斷顏色和後臺滑鼠就需要用到此偏移 //找圖

dm_ret = dm.FindPic(0,0,2000,2000,"1.bmp|2.bmp|3.bmp","000000",0.9,0,intX,intY)

If intX >= 0 and intY >= 0 Then

MessageBox "找到"

End If

//找色

dm_ret = dm.FindColor(0,0,2000,2000,"123456-000000|aabbcc-030303|ddeeff-202020",1.0,0,intX,intY)

If intX >= 0 and intY >= 0 Then

MessageBox "找到"

End If

//識字

s = dm.Ocr(0,0,2000,2000,"9f2e3f-000000",1.0) MessageBox s