Mausklicks simulieren von VNC Programmen

[doctor-x]

Ich habe damals auch einfache (immer gleiche eingaben) machen müssen.
Habe dann einfach per Macro mit der Maus aus einer Texdatei die passagen kopiert.
Ist zwar keine schöne aber dafür einfache Lösung.
Alternativ sollte die nutzung von simulierten Tastatureingaben z.b. über

Code:

procedure SendKeys(const aString: String);
var
  Count: Integer;
  ScanCode: Smallint;
  WithAlt, WithCtrl, WithShift: Boolean;
begin
  for Count := 1 to Length(aString) do begin
    ScanCode := VkKeyScan(aString[Count]);
    //Ermitteln ob Shift gedrückt wurde
    WithShift := ScanCode and (1 shl 8) <> 0;
    //Ermitteln ob Strg gedrückt wurde
    WithCtrl  := ScanCode and (1 shl 9) <> 0;
    //Ermitteln ob Alt gedrückt wurde
    WithAlt   := ScanCode and (1 shl 10) <> 0;

    if WithShift then keybd_event(VK_SHIFT, 0, 0, 0);
    if WithCtrl then keybd_event(VK_CONTROL, 0, 0, 0);
    if WithAlt then keybd_event(VK_MENU, 0, 0, 0);

    keybd_event(ScanCode, 0, 0, 0);
    keybd_event(ScanCode, 0, KEYEVENTF_KEYUP, 0);

    if WithAlt then keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
    if WithCtrl then keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
    if WithShift then keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
  end;
end;

keine Probleme darstellen.
Damit könnte man dann halt dynamische eingaben realisieren.