Cómo operar el mouse de fondo del complemento Desert

El código de registro de Desert es el siguiente. No importa si no lo entiendes. De todos modos, las claves del código de registro del elfo son inconfundibles. Tienes que prestar atención al número de versión al registrarte. Mi desierto es 3.1233, por lo que mi juicio posterior es ver <> "3.1233".

Llamar a Register_dm

Sub Register_dm

Establecer ws=createobject("Wscript.Shell")

ws.run "regsvr32 atl. dll /s"

Establecer ws= nada

PutAttachment "." , "dm.dll"

PutAttachment ".\Plugin", "RegDll.dll "

Llamada Plugin.RegDll.Reg(". \dm.dll")

Retraso 100

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 300

Establecer dm = createobject("dm.dmsoft")

Retraso 100

ver = dm.Ver()

Si ver & lt;> " 3.1233" then

Verify = 60

// Las siguientes dos líneas son una oración y el asistente de claves las escribe en una sola línea.

Cuadro de mensaje "La versión del complemento es incorrecta, la versión actual utilizada es:" & ver & ", el directorio donde se encuentra el complemento es:" & dm.GetBasePath() & Chr(10) & " Por favor, cierre el programa, vuelva a abrirlo e inténtelo de nuevo"

End if

End If

End Sub

Creando un objeto desértico es En una palabra, es así: Set dm = createobject("dm.dmsoft")

Después de eso, puedes usar las funciones dentro del complemento desert. Si es un hilo, puedes. Debes crear uno para cada hilo. Lo que esta oración significa es que en el hilo, debes escribir una oración delante de cada hilo: Set dm = createobject("dm.dmsoft")

En cuanto al fondo, es decir, vinculante, está en el archivo de ayuda del desierto. Puede consultar detalladamente el contenido de la configuración de fondo allí. En cuanto a qué fondo es mejor usar y si el efecto funcionará, no estoy seguro de esto y esto no es seguro. una prueba de lo que sabes (esta es una prueba de lo que sabes). Esta es una prueba para que usted sepa (a veces, si hay tantos modelos en el desierto, ¿son adecuados?), Si es adecuado, puede pensar en otras formas de hacerlo.