马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
PutAttachment "C:\test","*.*"
PutAttachment ".\plugin","DmReg.dll"
Public Declare Function SetDllPathW Lib "DmReg.dll" Alias "SetDllPathW" (ByVal path As String, ByVal mode As Long) As Long
dm_ret = SetDllPathW( "C:\test\dm.dll", 0)
set dm = createobject("dm.dmsoft")
Delay 500
dm_ret =dm.Reg(".\DmReg.dll","")
PutAttachment "c:\test","*.txt"
dm_ret = dm.SetPath("c:\test")
dm_ret = dm.SetDict(0, "字库.txt")
dm_ret = dm.FindStr(10,239,75,307, "回", "ffffff-000000", 0.8, x,y)
If x > 0 and y > 0 Then
MessageBox "找到回"
Else
MessageBox "没找到"
End If
字库没问题
调试也没有错误信息
就是找不到字库里的字
可以没有成功免注册大漠
但找图可以找到
请大神们指点,真心感谢!
|