تابع SendInput

sendinput

mouse_event

input

'SendInput
Type INPUT_TYPE
Public dwType As Integer
Public xi As MOUSEINPUT
End Type

MOUSEEVENTF_LEFTDOWN = &H2
MOUSEEVENTF_LEFTUP = &H4
MOUSEEVENTF_MOVE=&H1
MOUSEEVENTF_RIGHTDOWN=&H8
MOUSEEVENTF_RIGHTUP=&H10

Dim inputEvents(0) As INPUT_TYPE

inputEvents(0).xi.dx = 0

inputEvents(0).xi.dy = 0

inputEvents(0).xi.mouseData = 0

inputEvents(0).xi.dwFlags = M_MOVE + M_LD + M_LU

inputEvents(0).xi.dwtime = 0

inputEvents(0).xi.dwExtraInfo = 0

inputEvents(0).dwType = INPUT_MOUSE

SendInput(1, inputEvents(0), Len(inputEvents(0)))

.