Discussion :

[greg_amdk62]

Bonjour,
J'ai un petit probleme, j'ai cherché un peu partout le moyen de definir la position de la souris a un point X, Y de l'ecran, mais sans succes .
Dans les modules CPAN, il y a bien des classes qui permettre de definir la position du curseur mais c'est tout le temps limité a la console ou a un widget precis .
Dans mon cas je voudrai deplacer le curseur a n'importe quel endroit de l'ecran.
Je sais que cette fonctionalité existe en java ou en delphi par exemple et ca m'etonne de ne pas la retrouver en perl.
Si vous avez la moindre idée pour faire ce deplacement, je suis preneur.
Merci d'avance.

[Jedai]

En fait Tk contient tout ce qu'il faut pour faire ceci, mais ce module simplifie la tache : Tk::CursorControl.
(voir la méthode warpTo)

--
Jedaï

[greg_amdk62]

Merci Jedai pour la piste, mais Tk::CursorControl crée des windows temporaires le temps du deplacement de la souris (ca n'etait pas si grave mais ca aurait peut etre pu fausser mes tests).
Par contre j'ai reussi a trouver un module qui satisfait a toutes mes demandes:
http://search.cpan.org/~erngui/Win32...1.3/GuiTest.pm

[JakoJako]

Bonjour,

Pour ma part j'utilise le module Win32::API qui permet d'importer n'importe quel point d'entrée d'une dll dans un programme Perl.

Dans le cas qui nous interesse, SetCursorPos (trouvé dans user32.dll, une dll standard de Windows) fait l'affaire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
use strict;
 
use Win32::API;
 
my $g_fnAPISetCursorPos = new Win32::API("user32", "SetCursorPos","NN", "N");
if ($g_fnAPISetCursorPos == undef) { die 'Erreur import SetCursorPos' };
 
 
sub fnSetCursorPos
{
	my $iX = shift;
	my $iY = shift;
 
	$g_fnAPISetCursorPos->Call($iX,$iY);
}
 
 
&fnSetCursorPos(20,50);

Voilà :-)