heavenm 发表于 2018-4-19 01:37:49

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

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_UseX64=n
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
;**** 参数创建于 ACNWrapper_GUI ****
RegDM()
Global $DM = ObjCreate("dm.dmsoft")
If IsObj($DM) Then
        $ver = $DM.Ver()
        ConsoleWrite('当前大漠插件版本:' & $ver & @CRLF)
Else
        MsgBox(64, '提示:', '注册大漠插件失败!!!'&$DM.GetLastError())
        Exit
EndIf
$Hwnd = $DM.FindWindow("", "记事本")

$Bind = $DM.BindWindow(WinGetHandle('记事本'), 'gdi', 'normal', 'normal', 0)
MsgBox(0, $Hwnd,$Bind )
$array=$DM.GetColor (111,23)
MsgBox(0, '',$array )
Func RegDM()
        Local $dm_dll = @ScriptDir & '\dm.dll'
        DllCall('E:\PortableSync\Au3Project\Source\大漠\LCG\Plugin\RegDll.dll','int','SetDllPathA','int','E:\PortableSync\Au3Project\Source\大漠\LCG\dm.dll')
;~         RunWait(@ComSpec & ' /c regsvr32 /s "' & $dm_dll & '"', '', @SW_HIDE)
EndFunc   ;==>RegDM
绑定窗口用不了,其他的有些是能用的,是假装破解版么,还是使用方法错误?

heavenm 发表于 2018-4-19 01:39:20

该版本本身就是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 发表于 2018-4-19 23:42:01

送大家正版注册,下载大漠原版就OK了#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_UseX64=n
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
;**** 参数创建于 ACNWrapper_GUI ****
Global $DM
RegDM($DM)

$Hwnd = $DM.FindWindow("", "记事本")
MsgBox(0, $Hwnd, $Hwnd)

Func RegDM(ByRef $object)
        Local $__dll = @ScriptDir & '\dm.dll'
        RunWait(@ComSpec & ' /c regsvr32 /s "' & $__dll & '"', '', @SW_HIDE)
        $object = ObjCreate("dm.dmsoft")
        If IsObj($object) Then
                $ver = $object.Ver()
                ConsoleWrite('当前大漠插件版本:' & $ver & @CRLF)
        Else
                MsgBox(64, '提示:', '注册大漠插件失败!!!')
                Exit
        EndIf
        $reg = $object.Reg("sunyunuo1001d5364db9316cd7d48de9cffc3b134c19", "")
        If $reg <> 1 Then MsgBox(0, '注册失败!', $reg)
EndFunc   ;==>RegDM

heavenm 发表于 2018-4-19 23:44:14

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_UseX64=n
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
;**** 参数创建于 ACNWrapper_GUI ****
$DM=RegDM()

$Hwnd = $DM.FindWindow("", "记事本")
MsgBox(0, $Hwnd, $Hwnd)

Func RegDM()
        Local $__dll = @ScriptDir & '\dm.dll'
        RunWait(@ComSpec & ' /c regsvr32 /s "' & $__dll & '"', '', @SW_HIDE)
        $object = ObjCreate("dm.dmsoft")
        If IsObj($object) Then
                $ver = $object.Ver()
                ConsoleWrite('当前大漠插件版本:' & $ver & @CRLF)
        Else
                MsgBox(64, '提示:', '注册大漠插件失败!!!')
                Exit
        EndIf
        $reg = $object.Reg("sunyunuo1001d5364db9316cd7d48de9cffc3b134c19", "")
        If $reg <> 1 Then MsgBox(0, '注册失败!', $reg)
        Return $object
EndFunc   ;==>RegDM感觉还是这样子比较方便

xyhqqaa 发表于 2018-4-20 08:22:05

谢谢分享~~~~

heavenm 发表于 2018-4-22 10:26:06

大漠的找图速度还可以!做了个卡牌切牌器 正确率90%以上,优化下的话,可以到99%
页: [1]
查看完整版本: 漠插件Magic LCG专版,怎么用的到底?是不是假破解版