Mensajes

Barbaro ... buen trabajo ... y a usar se a dicho... 

Saludos.

Hola, es re facil, simplemente cuando agregas un usuario nuevo (no se si tu sistema tiene altas de usuario) me inmagino que si porque sino es inutil validar...pues cuando das de alta el usuario ademas de guardar la contraseña y el usuario tenes que tener un campo que guarde el tipo de usuario y despues comapras y listo...

saludos

Si le adicione esas opciones.. de altas y bajas .. y tuve que adicionar el tipo tambien con un combo  y si eso es lo que hago comparar ...

edit: si lees al inicio de mi post puse eso que tengo una tabla con esos 3 campos.. 

listo ya lo estuve revisando ... y si es algo como lo que quiero ... pero la verdad esta algo chapuzero  .. muchas palabras similares como declaraciones confunden... bueno luego lo reviso mas detalladamente... gracias..

Saludos.

bueno le di una solucion rapida pero no me gusta.

del codigo anterior: modifique ..

Código (vb) [Seleccionar] Expandir

Rst.Open "SELECT * FROM Usuarios", cn, adOpenStatic, adLockPessimistic, adAsyncFetch

Código (vb) [Seleccionar] Expandir

For i = 1 To Rst.RecordCount
  If StrComp(Rst(0).Value, Combo1) = 0 Then
               If StrComp(Rst(1).Value, TxtUsuario) = 0 Then
                   If StrComp(Rst(2).Value, TxtClave) = 0 Then
                       ClaveCorrecta = True
                       Tipousuario = Combo1
                       Usuario = TxtUsuario
                       Exit For
                    End If
                End If
  End if
Rst.MoveNext

Next i



le adicione un combo con la opcion de escoger Administrador o Usuario y asi este tambien lo toma para validar y los muestro en el form principal:

Código (vb) [Seleccionar] Expandir

Principal.Tipo.Caption = TipoUsuario
Principal.Usuario.Caption = Usuario

y como veran es jodido estar selecionando Administrador o Usuario en el combo para hacer login ...

lo que tengo es lo siguiente una tabla con 3 campos:

Tipo , Usuario , Clave

donde Tipo es el indicador si es un Administrador o Usuario simple. esto para darle algunos privilegios ... lo que hize es algo simple:

Código (vb) [Seleccionar] Expandir

Dim cn As New ADODB.Connection
Dim Rst As New Recordset
Dim i As Integer
Dim ClaveCorrecta As Boolean

Private Sub Form_Load()
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "data.mdb"
cn.Open
End Sub

Private Sub Button1_Click()

If TxtUsuario.Text <> Empty And TxtClave.Text <> Empty Then
Rst.Open "SELECT Usuario,Clave FROM Usuarios", cn, adOpenStatic, adLockPessimistic, adAsyncFetch
      If Rst.RecordCount Then
            For i = 1 To Rst.RecordCount
           
               If StrComp(Rst(0).Value, TxtUsuario) = 0 Then
                   If StrComp(Rst(1).Value, TxtClave) = 0 Then
                       ClaveCorrecta = True
                       Exit For
                    End If
                End If
           
            Rst.MoveNext
           
            Next i
        End If
     
        If ClaveCorrecta Then
            Unload Me
            Principal.Show
        Else
            MsgBox "Ha escrito incorrectamente el nombre de usuario o la clave",            vbExclamation, "Atención"
            Rst.Close
            Set Rst = Nothing
        End If
    Else
        MsgBox "Debe escribir en nombre de usuario y la clave", vbExclamation, "Atención"
    End If

End Sub

como es multiusuario... solo habia hecho esto pero sin tener en cuenta lo de tipo, y toy dandole vueltas para poder manejar todo eso... y poder mostrarlo en una etiketa algo asi :

Código (vb) [Seleccionar] Expandir

Principal.Tipo.Caption 

Alguna sugerencia de como lograrlo.

Saludos.

Hola, si en efectivo un hook seria mejor, se que Cobein había hecho un modulo para ir vijilando los sucesos de ejecución pero no se si tengo dicho modulo.
por otro lado la forma en la que testeas la lista con un listbox es un mas lento, osea te conviene usar un array o una colección,  y no llamar  a cerrar todos estos procesos, ya que por lo que veo no verificas si esta en ejecución, lo que seria conveniente es que listes los procesos en ejecución y después compares cada uno, si coincides cierras el proceso.

