标题: 大漠兔正确写法 [打印本页] 作者: 不是我 时间: 2015-8-27 16:12 标题: 大漠兔正确写法 PutAttachment "C:\windows\test_game","*.*"
PutAttachment ".\plugin","dmReg.dll"
Public Declare Function SetDllPathW Lib "dmreg.dll" Alias "SetDllPathW" (ByVal path As String, ByVal mode As Long) As Long
a=SetDllPathW( "C:\windows\test_game\dm.dll", 0)
MessageBox a
set dm = createobject("dm.dmsoft")
Delay 500
dm_ret =dm.Reg("xxxxxxx","")
if dm_ret <> 1 then
MessageBox dm_ret
goto 注册
end if