Hallo Perlies,

ich möchte auf bestimmte Mausereignisse (Rechtsklick, Linksklick, Mausbutton Down, Mausbotton Up, Position der Maus auf meinem Desktop etc.) reagieren können.

Wie kann ich mit Perl feststellen was meine Maus gerade macht? Gibt es hierfür ein Modul? TK kommt nicht in Frage da sich die Maus-Ereignisse immer nur auf das TK-Fenster-Objekt beziehen (oder liege ich da falsch).

Gruss
rommmi

Welches Betriebssystem denn?

Sorry hab ich vergessen mit anzugeben , W2K!

Gruss
rommmi

Dann solltest du mit Win32::API die Windows-internen Funktionen aufrufen können.

Es gibt auch noch Win32::Console\n\n

<!--EDIT|GwenDragon|1171633631-->

Hallo GwenDragon,

also wenn ich auf deinen Link für die Api klicke steht da nicht viel drin wie ich Mausereignisse auslesen kann. Brauch ich da noch weitere Module oder wie heissen da die Befehle die ich benutzen muss (Mouseup, Mousedown etc.).

Und mit der Console komme ich auch nicht weiter dass bezieht sich doch auf die Dosbox. Da kann man z.b. die Schrift farbig machen oder mit dem Cursor springen, aber alles nur innerhalb dem Consolen-Fenster (Dosbox bei Windows).


Weisst du eine konkretere Lösung für mich?

Gruss
rommmi

Du musst, soweit ich weiß, mit Perl die Win32-API-Funkltionen aufrufen.

Schau mal bei MSDN weiter:
Beispiel: http://msdn2.microsoft.com/en-us/library/ms645533.aspx

[quote=rommmi,16.02.2007, 11:42]Hallo Perlies,

ich möchte auf bestimmte Mausereignisse (Rechtsklick, Linksklick, Mausbutton Down, Mausbotton Up, Position der Maus auf meinem Desktop etc.) reagieren können.

Wie kann ich mit Perl feststellen was meine Maus gerade macht? Gibt es hierfür ein Modul? TK kommt nicht in Frage da sich die Maus-Ereignisse immer nur auf das TK-Fenster-Objekt beziehen (oder liege ich da falsch).

Gruss
rommmi[/quote]
Hallo rommmi,

schau dir mal Win32::GuiTest an. Dort gibts viele nette Funktionen zum fensterübergreifenden Mäuseschubsen
z.B.
($x,$y) = GetCursorPos()
MouseMoveAbsPix($x,$y)
MouseMoveWheel($change)
MouseClick($window [,$parent] [,$x_offset] [,$y_offset] [,$button] [,$delay])
und vieles mehr.

Gruß

  Kalle

Schau mal hier:

http://board.perl-community.de/cgi-bin....;t=3855

Ergebnis des Threads ist ein Script, dass fensterunabhängig wahlweise auf Maus- oder Tastenereignisse reagiert.