|
|
发表于 2018-11-30 20:40:13
|
显示全部楼层
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 |
|