Test Foro de elhacker.net SMF 2.1

Hola :D
Al pedo se me ocurrio ver como seria la forma mas sencilla de hacer que un form reaccionase al konami code
(Mas info del Konami Code aca: http://es.wikipedia.org/wiki/C%C3%B3digo_Konami)


La onda seria que cuando la persona aprieta el codigo (↑ ↑ ↓ ↓ ← → ← → B A) abra un msgbox o cualquiercosa.

Lo lindo es que tiene que ser en ese orden, que sea detectado por las pulsaciones del teclado (Pueden usar hooks, GetAsyncState o Form_Press) y que si te tardas la vida en poner el comando que sigue no funcione.

Si no entendieron... se joden (naaa mentira, pregunten)

Saludos y suerte a todos.

Jaja que buena idea ahora me pongo a ver esto... ¿El Tuyo donde esta? jaja nadie le dio bola a este Reto :(


Dim konami As Byte

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If ((konami = 0 Or konami = 1) And KeyCode = 38) Or _
    ((konami = 2 Or konami = 3) And KeyCode = 40) Or _
    ((konami = 4 Or konami = 6) And KeyCode = 37) Or _
    ((konami = 5 Or konami = 7) And KeyCode = 39) Or _
    (konami = 8 And KeyCode = 66) Or (konami = 9 And KeyCode = 65) Then
        konami = konami + 1
        If konami = 10 Then MsgBox "Has activado el konami code!": konami = 0
    Else
        konami = 0
    End If
End Sub


Cita de: ignorantev1.1 en 19 Diciembre 2010, 00:02 AM

Código (vb) [Seleccionar] Expandir


Dim konami As Byte

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If ((konami = 0 Or konami = 1) And KeyCode = 38) Or _
    ((konami = 2 Or konami = 3) And KeyCode = 40) Or _
    ((konami = 4 Or konami = 6) And KeyCode = 37) Or _
    ((konami = 5 Or konami = 7) And KeyCode = 39) Or _
    (konami = 8 And KeyCode = 66) Or (konami = 9 And KeyCode = 65) Then
        konami = konami + 1
        If konami = 10 Then MsgBox "Has activado el konami code!": konami = 0
    Else
        konami = 0
    End If
End Sub


esta bien le faltaría que se anule si tardas mucho en apretar las teclas

yo lo intente, pero tube el problema de que no lograba encontrar en el formpress cuales eran las teclas.

AHAHA TEMANME!!!

Lo logre :D
Dim Cur As Byte
'arriba 38
'abajo 40
'izq 37
'derech 39
'B 66
'A 65

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    tmrPulso.Enabled = False
    Select Case Cur
    Case 0
        If KeyCode = 38 Then Cur = Cur + 1 Else Cur = 0
    Case 1
        If KeyCode = 38 Then Cur = Cur + 1 Else Cur = 0
    Case 2
        If KeyCode = 40 Then Cur = Cur + 1 Else Cur = 0
    Case 3
        If KeyCode = 40 Then Cur = Cur + 1 Else Cur = 0
    Case 4
        If KeyCode = 37 Then Cur = Cur + 1 Else Cur = 0
    Case 5
        If KeyCode = 39 Then Cur = Cur + 1 Else Cur = 0
    Case 6
        If KeyCode = 37 Then Cur = Cur + 1 Else Cur = 0
    Case 7
        If KeyCode = 39 Then Cur = Cur + 1 Else Cur = 0
    Case 8
        If KeyCode = 66 Then Cur = Cur + 1 Else Cur = 0
    Case 9
        If KeyCode = 65 Then
            MsgBox "KABIO EL KONAMI KODE"
            Cur = 0
        End If
    End Select
    tmrPulso.Enabled = True
End Sub


Private Sub tmrPulso_Timer()
Cur = 0
End Sub

Ponganle al timer el interval que quieran, yo probe con 2000 ms (2 segundos) y quedo pulenta ^.^

mmm

para que no se maten con los valores de las teclas escriban



KeyCodeConstants.



De esta manera les dara el IDE una lista de las constantes de las teclas.

Temibles Lunas!¡.