automat fürs klicken

Trainman · Beiträge: 21 XP

hallo,

habe eine frage. ich hab ein programm, das in trayicon minimiert. jetzt soll er von da aus auf das desktop klicken. könnt ihr mir sagen wie? und vllt auch soll das programm auch eingaben machen können. also was schreiben.

thx

loetmann · Beiträge: 29 Delphi 3

Hallo,

ich habe gerade eine Art VNC gebastelt:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

 SetCursorPos(klickX, klickY); //Mascursor an Position setzen

 // Linke Maustaste simulieren
 mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
 mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);


{
// Simulate the right mouse button down
// Rechte Maustaste simulieren
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);

// Simulate a double click
// Einen Doppelklick simulieren
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
GetDoubleClickTime;
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
   }

ein Gruß

Trainman · Beiträge: 21 XP

ok, probier ich mal aus. und weißt du wie das prog selber in edit2 von anderen programmen eingibt? das wäre dann optimal

loetmann · Beiträge: 29 Delphi 3

Hallo,

nein, aber entweder brauchst Du das Handle des Programmes und dann das der Eingabobox oder Du versuchst es mit Tastendrucksimmulation. Zu erst ein Mausklick auf die Box und dann schickst Du die Eingabe hin.

Bsp, sendet an eine Applikation mit Handel apphnd den Buchstaben 'A':

markieren

Delphi-Quelltext

1:	SendMessage(apphnd, WM_CHAR, Word('A'), 0);

Aber die Antwort findest Du bestimmt über die Suche.

Ein Gruß

Trainman · Beiträge: 21 XP

ok, danke dir sehr. suche mal danach.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme