Seite 1 von 1

Tastenklicks simulieren

Verfasst: Mi, 09.01.2019 12:20
von delta9
Hallo,
ich möchte gerne von einem Calc-Makro aus Tastaturklicks in anderen geöffneten Anwendungen simulieren.
Mit Mausklicks habe ich es geschafft (s.u.) aber geht das auch mit dem Keyboard?
Stefan
PS: Ich gebe zu, das ist Murks, aber ich könnte es gut gebrauchen ;-)

Code: Alles auswählen

  ' simuliere einen linken Mausklick 
  Private Declare Sub mouse_event Lib "user32" _
  Alias "mouse_event" ( _
  ByVal dwFlags As Long, _
  ByVal dx As Long, _
  ByVal dy As Long, _
  ByVal cButtons As Long, _
  ByVal dwExtraInfo As Long)
  Public Sub SendMausklick()
  
  Const MOUSEEVENTF_LEFTDOWN = &H2 
  Const MOUSEEVENTF_LEFTUP = &H4 
  Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
  Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
end sub