Si ya lo habia visto eso de usar un array, es mas en las primeras veces lo usaba pero me limitaba a solo las lineas que declaraba .. bueno de la forma simple que lo hacia... y opte por cargar todo en un control y recorrer este .. pero consume mucha cpu y como dices no verifica si esta abierto el proceso .. directamente lo cierra.. eso de listar los procesos no se me ocurrio, pero lo ideal seria vigilar la lista de procesos y si este cambia recien inicie todo el procedimento.

empezare a buscar info sobre el tema de procesos en ejecucion, saludos.

bueno como dice la pregunta como mantener un procedimiento en ejecucion.. aunque suena simple... pero la idea es tener un procedimiento se ejecute o este pendiente siempre .. pero que no consuma recursos de microprocesador ni memoria .. lo que tengo es :

todo el procedimento en un timer y lo ejecuto cada segundo, pero este me consumia de 3 a 5 % de procesador en la pc testeada.. lo optimize un poco y ahora consume de 2 a 3 % del procesador, pero cada segundo esta asi...

que es lo que hace el procedimento? 

pues lee una lista de un archivo donde tengo una lista de nombres de aplicaciones indeseables que no quiero se ejecuten en la pc y con un findwindow lo encuentro en memoria y lo finalizo, y asi puedo seguir agregando nombres en la lista de programas con sus nuevas versiones...

y todo ese procedimiento se repite cada segundo... y aqui el detalle aveces se consume mucha cpu y eso no esta bien..

como puedo cambiar o evitar el uso de un timer o temporizador ... o si es posible de hacer algun tipo de procedimento (como un hook) no se casi nada de eso, pero bueno almenos optimizar el bucle.

aki esta mi codigo optimizado, cargo la lista a un listbox y de con esa lista hago la buskeda en memoria..

Código (vb) [Seleccionar] Expandir

Private Sub listar()
On Error GoTo error
Dim linea As String
Dim linea2 As String
Open "data.db" For Input As #2
Do Until (EOF(2))
    Line Input #2, linea
    linea2 = Encrypt(linea)
    List1.AddItem linea2
Loop
Close (2)
Exit Sub
error:
Close (2)

End Sub

y el procedimento de buskeda con un timer a 1000 ms:

Código (vb) [Seleccionar] Expandir

Private Sub Timer1_timer()
On Error Resume Next
Dim i As Integer
Dim proceso As String
total = List1.ListCount - 1
For i = 0 To total
proceso = List1.List(i)
CerrarProceso (proceso)
Next i
End Sub

y se que la pregunta no esta bien formulada, no se me ocurrio ponerle otro titulo.
y si me diras busca en google.. pues ya busque y no encontre nada con lo que busco.

EDIT: sobre lo que optimize es que la lista ya lo tengo dentro del programa en un listbox y asi me evito estar cargandolo cada vez y asi reduci el uso del cpu.

Me olvide mencionar si se puede hacer como los antivirus .. estan pendientes de lo que se ejecuta, y cuando sucede eso recien inicia la buskeda .. algo asi como revisando si hay cambios en la memoria.

Saludos.

no es truco ni nada es la version del motor Microsoft.Jet.OLEDB.4.0 que es para acces xp ... no se si sera el mismo para 2003, pero para el 97 creo que es 3.7 o algo asi ... seguro tienes ejemplos antiguos .. pues cambiale la version y ya no tienes que estar cambiando el mdb 

saludos.

no es tan dificil hacer uno. copiar y reemplazar archivo existente ... y para que se active al parecer tiene un timer o un sub que espera que termine la verificacion de los archivos del juego... habia hecho algo similar antes para otro juego .. pero lo mio desempakaba el archivo y reemplazaba al existente.

Bueno este tema de los skins es reviejo ... 

aki les traigo como un remember sobre el tema ... con un pack de algunos skin que recopile de la web.. con una aplicacion simple para visualizarlos ... y de hecho la ocx (actskin4.ocx)

Skins.rar - Descargalo en UpSourceCode.com.ar

Edit: el pack tiene casi 4 megas por todos los skins, mencione una aplicacion ... no hay aplicacion alguna solo el codigo de la captura, y la ocx.

Saludos.