Discussion :

[KiFFrk]

Bonjour,

Je cherche à récupérer les coordonnées de la souris lors de l’exécution d'un script et pour cela je me suis inspiré d'un script qu'avait transmis bbil mais cela ne fonctionne pas pas de message rien.
Pourriez me corriger et m'expliquer ce qu il ne fonctionne pas s'il vous plaît ?

voici le:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
set DX = CreateObject ("DynamicWrapperX")                  
DX.Register "user32.dll", "GetCursorPos", "i=uu", "i=uu"   
 
class point
dim x,y
end class
 
set p1=new point
p1=GetCursorPos ()
 
wscript.echo p1.x
wscript.echo p1.y
Wscript.Sleep 10000

En vous remerciant d'avance ...
KiFFrK

[tsuji]

Je ne trouve pas ce genre d'application productive : je ne dirais pas vaine mais on trouve vite on devrait plutôt éviter de le faire à contre coeur ou pas. Il est intéressant d'y exercer un peu et je ne veux pas vous décourager.

Il est plus facile de le faire en jscript qu'en vbscript, sans doute à cause de la différence de la façon de travailler avec les variables dans la strate plus base en js qu'en vbs. Je n'ai que l'activex plus vieux DynamicWrapper, et n'ai pas travaillé sur DynamicWrapperX jamais. Voici comment arriver là en js.

Code jscript :

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

1
2
3
4
5
6
var coord="xxyy";    //4 bytes (au moins 3) arbitraire pour recevoir le résultat plus tard
var dynawrap=new ActiveXObject("DynamicWrapper");
dynawrap.Register("user32.dll", "GetCursorPos", "i=w",  "f=s", "r=l");
WScript.sleep(1000);
dynawrap.GetCursorPos(coord);
WScript.echo("x : " + coord.charCodeAt(0) + "\ny : " + coord.charCodeAt(2));

Pour le faire en vbs, c'est compliqué et c'est à la limite de compréhensibilité d'un scripteur de vb.

[omen999]

bonjour,

Pour le faire en vbs, c'est compliqué

beaucoup moins depuis DynamicWrapperX. L'ancien composant dynamicwrapper est, en revanche, à mettre au rayon 'antiquités diverses'

bon, c'est vrai qu'il faut quand même se donner la peine de lire la doc de la fonction concernée
et pas se contenter de repiquer un code qui concernait la fonction SetCursorPos...

la version vbs actuelle :

Code :

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

1
2
3
4
5
6
Set DX = CreateObject ("DynamicWrapperX")                  
DX.Register "user32.dll","GetCursorPos","i=p","r=l"   
pPoint = DX.MemAlloc(8,1)
bRep = DX.GetCursorPos(pPoint)
WScript.Echo DX.NumGet(pPoint)
WScript.Echo DX.NumGet(pPoint,4)

[tsuji]

C'est donc qu'on a fait grand pas en avance depuis ... je m'en réjouis. Bravo !