大漠兔正确写法

不是我

   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