Red de conocimiento informático - Aprendizaje de código fuente - Utilice el complemento Desert en Key Wizard. ¿Qué significa que falta un objeto DM?

Utilice el complemento Desert en Key Wizard. ¿Qué significa que falta un objeto DM?

Antes de usar Desert, primero registre Desert. Aquí tomo la versión 3.1233 del complemento como ejemplo (si se trata de otras versiones, modifíquela usted mismo), el código es el siguiente:

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