Mausklicks simulieren von VNC Programmen

[zeras]

Zitat von doctor-x:

Hi,
hatte mal ähnliches vor.

Bin damals auf GhostMouse gestoßen (gibts z.b. bei Chip), damit kann man Mausbewegungen und clicks aufzeichnen und als Macro speichern.

MfG

Das könnte ers mal ein Anfang sein. Werde mal testen.
Wenn alles fuktioniert, sollte das aber interaktiv sein, d.h. möglicherweise müssen über eine Touchtastatur noch Eingaben gemacht werden. Oder man müßte die Makros manipulieren können.

[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.

[FredlFesl]

Googel mal nach "Windows Makro Recorder"

[neo4a]

Zitat von FredlFesl:

Googel mal nach "Windows Makro Recorder"

Das oder auch nach "Sikuli".

[zeras]

Ich habe jetzt einige Beispiele bei den Schweizern gefunden. Den MouseEvent habe ich gleich ausprobiert. Es geeeeeeehhhhht! Super.
http://www.swissdelphicenter.ch/de/showcode.php?id=360

Danke trotzdem für eure Hilfe. Brauche nur noch Zeit, das umzusetzen.