Mouse Clik in VBA

Ask Question Forum:

Model Library:2025-02-08 Updated:A.I. model is online for auto reply question page

Show

ASK RECENT

Mouse Clik in VBA

Asked by duncanb7

at 2024-10-15 02:43:52

Point:0 Replies:8 POST_ID:828380USER_ID:11059

Topic:

Visual Basic Programming;;Microsoft Excel Spreadsheet Software

I would like to ask one question how to place mouse-click operation in vba
since I am doing VBA program to download some files in one target website with
automatical mouse simulation. But if when I donwload 500 files, it will take long long
time and occupy my computer usage by my VBA program. In other words, I would like
to use mouse at the same time with VBA mouse-click simuatlion program running for
files downloading.
Is there any function in VBA to replace the leftdown/rightdown click so that
free mouse to use other operation like open new wbe webpage site ?

Please advise

Duncan

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)Const MOUSEEVENTF_RIGHTDOWN = &H8Const MOUSEEVENTF_RIGHTUP = &H10Const MOUSEEVENTF_leftDOWN = &H2Const MOUSEEVENTF_leftUP = &H4Declare Function LockWindowUpdate Lib "USER32" (ByVal hWnd As Long) As LongPrivate Declare Function GetDesktopWindow Lib "USER32" () As LongPrivate Type POINTAPI    x As Long    y As LongEnd TypePrivate Declare Function GetCursorPos Lib "USER32" _(lpPoint As POINTAPI) As Long'**Win32 API User Defined TypesPrivate Type RECTLeft As LongTop As LongRight As LongBottom As LongEnd TypeSub mouseclick()SetCursorPos aaleft + 400, aatop + 520  'Trans Record download barCall leftDownEnd SubPublic Sub leftDown()mouse_event MOUSEEVENTF_leftDOWN, 0, 0, 0, 0mouse_event MOUSEEVENTF_leftUP, 0, 0, 0, 0End Sub

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:17:18:19:20:21:22:23:24:25:26:27:28:29:30:31:32:33:

Select All Code

Accepted Solution

Author: duncanb7 replied at 2024-10-18 04:21:51