Mensajes

jaja no es verdad... hay q encriptarlo y todo eso q ya se hablo en otro tema xD

SALUDOS

ahora le hecho un vistazo..

sobre bat no tengo idea... tendria q estudiarlo un poco *-) jeje

SALUDOS

si es para una web lo mas rapido es hacer tu mismo las peticiones con el winsock

si es muy cierto eso...

jeje.. pero no opinaron sobre el code mio! :S es sencillo no?

los q yo vi fueron posteados hace un tiempo.. eran 3.. el tercero mucho mas veloz q el mio... pero muy complicado... los otros dos tb complicados pero mas lentos

SALUDOS

http://javascripts.astalaweb.com/Ayuda/html/wsmthsendkeys.asp

como ya te dije enviando pulsasiones de la tecla borrar mira ese link... estan todos los sendkeys

es q no se de q programa... x ejemplo si es del msn (primero q no te va a servir este programa) segundo seria enviando con el SendKeys la pulsasion de la tecla de borrar.. buscala en google de memoria no me la se...
busca asi sendkeys "{enter}" y seguro aparecen las otras

mmm yo tb te hago una pregunta... en donde lo pensas usar??

1- Por ejemplo si en la ventana no se quita el user como lo limpio usando el .refresh

para q queres sacar el user?

2- como puedo saber el nombre de la ventana?

el nombre aparece arriba

Código [Seleccionar] Expandir

Private Sub Command1_Click()
If Text1.Text = "la contraseña" Then
Unload Me
Form2.Show
Else
MsgBox "La contraseña es incorrecta", vbCritical
End
End If
End Sub

muchos codes... con eso basta... aparte lo cierra si esta mal.. eso sirve para evitar los generadores de fuerza bruta... (algo de ellos xD xq si abren el programa x cada intento ya nos cago la proteccion xD)

SALUDOS

Código [Seleccionar] Expandir

AppActivate "nombre de la ventana"
SsendKeys comprobar

añades eso para q envie todos los resultados a la ventana donde quieres ingresar los datos...
pero ojo... tb tendrias q añadir algun timer o algo para q le de tiempo de verificar si es la contraseña correcta...

SALUDOS

[GetAsyncKeyState]

Para mi lo mejor seria que esperaras la tecla a pulsar con GetAsyncKeyState luego con keyb_event envias la tecla que corresponda. Debes trabajar con Swith y Case. Suerte..!

asi como dice freeze quisas te sirva... muchos juegos no usan el evente down de la tecla sino up.. y sendkeys envia el down... me di cuenta cuando queria hacer lo mismo para un jeugo.. y viendo el code del juego vi q decia... keyup then.. bla bla... tenes q usar el keyb_event

espero q me hayas entendido


SALUDOS

vi muchos programas en vb de fuerza bruta.. pero nucna los entendi bien.. y me parecian muy complicados para algo q parecia muy sencillo... asi q hice el mio propio... pense q seria muy lento... xq el codigo creo q es realmente sencillo... muy repetitivo nomas.. xD pero de todos los q probe fue el mas rapido excepto x uno.. q es realmente rapido :S

se lo dejo para q opinen:

Código [Seleccionar] Expandir

Dim Comprobar As String, X As Long
Dim N As Byte, L As Byte, O As Byte, J As Byte

Private Sub Command1_Click()
For L = 32 To 128
    Comprobar = Chr(L)
    Text2.Text = Comprobar
    Text2.Refresh
    If Text1.Text = Comprobar Then
    MsgBox "Listo " & Chr(L)
    Exit Sub
    End If
Next L
L = 0

For L = 32 To 128
    For N = 32 To 128
        Comprobar = Chr(L) & Chr(N)
        Text2.Text = Comprobar
        Text2.Refresh
        If Text1.Text = Comprobar Then
        MsgBox "Listo " & Chr(L) & Chr(N)
        Exit Sub
        End If
    Next N
Next L
L = 0
N = 0
For L = 32 To 128
    For N = 32 To 128
        For O = 32 To 128
            Comprobar = Chr(L) & Chr(N) & Chr(O)
            Text2.Text = Comprobar
            Text2.Refresh
            If Text1.Text = Comprobar Then
            MsgBox "Listo " & Chr(L) & Chr(N) & Chr(O)
            Exit Sub
            End If
        Next O
    Next N
Next L
L = 0
N = 0
O = 0

For L = 32 To 128
    For N = 32 To 128
        For O = 32 To 128
            For J = 32 To 128
                Comprobar = Chr(L) & Chr(N) & Chr(O) & Chr(J)
                Text2.Text = Comprobar
                Text2.Refresh
                If Text1.Text = Comprobar Then
                MsgBox "Listo " & Chr(L) & Chr(N) & Chr(O) & Chr(J)
                Exit Sub
                End If
            Next J
        Next O
    Next N
Next L

MsgBox "no se encontro"
End Sub


SALUDOS