马上加入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 
 
字库没问题 
调试也没有错误信息 
就是找不到字库里的字 
可以没有成功免注册大漠 
但找图可以找到 
请大神们指点,真心感谢! 
 |