Entwickler-Ecke

Sonstiges (Delphi) - Maus Taste 4 und 5 simulieren


JacK_Silent - So 11.11.07 15:19
Titel: Maus Taste 4 und 5 simulieren
Heyaaa =D

ich möcht gern mit Keybd_Event die Maustaste 4 oder 5 ans System senden allerdings gibts dafür kein VK_*

Deshalb hab ich einfach den zugehöregen hex Code genommen - vorher mit ner Art Key Logger ausgelesen.

Das:
Keybd_Event(5,MapVirtualKey(5, 0),0,0);
Keybd_Event(5,MapVirtualKey(5, 0),KEYEVENTF_KEYUP,0);

funktioniert leider nicht!

HexCode 5 is Mouse4
und HexCode 6 ist Mouse5


Danke für eure Hilfe

//edit:
Habs jetzt anders hinbekommen:

VK_BROWSER_BACK (A6)
Windows 2000/XP: Browser Back key

VK_BROWSER_FORWARD (A7)
Windows 2000/XP: Browser Forward key

Also:
Keybd_Event($A6,0,0,0);
Keybd_Event($A6,0,KEYEVENTF_KEYUP,0);

Wenn jemand doch noch ne Lösung findet Mouse4 oder Mouse5 zu drücken bitte posten! Danke!


Logikmensch - Mo 12.11.07 07:12
VK_BROWSER_FORWARD und VK_BROWSER_BACK sind ja die Entsprechungen von der "Zurück" und "Vorwärts" Funktion des Internet-Explorers, der bei manchen Tastaturen auch auf spezielle Sondertasten gelegt wird.

Interessant, dass man dies auch noch als (meiner Meinung nach überflüssige) 4. und 5. Maustaste "missbraucht". :-)


JacK_Silent - Mo 12.11.07 08:16
VK_BROWSER_FORWARD und VK_BROWSER_BACK funktioniert nicht nur beim Internet Explorers sondern auch beim Windows Explorer!

//Edit: Hab grad eine Nachricht von nem User in nem anderen Board bekommen:
mouse_event mit MOUSEEVENTF_XUP bzw. MOUSEEVENTF_XDOWN und XBUTTON1 oder XBUTTON2 sollte es doch tun.

Hab dann mal ein bissel recherchiert und das gefunden: http://msdn2.microsoft.com/en-us/library/ms646260.aspx

XBUTTON1 oder XBUTTON2 kennt Delphi jedoch nicht! Wie kann man das denn einbinden?

//Edit2: Hab jetzt die Lösung! Ich poste es nachher...


JacK_Silent - Mo 12.11.07 12:16
Also hier jetzt die Lösung:

das ganze funktioniert mit mouse_event!

Da meine windows.pas die Werte für

MOUSEEVENTF_XDOWN = $0080
MOUSEEVENTF_XUP = $0100

XBUTTON1 = $0001
XBUTTON2 = $0002

nicht kennt, setze ich zum verwenden die Hex Codes!


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
 
mouse_event($0080, 0, 0, $0001, 0);       // MOUSEEVENTF_XDOWN mit XBUTTON1 
mouse_event($0100, 0, 0, $0001, 0);       // MOUSEEVENTF_XUP mit XBUTTON1 
//Maus Taste 4

mouse_event($0080, 0, 0, $0002, 0);       // MOUSEEVENTF_XDOWN mit XBUTTON2
mouse_event($0100, 0, 0, $0002, 0);       // MOUSEEVENTF_XUP mit XBUTTON2
//Maus Taste 5


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!