by Klemensfr (1 Submission)
Category: Windows API Call/Explanation
Compatability: Visual Basic 5.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: 
(4 Votes)
Wood - MouseMacro
This is a program for making macros in windows.
This program capture the mouse moves and clicks and play it.
You can use this code and any part of it. I would like to only ask you to add my name.
Copyright © 02/2003 SHARKSOFT, Austria
By Klemens FRIEDL
All rights reserved
Email: [email protected]
Web: www.sharksoft.net.tc
DON'T FORGET TO VOTE !!
Assumes
Wood - MouseMacro
This is a program for making macros in windows.
This program capture the mouse moves and clicks and play it.
API DeclarationsPrivate Declare Function GetTickCount Lib "kernel32" () As Long
#If Win32 Then 'Win32 declarations
Private Declare Function GetAsyncKeyState% Lib "user32" (ByVal vKey As Long) 'Gets state of one key
Private Declare Function GetCursorPos& Lib "user32" (lpPoint As POINTAPI) 'Gets current cursor position
Private Declare Function SetCursorPos& Lib "user32" (ByVal X As Long, ByVal Y As Long) 'Sets cursor position
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, _
ByVal cButtons As Long, ByVal dwExtraInfo As Long) 'Sends a mouse event
#Else ' Win16 declarations
Private Declare Function GetAsyncKeyState% Lib "user" (ByVal vKey As Integer)
Private Declare Sub GetCursorPos Lib "user" (lpPoint As POINTAPI)
Private Declare Sub SetCursorPos Lib "user" (ByVal X As Integer, ByVal Y As Integer)
'Function mouse_event is not available in the WIN16 API.
#End If 'WIN32
Download Mouse Macro (20 KB)
VBcoders