[VBS]Déplacer la souris

Bonjour à tous,

Ce forum est décidement le meilleur!!

Voilà mon problème, je voudrais savoir si quelqu'un connait une fonctions en VBS je précise!! Pour déplacer la souris a l'aide d'un script VBS?

J'ai regarder, on peut utiliser l'API SetCursorPosition, mais le souci c'est que je ne sais pas comment l'appeler en VBS? Donc je cherche une solution à ce problème ou une solution alternative.

En vous remerciant d'avance.

Merci à tous.

Salut

A défaut d'exemple, tu peux construire ta propre DLL(ActiveX) avec VB6 par exemple puis l'enregistrer et l'utiliser.

D'ailleurs, c'est ce que je fais souvent quand je ne trouve pas d'autres solutions.

Salut à toi.

Je suis d'accord sur ce point là, mais une fois que j'aurai créer ma DLL (activeX) en VB6. Je fais comment comment pour l'utiliser à travers d'un script VBS?

Je te remercie d'avance

Pour forcer la position souris:
Appel de la fonction dans USER32:

Code:

---

Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

---

exemple d'utilisation:

Code:

---

poubelle = SetCursorPos(100, 100)

---

pour simuler le clic:
Appel de la fonction dans USER32:

Code:

---

Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

---

Constante requise:

Code:

---

1 2 3 4 5 6 7 8 9

Public Const MOUSEEVENTF_MOVE = &H1 Public Const MOUSEEVENTF_LEFTDOWN = &H2 Public Const MOUSEEVENTF_LEFTUP = &H4 Public Const MOUSEEVENTF_RIGHTDOWN = &H8 Public Const MOUSEEVENTF_RIGHTUP = &H10 Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 Public Const MOUSEEVENTF_MIDDLEUP = &H40 Public Const MOUSEEVENTF_ABSOLUTE = &H8000

---

exemple d'utilisation clic gauche en position 100,100:

Code:

---

mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 100, 100, 0, 0)

---

n'hésitez pas à me corrigé si ca vous semble pas bon :)

Citation:

---

Envoyé par Bleetzbolt

...

n'hésitez pas à me corrigé si ca vous semble pas bon :)

---

c'est pas bon tu est dans le forum VBScript !!!!

Merci pour ta réponse en tout cas, mais l'appel de la dll se fait comment en vbscript?

Merci

on peu quand même faire cela avec DynamicWrapper voir :
http://omen999.developpez.com/tutori...ynamicWrapperX

Code:

---

1 2 3 4 5 6

set DX = CreateObject ("DynamicWrapperX") ' instancie l'objet DX.Register "user32.dll", "SetCursorPos", "i=uu", "i=uu" ' référence la fonction de la dll For i = 0 to 800 step 10 res = DX.SetCursorPos(i, i) ' appel de la fonction Wscript.Sleep 200 next

---

Cdt;)

Merci de ta réponse bbil.

En lançant le script, il me retourne "Un composant ActiveX ne peut pas créer un objet: 'DynamicWrapperX'!!

Une solution?

Merci

bibil t'a donné la solution et rien à dire de plus.

Mais si tu veux construire ta propre DLL, voici une esquisse :
1 - Ouvre un nouveau projet VB6 et choisis Dll ActiveX puis Ouvrir
2 - Renomme Class1 en CursorClass par exemple(Ce nom sera utiliser pour référencer la procédure Sub CursorPos)
3 - Dans la fenêtre Edition de cette classe, ajoute :

Code:

---

1 2 3 4 5

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long   Public Sub CursorPos(ByVal X&, ByVal Y&) SetCursorPos X, Y End Sub

---

4 - Renomme Projet1 en MyMouse(ce nom est celui de la DLL et qui va être utilisé par la suite dans le fichier Script).
5 - Compile et crée la DLL. Normalement, pendant la compilation, la DLL est enregistrée dans la BDR sinon utilise Regsvr32.exe pour le faire.

Maintenant, une possibilité du fichier script est :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Explicit   Dim Obj,I   Set Obj=CreateObject("MyMouse.CursorClass") I=0 Do i=i+10 ' on error resume next Wscript.Sleep 50 Obj.CursorPos I,384 ' Déplacement horizontal au milieu de l'écran pour une résolution 1024x768 if i>=1000 then Obj.CursorPos 512,384 ' Centre de l'écran Loop until i>=1000 set Obj=Nothing

---

Bon courage

Merci pour la réponse je vais essayer cela, je vous tiens au courant.

J'ai réessayer d'appeler la dll DynamicWrapperX, mais j'avais eu le message erreur, l'erreur c'est que je n'avais pas cette dll, je l'ai télécharger mis dans le dossier c:/Windows/System32. Ensuite avec regedit.exe, j'ai entrer "regsvr32.exe c:\Windows\System32\dynwrapx.dll" pour l'activer.

Ensuite j'ai reprise code suivant(celui proposé plus haut), et là OMG, la souris à bouger ^^. Merci beaucoup, vraiment.

Une dernière quelqu'un sait simuler un clic gauche avec vbs toujous? J'ai fait des recherches la méthode Mouse_event est utile pour simuler le clic gauche mais là toujours un problème: Cette objet ne gère pas cette propriété ou cette méthode!!