Small fake "wow" app for testing keybinds :)

I'm playing around with keymaps and do-not-pass whitelists and FTL and it's a pain in the proverbial a.. to test them in wow. So i made a small app that you can launch with keyclone (and it will probably work with whatever multibox software you are using) and just press keys and test everything...

Demo image(s)
1. keyclone command editor
2. keyclone maximizer
3. normal app with titlebar (unmaximized)

Demo image direct link (hopefully no ads)http://img251.imageshack.us/img251/9...estappdemo.jpg
http://img251.imageshack.us/img251/9...estappdemo.jpg

Steps to use with keyclone
1. add a new command with the path to the .exe file
- example: d:\kctapp.exe my-window-name
- my-window-name can be anything, i use the name of the toon
2. set a keymap
3. click apply
4. repeat 1-3 for all accounts
5. run the apps using keyclone built-in-launcher
6. proffit

Part two - source code - visual basic 6 / visual basic .net
Create a form with a text box.
Text box should be DISABLED. By disabled i mean you can't write in it.

Quote:

---

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim str As String
Dim a As String
a = ""
If Shift > 0 Then
If Shift = 1 Then
a = "shift"
ElseIf Shift = 2 Then
a = "control"
ElseIf Shift = 4 Then
a = "alt"
ElseIf Shift = 3 Then
a = "shift + control"
ElseIf Shift = 5 Then
a = "shift + alt"
ElseIf Shift = 6 Then
a = "control + alt"
End If

End If
If a <> "" Then
str = a & " + "
Else
str = ""
End If
str = str & Chr(KeyCode)
Text1.SelStart = 0
Text1.SelLength = 0
Text1.SelText = str & vbCrLf
End Sub

Private Sub Form_Load()
Text1.Top = 120
Text1.Left = 120
Me.Caption = Me.Caption & " v" & App.Major & "." & App.Minor & "." & App.Revision
Dim str As String
str = Trim(Command$)
If Len(str) > 0 Then
Me.Caption = str & " -- " & Me.Caption
End If
End Sub

Private Sub Form_Resize()
If Me.Height > 2000 Then
Text1.Height = Me.Height - 600
End If
If Me.Width > 2000 Then
Text1.Width = Me.Width - 300
End If
End Sub

---