VBS 获取鼠标屏幕坐标代码示例

以下是获取鼠标屏幕坐标的VBS代码：

Set objShell = CreateObject('WScript.Shell') Set objFSO = CreateObject('Scripting.FileSystemObject') Set objOutputFile = objFSO.CreateTextFile('mouse_coordinates.txt', True)

Do While True x = objShell.AppActivate('Untitled - Notepad') Set objMouse = objShell.AppActivate('Untitled - Notepad').Mouse objOutputFile.WriteLine 'X: ' & objMouse.Position.X & ' Y: ' & objMouse.Position.Y WScript.Sleep 1000 Loop

该代码将在无限循环中获取鼠标在屏幕上的坐标，并将其写入一个名为'mouse_coordinates.txt'的文本文件中。在此示例中，应用程序'Untitled - Notepad'将被激活，但您可以更改为您要获取坐标的应用程序的名称。请注意，此代码需要管理员权限才能运行。