Cursor Bounce 2000
Makes The Cursor Bounce Around Your Screen and Its 2000X Better Than Cursor Bounce By Brandon Brownlee. P.S. I Made This Prog About 2 Yrs Ago. When I Saw "Cursor Bounce" By Brandon Brownlee, I Thought I Should Add Mine.
Original Author: Homicidal4
Assumptions
Open New Project Go Into The Code Editing Area And Paste My Code In It. Then In Form Properties Set BorderStyle = 0
Returns
Fun
Side Effects
DO NOT EDIT OR DELETE THIS PART OF THE CODE, Unless You Like Unplugging Your Computer While Its On.
'If GetKeyState(27) < 0 Then 'If You Press Esc Prog Will Stop
'showwindow FindWindow("Shell_traywnd", ""), 1 'Show Start Menu
'SystemParametersInfo 97, False, B, 0
'End
'End If
Code
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function showwindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
Private Sub Form_Load()
'Press Esc To Exit
'Press Esc To Exit
'Press Esc To Exit
'Press Esc To Exit
'In Form Properties Set BorderStyle = 0
WindowState = 2 'Maximized
'/ Get Pic Of Screen
Clipboard.Clear
keybd_event 44, 1, 0, 0
DoEvents
Picture = Clipboard.GetData(2)
Clipboard.Clear
'/ Get Pic Of Screen
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3 'Top
Visible = True
showwindow FindWindow("Shell_traywnd", ""), 0 'Hide Start Menu
SystemParametersInfo 97, True, B, 0 'no Ctrl+Alt+Del
Randomize
A = 0
B = 0
E = GetTickCount
Do
If A <= 0 Then C = Int(3 * Rnd + 1)
If B <= 0 Then D = Int(3 * Rnd + 1)
If A >= Screen.Width / 15 - 1 Then C = Int(3 * Rnd - 3)
If B >= Screen.Height / 15 - 1 Then D = Int(3 * Rnd - 3)
SetCursorPos A, B 'Move Cur
A = A + C
B = B + D
If GetKeyState(27) < 0 Then 'If You Press Esc Prog Will Stop
showwindow FindWindow("Shell_traywnd", ""), 1 'Show Start Menu
SystemParametersInfo 97, False, B, 0
End
End If
'/Wait
Do While GetTickCount - E < 5
DoEvents
Loop
'/Wait
E = E + 5
Loop
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.