Foro de elhacker.net

Private Sub Command1_Click()
 If Not LCase(Text1.Text) = "administrador" Then
        MsgBox "Contraseña Incorrecta", vbCritical, " No se pudo abrir "
End
    Else
Form2.show
        End If


end Sub

A_Guardar = dato1 & vbCrLf & dato2 & vbCrLf & dato3
Open App.Path & "\Configuracion.ini" For Output As #1 ' Se abre el archivo
Print #1, A_Guardar ' se escribe...
Close #1 ' y se cierra

Open App.Path & "\Configuracion.ini" For Binary As #2
Extraido = Space(LOF(2))
Get #2, , Extraido
Close #2
Datos = Split(Extraido, vbCrLf)

If Check1.Value = 0 Then
MsgBox ("Desmarcado")
Else
MsgBox ("Marcado")
End If

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
    If GetAsyncKeyState(2) = -32767 Then 'comprueba si hacen click derecho
        SendKeys "{u}" 'si lo hacen manda la letra u
    End If
End Sub

Private Sub Check1_Click()
If Check1.Value = 0 Then
MsgBox "Desmarcado"
Else
MsgBox "Marcado"
End If
End Sub

MsgBox "a Sido desactivado!!", vbInformation, "Desmarcado"

MsgBox "a Sido desactivado!!", , "Desmarcado"

Text1.PasswordChar = "el signo que quieras"