EVER wiShed you CouLD wrITe LIkE ThiS?! juST to RaNDomly pisS PeopLe OfF? weLl… now You CAn! I was chatting with my friend (Cristina) about people who talk like that and decided to throw together a little application to automatically toggle the caps lock button for you so you can annoy people more efficiently.

If anyone is interested the code is as follows

Private Declare Sub keybd_event Lib “user32″ (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)

Private Sub tmrCapsRape_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrCapsRape.Tick

Static Dim temp As Integer = 0

If temp Mod 2 = 0 Then
Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 1, 0)
Else
Call keybd_event(System.Windows.Forms.Keys.CapsLock, &H14, 3, 0)
End If

temp += 1
End Sub

Simple and genius.

Download below and comment with ideas, suggestions, questions, and requests!

Download

Feel Free to Donate and keep in mind that the requests of donors will always be honored!

Bookmark