漠插件Magic LCG专版,怎么用的到底?是不是假破解版

heavenm

1. #Region ;**** 参数创建于 ACNWrapper_GUI ****
   
2. #PRE_UseX64=n
   
3. #PRE_Res_requestedExecutionLevel=None
   
4. #EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
   
5. ;**** 参数创建于 ACNWrapper_GUI ****
   
6. RegDM()
   
7. Global $DM = ObjCreate("dm.dmsoft")
   
8. If IsObj($DM) Then
   
9.         $ver = $DM.Ver()
   
10.         ConsoleWrite('当前大漠插件版本：' & $ver & @CRLF)
    
11. Else
    
12.         MsgBox(64, '提示：', '注册大漠插件失败！！！'&$DM.GetLastError())
    
13.         Exit
    
14. EndIf
    
15. $Hwnd = $DM.FindWindow("", "记事本")
    
16. 
    
17. $Bind = $DM.BindWindow(WinGetHandle('记事本'), 'gdi', 'normal', 'normal', 0)
    
18. MsgBox(0, $Hwnd,$Bind )
    
19. $array=$DM.GetColor (111,23)
    
20. MsgBox(0, '',$array )
    
21. Func RegDM()
    
22.         Local $dm_dll = @ScriptDir & '\dm.dll'
    
23.         DllCall('E:\PortableSync\Au3Project\Source\大漠\LCG\Plugin\RegDll.dll','int','SetDllPathA','int','E:\PortableSync\Au3Project\Source\大漠\LCG\dm.dll')
    
24. ;~         RunWait(@ComSpec & ' /c regsvr32 /s "' & $dm_dll & '"', '', @SW_HIDE)
    
25. EndFunc   ;==>RegDM
    

复制代码

绑定窗口用不了,其他的有些是能用的,是假装破解版么,还是使用方法错误?

heavenm

该版本本身就是vip版本，想要调用大漠全部的功能请自行搜索其插件即可，多数功能主要在于第三方dll方面，不在于这个主程序，说没用，你知道现在大部分按键精灵作者都使用这个不？说主界面和原来没差距的，那你用原来的好了！说收费的是免费版的，2.1以后全部都是vip版本，本软件可以完全使用，但是若是需要调用本地的dm.dll进行编写外挂则需要手动注册本软件，具体请查看帮助文件自行写一个reg.dll注册（
1.     首先打包dm.dll和RegDll.dll到附件，并且把RegDll.dll拷贝到按键的Plugin目录

2.     然后加入一下代码 (这里我是用绝对路径来说明，相对的也可以自己尝试下)

PutAttachment "c:\test" ,"*.*"

PutAttachment ".\Plugin" ,"RegDll.dll"

Call Plugin.RegDll.Reg("c:\test\dm.dll")

3.     然后就可以创建对象了

set dm = createobject("dm.dmsoft")，）即可使用dll调用高级功能，帮助里面都写了
http://pan.baidu.com/s/1c0jQAsS 密码：afn0

heavenm

送大家正版注册,下载大漠原版就OK了

1. #Region ;**** 参数创建于 ACNWrapper_GUI ****
   
2. #PRE_UseX64=n
   
3. #PRE_Res_requestedExecutionLevel=None
   
4. #EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
   
5. ;**** 参数创建于 ACNWrapper_GUI ****
   
6. Global $DM
   
7. RegDM($DM)
   
8. 
   
9. $Hwnd = $DM.FindWindow("", "记事本")
   
10. MsgBox(0, $Hwnd, $Hwnd)
    
11. 
    
12. Func RegDM(ByRef $object)
    
13.         Local $__dll = @ScriptDir & '\dm.dll'
    
14.         RunWait(@ComSpec & ' /c regsvr32 /s "' & $__dll & '"', '', @SW_HIDE)
    
15.         $object = ObjCreate("dm.dmsoft")
    
16.         If IsObj($object) Then
    
17.                 $ver = $object.Ver()
    
18.                 ConsoleWrite('当前大漠插件版本：' & $ver & @CRLF)
    
19.         Else
    
20.                 MsgBox(64, '提示：', '注册大漠插件失败！！！')
    
21.                 Exit
    
22.         EndIf
    
23.         $reg = $object.Reg("sunyunuo1001d5364db9316cd7d48de9cffc3b134c19", "")
    
24.         If $reg <> 1 Then MsgBox(0, '注册失败!', $reg)
    
25. EndFunc   ;==>RegDM

复制代码

heavenm

1. #Region ;**** 参数创建于 ACNWrapper_GUI ****
   
2. #PRE_UseX64=n
   
3. #PRE_Res_requestedExecutionLevel=None
   
4. #EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
   
5. ;**** 参数创建于 ACNWrapper_GUI ****
   
6. $DM=RegDM()
   
7. 
   
8. $Hwnd = $DM.FindWindow("", "记事本")
   
9. MsgBox(0, $Hwnd, $Hwnd)
   
10. 
    
11. Func RegDM()
    
12.         Local $__dll = @ScriptDir & '\dm.dll'
    
13.         RunWait(@ComSpec & ' /c regsvr32 /s "' & $__dll & '"', '', @SW_HIDE)
    
14.         $object = ObjCreate("dm.dmsoft")
    
15.         If IsObj($object) Then
    
16.                 $ver = $object.Ver()
    
17.                 ConsoleWrite('当前大漠插件版本：' & $ver & @CRLF)
    
18.         Else
    
19.                 MsgBox(64, '提示：', '注册大漠插件失败！！！')
    
20.                 Exit
    
21.         EndIf
    
22.         $reg = $object.Reg("sunyunuo1001d5364db9316cd7d48de9cffc3b134c19", "")
    
23.         If $reg <> 1 Then MsgBox(0, '注册失败!', $reg)
    
24.         Return $object
    
25. EndFunc   ;==>RegDM

复制代码

感觉还是这样子比较方便

xyhqqaa

谢谢分享~~~~

heavenm

大漠的找图速度还可以!做了个卡牌切牌器 正确率90%以上,优化下的话,可以到99%