Discussion :

[spidey89]

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.

[l_autodidacte]

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.

[spidey89]

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

[Bleetzbolt]

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

Code :

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

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

exemple d'utilisation:

Code :

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

poubelle = SetCursorPos(100, 100)

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

Code :

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

 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 :

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

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 :

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

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

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

[SfJ5Rpw8]

...

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

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

[spidey89]

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

Merci

[SfJ5Rpw8]

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

Code :

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

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

[spidey89]

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

[l_autodidacte]

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 :

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

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 :

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

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

[spidey89]

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!!