Ejecución de programas
Publicado: 28 Mar 2012, 16:56
Hola que tal amigos de indetectables, Después de un tiempo sin entrar ahora vengo con ideas frescas y con ganas de aprender mas de ustedes jiji.
Tengo ganas de crear una aplicación que solo se pueda abrir en un solo ordenador, por ejemplo:
trabajo en una empresa donde me piden crear una aplicación de registro de datos con base d datos el cual ya lo tengo solo que como se como son aquí si les doi la aplicación son capaces de abrirla en mas de un ordenador lo cual yo no quiero por que no son parte d mis actividades por eso quiero que solo lo pruebe el gerente de la compañía no se si me entiendan bueno intente con este código lo cual es demasiado fácil y en cual quier ordenador teniendo la pass abriría
Tambien intente con este pero igual es simple
Quisiera saber si hay algo un poquito mas seguro no se como por ejemplo se me ocurre una aplicación previa al ejecutar el programa, no se algo como que saque algún dato o algo que yo agregue al programa bueno para que solo se ejecute en ese ordenador.
Bueno espero que me pudieran ayudar saludos y gracias
Tengo ganas de crear una aplicación que solo se pueda abrir en un solo ordenador, por ejemplo:
trabajo en una empresa donde me piden crear una aplicación de registro de datos con base d datos el cual ya lo tengo solo que como se como son aquí si les doi la aplicación son capaces de abrirla en mas de un ordenador lo cual yo no quiero por que no son parte d mis actividades por eso quiero que solo lo pruebe el gerente de la compañía no se si me entiendan bueno intente con este código lo cual es demasiado fácil y en cual quier ordenador teniendo la pass abriría
Código: Seleccionar todo
Private Sub command1_click()
If Text1.Text = "PASSWORD AQUI" Then
MsgBox "Bienvenido, gracias por elegir mis programas", vbInformation, "Programas By c4rt3l"
Form2.Show
Form1.Hide
Else
MsgBox "Acceso denegado, ponte en contacto con la persona que te proporciono el programa", vbInformation, "Programas by c4rt3l"
End
End If
End Sub
Código: Seleccionar todo
Option Explicit
Public x As String
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
LoginSucceeded = False
End
End Sub
Private Sub cmdOK_Click()
If txtPassword = "password" And txtUserName = "usuario" Then
Form1.Show
LoginSucceeded = True
Me.Hide
Open "C:\probando.txt" For Append As #1
Close #1
Else
MsgBox "La contraseña no es válida. Vuelva a intentarlo", , "Inicio de sesión"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
Private Sub Form_Load()
On Error GoTo Fallo
x = GetAttr("C:\probando.txt")
Form1.Show
Me.Hide
Exit Sub
Fallo:
End Sub
Bueno espero que me pudieran ayudar saludos y gracias