- 超级版主
- 1228894
- 26975
- 25
- 8050 朵
- 36129 个
- 4746 个
- 421340
- 2012-07-18
|
1#
t
T
发表于 2022-06-09 15:19
|
|只看楼主
大漠插件下载:插件下载链接大漠视频: 视频免费版:收费版:
- 收费版需要每月1-3号在"大漠后台系统"进行账号注册>充值(100起冲)>当天有使用就扣除0.7分/台
- 若未在1-3号账号注册,只能购买空白账号
大漠注册:- //[把dm.dll和RegDll.dll放到附件]
- PutAttachment "C:\大漠", "dm.dll"'是否大漠插件到到"C:\大漠"文件夹内
- PutAttachment ".\Plugin" ,"RegDll.dll"'释放RegDll插件到按键精灵安装目录下的Plugin[即插件]文件夹内
- Call Plugin.RegDll.Reg("C:\大漠\dm.dll")'采用RegDll插件的Reg命令进行大漠插件注册
- Set dm = createobject("dm.dmsoft")'创建大漠对象
- TracePrint dm.Ver()'输出大漠版本号
复制代码 图片识别:- '每台电脑只需要注册一次大漠,之后直接创建大漠对象即可食用
- PutAttachment "C:\大漠","*.bmp"'将附件的Bmp图片释放到"C:\大漠"文件夹内[所有第三方插件均不支持附件找图]
- Set dm = createobject("dm.dmsoft")'创建大漠对象
- dm_ret = dm.Reg("abcdefg","")'收费版需加本句,改成你自己的注册码及附加码,否则将卡死或闪退
- TracePrint dm_ret'用于查看注册码失败原因
- dm_ret = dm.SetPath("C:\大漠")'设置全局路径,这样后边找图什么的可以写"图名.bmp",否则就的写完整路径"C:\大漠\图名.bmp"
- hwnd = dm.GetMousePointWindow()'获取窗口句柄,也可采用EnumWindow、FindWindowEx等
- dm_ret = dm.BindWindow(hwnd, "gdi", "windows", "windows", 1)
- '可通过"大漠插件绑定测试工具"进行模式测试,工具均失败建议采用代码测试,具体以代码测试为准
- 'BindWindow无法成功可采用BindWindowEx
- Delay 500
- dm_ret = dm.FindPic(0,0,2000,2000,"南极.bmp|初出.bmp","000000",0.9,0,intX,intY)'|代表符合任何一个图片均可
- If intX >= 0 and intY >= 0 Then
- Select Case dm_ret
- Case 0
- TracePrint "找到图1,坐标为"&intX&":"&intY
- Case 1
- TracePrint "找到图2"&intX&":"&intY
- End Select
- End If
- Sub OnScriptExit()'脚本停止时触发事件
- dm_ret=dm.unbindwindow()'解除绑定窗口,并释放系统资源
- End Sub
复制代码 文字识别:- set dm = createobject("dm.dmsoft")
- dm_ret = dm.SetPath("C:\大漠")
- dm.SetDict 1, "大漠字库.txt"'设置"C:\大漠"文件夹内的"大漠字库.txt"为1号字库
- dm_ret = dm.UseDict(1)'调用1号字库
- hwnd = dm.GetMousePointWindow()
- dm_ret = dm.BindWindow(hwnd,"gdi","windows","windows",1)
- s = dm.Ocr(0,0,1024,768 ,"000000-000000",1.0)'进行文字识别,文字查找返回坐标采用FindStr
- MessageBox s
- Sub OnScriptExit()
- dm.UnBindWindow
- End Sub
复制代码 偏色计算器:大漠偏色计算器2.2
|