• Home
 · 
• Jokes/Humor
 · 
• MAKE THE KEYBOARD LIGHTS DANCE

MAKE THE KEYBOARD LIGHTS DANCE

this is just a simple code demonstrating the use of the SendKeys function!!! other than that this code is for humor!!! to some this code is useless but this might be helpfull 2 someone, that's why i submitted it. Plus this is pretty funny!!!

Assumes
put a command button on the form named Command1

Side Effects
This temporarily freezes your computer- (until it finishes the For, Next loop)

Rate MAKE THE KEYBOARD LIGHTS DANCE

• 1
• 2
• 3
• 4
• 5

(8(8 Vote))

Private Sub Command1_Click()
Dim i As Integer 'declare the variable
For i = 1 To 150 'how many times (you can change the 150 to whatever you want)
 SendKeys "{CAPSLOCK}", True 'turn on the capslocks light, then turn it off
 SendKeys "{DOWN}", True 'just to give more time 
 SendKeys "{DOWN}", True '^^^^^
 SendKeys "{SCROLLLOCK}", True 'turn on the scroll lock light, turn it off
 SendKeys "{DOWN}", True 'give more time
 SendKeys "{DOWN}", True '^^^^^
Next i
End Sub