Forzar el cerrado de aplicaciones activas en VB6

Cerrar aplicaciones activas para poder realizar Backups en VB6

 

Una política que se debe tener muy presente es la de realizar backup de las bases de datos de los servidores SQL, y para ser mas general, sea cual fuere el motor de base de datos o medio de almacenamiento de los datos que se utilice, se deben tener copias de resguardo de los datos,  existiendo distintos tipos(incrementales,totales,etc) que no son objeto de esta nota.

Lo concreto es que necesitamos tomar resguardo de nuestros datos y puede resultar común encontrar terminales que los operadores han dejado activas con alguna aplicación en uso, y esto, para el caso en particular que planteo en esta nota, no permite tomar backup de la base, dado que alguno de los datos estàn bloqueando alguna tabla.

Una manera que pudimos encontrar fue la de tener en un archivo de configuración, llamado CONFIG.ini, que es recorrido y leído al comenzar la ejecución del sistema (FORM LOAD); en este archivo entre varios datos, figura una variable TOFF : 20:30, según vemos en las siguientes lìneas

TOFF: 20:30:00                                                   *

USER: dbuser1                                                       *

Al momento de hacer el LOAD del formulario principal de la aplicacion, se recorre este archivo y se almacenan en variables los datos contenidos, según vemos en las lineas

‘ Leo el archivo CONFIG.ini

UsuarioSQL = Configuracion(iniUser)

mvTimeOff = Configuracion(iniTimeOFF)

La funcion Configuración(inserta en un módulo de clases del proyecto), recorre el archivo de configuración, cargando en una variable los datos almacenados…

Public Function Configuracion(ByVal Variable As iniEnum) As String

Dim mvLinea As String

Dim mvConf() As String

Dim mvPath As String

Dim mvPassword As String

Dim mvArchivo As Integer

mvPath = ‘J:’

mvArchivo = FreeFile

Open mvPath & "\CONFIG.ini" For Input As #mvArchivo

Do Until EOF(1)

Line Input #mvArchivo, mvLinea

mvConf() = Split(mvLinea, " ")

If Variable = iniTimeOFF And mvConf(n) = "TOFF:" Then Exit Do

If Variable = iniUser And mvConf(n) = "USER:" Then Exit Do

Configuracion = ""

Loop

Close #mvArchivo

End Function

 

Luego de haber cargado los datos en variables y de haber colocado el componente TIMER,  consultamos si es la hora fijada para cerrar la aplicación.

Private Sub Timer_Timer()

    ‘ Si se alcanzó el límite de tiempo de operación, cierro el sistema

 

If Time > CDate(mvTimeOff) Then SendKeys "%{F4}", True

End Sub

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos necesarios están marcados *

*

Puedes usar las siguientes etiquetas y atributos HTML: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

© VB-MUNDO – Visual Basic y mucho más
CyberChimps