Terminar la ejecución de Dll con END

[Joey]

Hola Amigos,

Estoy trabajando con visual basic 6, y términe de crear una DLL para trabajar con asp, esta Dll se desactiva durante los proximo 6 meses pero un private sub no me deja ocupar el "END" ¿con que puedo términar la ejecución de un Dll?

Codigo
Private Sub Class_Initialize()
Dim depen As Dependencia
Set depen = New Dependencia
If depen.Dependencia Then
Call OpenDB
Else
MsgBox "Este Software se ha desactivado, contactese con su administrador.", vbCritical
END ' aca se produce el error
End If
End Sub

[sdnsdlm]

Hola,

No domino ASP demasiado, pero... no entiendo lo que pretendes con ese msgbox al fin y al cabo la dll la estás ejecutando en el servidor y no en el cliente, así que... Prueba a quitarlo.

Respecto a finalizar la dll, realmente finalizará cuando termine su ciclo de ejecución como cualquier otro programa, eso sí, puede permanecer cargada en el espacio de memoria del proceso cliente incluso después de haber dejado de utilizarse. Por eso la puta mierda esa de que cuando haces un cambio en un COM tienes que reiniciar o hacer otras chapuzas varias con el nombre de la dll. Pero bueno, hay maneras de solucionarlo.

Creo que lo que debes hacer es llevar una variable que se llame estado (por ejemplo) en la dll y darle valor en el initialize. Luego desde una función devuelves el valor de ésta variable y la pillas desde ASP y en función de los que sea muestras el mensaje con un response.write o llamas a la función que corresponda. Cuando hayas acabado las tareas haces un nothing del objeto que has creado para usar la dll y santas pascuas.

Yo lo enfocaría de esa manera, pero desde luego no alcanzo a entender y creo (no aseguro) que no es del todo correcto ese msgbox que has utilizado.

Saludos.