Utilice el complemento Desert en Key Wizard. ¿Qué significa que falta un objeto DM?
Llame a Register_dm
Sub Register_dm
Establecer ws=createobject("Wscript .Shell")
ws.run "regsvr32 atl.dll /s"
Establezca ws=nada
PutAttachment "." , "dm.dll"
PutAttachment ".\Plugin", "RegDll.dll"
Complemento de llamada. RegDll.Reg(". \ dm.dll")
Retraso 200
Establecer dm = createobject("dm.dmsoft")
ver = dm.
Si ver <> "3.1233" entonces
Establecer dm = nada
Establecer ws=createobject("Wscript.Shell")
ws.run "regsvr32 . \dm.dll /s"
Establecer ws=nada
Retraso 1000
Establecer dm = createobject("dm.dmsoft ")
Retraso 200
ver = dm.Ver()
Si ver <> "3.1233" entonces
Cuadro de mensaje "El La versión del complemento es incorrecta, la versión actual es: " & ver & ", el complemento está ubicado en el directorio: " & dm.GetBasePath() & Chr(10) & "Cierre el programa y vuelva a abrirlo e inténtalo de nuevo"
ver = dm.program e inténtalo de nuevo"
Fin si
Fin si
End Sub
Después de que el registro del desierto sea exitoso, si abre el hilo, debe agregar una oración Set dm = createobject ("dm.dmsoft")
Cree el objeto del desierto delante del hilo. entonces el problema esta solucionado