Tastenklicks simulieren

Antwort erstellen


Um automatische Eingaben zu unterbinden, musst du die nachfolgende Aufgabe lösen.

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Tastenklicks simulieren

Tastenklicks simulieren

von delta9 » Mi, 09.01.2019 12:20

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
 
 

Nach oben