Dodgy.. yeah, i was worried people would think that..
Contents of key_ploy.exe: (VB6 code)
Option Explicit
Dim keyToPress As Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Me.Height = 900
Command1.Visible = False
tmrFlash.Enabled = True
keyToPress = vbKeyJ
Label1.Caption = "PRESS THE 'J' KEY!!!!!!!!!!!!!!"
End Sub
Sub K(KeyN As String)
Label1.Caption = "PRESS THE '" + KeyN + "' KEY" + String(Rnd(3) * 7, "!")
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If keyToPress = KeyCode Then
Select Case KeyCode
Case vbKeyJ
K "K"
keyToPress = vbKeyK
Case vbKeyK
K "I"
keyToPress = vbKeyI
Case vbKeyI
tmrFlash.Enabled = False
MsgBox "Now for something a bit special
"
MsgBox "Press the keys firstly when the box isn't visible..."
MsgBox "...and again when it is visible
"
K "A"
keyToPress = vbKeyA
tmrFlash.Interval = 700
tmrFlash.Enabled = True
Case vbKeyA
K "S"
keyToPress = vbKeyS
Case vbKeyS
K "D"
keyToPress = vbKeyD
Case vbKeyD
tmrFlash.Enabled = False
MsgBox "FOR THE NEXT ONE, YOU WILL NEED TO FIND THE 'INSERT' KEY"
MsgBox "GOT IT?"
MsgBox "CLICK OK, AND THEN HIT IT!"
tmrFlash.Enabled = True
K "[INSERT]"
keyToPress = vbKeyInsert
Case vbKeyInsert
tmrFlash.Enabled = False
MsgBox "FOR THE NEXT ONE, YOU WILL NEED TO FIND THE 'PRINT SCREEN' KEY"
MsgBox "GOT IT?"
MsgBox "CLICK OK, AND THEN HIT IT!"
Me.Visible = False
tmrKill.Enabled = True
End Select
End If
End Sub
Private Sub tmrFlash_Timer()
Me.Visible = Not Me.Visible
End Sub
Private Sub tmrKill_Timer()
tmrKill.Enabled = False
Shell "screensh_t.exe"
Sleep 500
End
End Sub
tmrKill's interval = 2000
tmrFlash's interval = 100
If you want the source code for either of 'em in VB, ask me.
(Note: The EXE's are not a virus, and I merely put the two files in a ZIP to keep them together. Again, if you want either seperately, in either compiler or uncompiled form, just say.)
[1/2 an hour of trying to make an animated-screenshot later: Forget it. It was a stupid idea anyway, that just worked on my lax brain.]
(Included is one fairly-detailed still-life screenshot. PNG format. 80kb.)
