EASTER EGG

TUNUSAT 10/11/2011 14:12:47
#388895

Por favor Pessoal,

Gostaria de criar um [Ô]easter egg[Ô] para meu codigo VB.NET (ou VB6).
Montei o codigo abaixo, mas nao sei se e o melhor. Precisa criar um form e um listview dentro.

----------------------------------------
Public Class Form1
Private arrstrAcesso(7) As String

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
KeyPreview = True
End Sub

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Dim blnPreenche As Boolean = True
Dim blnDispara As Boolean = True
Dim arrstrChave() As String = New String(7) {[Ô]B[Ô], [Ô]S[Ô], [Ô]I[Ô], [Ô]T[Ô], [Ô]E[Ô], [Ô]C[Ô], [Ô]N[Ô], [Ô]O[Ô]}

ListBox1.Items.Add([Ô]KeyData = [Ô] & e.KeyData & [Ô] - [Ô] & [Ô]KeyCode = [Ô] & e.KeyCode & [Ô] - [Ô] & [Ô]KeyValue = [Ô] & e.KeyValue)
ListBox1.SelectedIndex = ListBox1.Items.Count - 1

[ô]Não aceita Shift, Ctrl, Alt
If e.KeyData < 0 Or e.KeyData > 255 Then Exit Sub

For bytI As Byte = 0 To 7

If IsNothing(arrstrAcesso(bytI)) Then
arrstrAcesso(bytI) = Strings.Chr(e.KeyData)
blnPreenche = False
Exit For
End If

Next

If blnPreenche Then

For bytI As Byte = 0 To 7

arrstrAcesso(bytI) = arrstrAcesso(bytI + 1)

If bytI = 6 Then
arrstrAcesso(bytI + 1) = Strings.Chr(e.KeyData)
Exit For
End If

Next

For bytI As Byte = 0 To 7

If Not arrstrAcesso(bytI) = arrstrChave(bytI) Then
blnDispara = False
Exit For
End If

Next

If blnDispara Then
MessageBox.Show([Ô]Dispara![Ô])
End If

End If

End Sub

End Class
---------------------------------

E possivel melhor isto (performance principalmente)? Pode usar API.


Obrigado,
Tunusat.