VBS Coordonnées de la souris

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:

---

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

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:

---

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.

bonjour,

Citation:

---

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' :aie:

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... :calim2:

la version vbs actuelle :

Code:

---

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)

---

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