Hej, har suttit och lekt lite med olika mus kommandon.. 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)mouse_event
och hittade ett där man kunde få sitt program att klicka med musen,
men jag förstår inte riktigt hur det fungerar..
Detta vet jag:
Modul:
Public 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)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
Public Const MOUSEEVENTF_MIDDLEUP = &H40
Public Const MOUSEEVENTF_RIGHTDOWN = &H8
Public Const MOUSEEVENTF_RIGHTUP = &H10
Public Const mouse_eventC = &H2
Form, eller var man nu vill ha det:
Det är nu jag blir osäker..
jag vet inte riktigt hur koden här fungerar, men för att
trycka ner den vänstra musknappen, och släppa upp den igen, kan
man skriva såhär:
mouse_event 2, 0, 0, MOUSEEVENTF_LEFTDOWN, 2
mouse_event 4, 0, 0, MOUSEEVENTF_LEFTUP, 2
är det någon som vet hur det här fungerar, ex. om man skulle vilja
högerklicka, eller vad de första siffrorna betyder och så vidare..
hittade ingenting i hjälpen!
Ha det härligt, ni som läser detta!
Mvh TurbonallenSv: mouse_event
dwFlags - flags specifying various motion/click variants
dx - horizontal mouse position or position change
dy - vertical mouse position or position change
cButtons - amount of wheel movement
dwExtraInfo - 32 bits of application-defined information
Några exempel:
'vänsterklick
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
DoEvents
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
'flytta musen 5 punkter till höger och ned
mouse_event MOUSEEVENTF_MOVE, 5, 5, 0&, 0&
'flytta musen till punkter (5, 5)
mouse_event MOUSEEVENTF_MOVE Or MOUSEEVENTF_ABSOLUTE, 5, 5, 0&, 0&