VBS envoyer des clics de souris?

J'ai besoin d'envoyer des clics de souris à partir de VBS. Comme SendKeys. J'ai cherché toute la google, il semble qu'il n'y a pas de telle fonction de VBS. Pouvez-vous me donner une solution?

InformationsquelleAutor user3569967 | 2016-03-30
  1. 3

    Voici une routine pour envoyer un clic gauche ou à droite d'une fenêtre (à l'aide de références relatives) en VBA pour Excel. Semblable à AppActivate, vous devez juste le titre de la fenêtre.

    Les arguments lors de l'appel de la SendClick de routine sont:

    • De Titre De La Fenêtre (String)
    • Boutons (1 = Gauche, 2 = Droite, -1 = se Déplacer souris uniquement; pas de clic)
    • x (position Relative par rapport à la fenêtre de Gauche)
    • y (position Relative par rapport à la fenêtre d'en Haut)

    Profitez-en!

    'Declare mouse events
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public 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)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP As Long = &H10
'Declare sleep
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
' Window location
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Function WindowHandle(ByVal sTitle As String) As Long
WindowHandle = FindWindow(vbNullString, sTitle)
End Function
Public Sub SendClick(sWnd As String, b As Integer, x As Long, y As Long)
Dim pWnd As Long, pRec As RECT
pWnd = WindowHandle(sWnd)
GetWindowRect pWnd, pRec
SetCursorPos pRec.Left + x, pRec.Top + y
Sleep 50
If b = 2 Then
mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
Sleep 50
mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
ElseIf b <> -1 Then
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
Sleep 50
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End If
End Sub
    InformationsquelleAutor Jason Rowberg
  2. 1

    Il n'est pas possible avec VBScript seul. Vous aurez besoin d'utiliser un outil tiers comme nircmd. Vous pouvez utiliser ses setcursor, setcursorwin, movecursor, et sendmouse commandes pour manipuler la souris.

    Par exemple, voici comment faire pour déplacer le curseur sur un écran de coordonnées (mesurée à partir du haut à gauche) et de faire un clic droit:

    With CreateObject("WScript.Shell")
.Run "nircmd setcursor 100 100", 0, True
.Run "nircmd sendmouse right click", 0, True
End With

    Voir le la documentation pour les informations de paramètre.

    InformationsquelleAutor Bond
  3. 0

    Essayer 

     Dim x
set x=createobject("wscript.shell")
x.sendkeys"{CLICK LEFT,50,60}"

    ou

     x.SendKeys("+{F10}") 'for a right click

    Si aucun de ces travaux pour vous, je vous recommande d'utiliser quelque chose comme Autoit ou autohotkey, à l'aide de AutoHotKey, vous pourriez écrire une macro qui effectue le clic et ensuite appeler le script à partir de votre VBScript.

    InformationsquelleAutor Devnsyde