VBS Click Position

Question

Есть ли способ сделать клик VBScript в точном месте вашего экрана, например (10 100) или что-то в этом роде?Или, может быть, нажмите на текстовое поле?

Answer 1

VBScript сам по себе не знает ни о рабочем столе, ни о каких-либо других окнах. Используя различные объекты COM / ActiveX, вы можете взаимодействовать с другими процессами и окнами. Например, вы можете создать ярлык на рабочем столе , , запустить программу , , автоматизировать серию нажатий клавиш или заставить программу перейти на передняя часть .

Что касается автоматизации движений мыши или щелчков мыши, вам, вероятно, потребуется написать собственный COM-объект, который может это сделать. Комбинация API-вызовов SetCursorPos и SendInput может сделать это.

В Google Answers есть пример кода C ++ , который может это сделать. Исходный код планеты имеет некоторый пример кода VB6 , который может выполнить это.

Оттуда вы можете создавать свои объекты COM / ActiveX, которые позволят вам использовать VBScript, чтобы щелкать там, где вы хотите.

Answer 2

Это переместит курсор:

Option Explicit
Dim Excel, x, y

Set Excel = WScript.CreateObject("Excel.Application")

x = "500"
y = "222"
Excel.ExecuteExcel4Macro ( _
    "CALL(""user32"",""SetCursorPos"",""JJJ""," & x & "," & y & ")")

WScript.Sleep (100)
WScript.Echo "Program Ended"

Answer 3

Приведенный ниже код можно использовать для перемещения мыши по координатам x, y 100, 100

.

Set DeviceReplay = CreateObject("Mercury.DeviceReplay")

DeviceReplay.MouseMove 100,100