VBS 代码获取电脑屏幕鼠标坐标

以下是一个获取鼠标位置并输出到屏幕上的 VBS 代码：

Set objShell = CreateObject("WScript.Shell")
Do While True
    x = objShell.AppActivate('计算器')
    Set objHTML = CreateObject("htmlfile")
    Set objWindow = objHTML.parentWindow
    x = objWindow.event.clientX
    y = objWindow.event.clientY
    WScript.Echo '鼠标位置（X,Y）：' & x & ',' & y
    WScript.Sleep 1000
Loop

在上面的代码中，我们使用了 HTML 文件和 Window 对象来获取鼠标位置。我们在一个无限循环中运行代码，以便不断更新鼠标位置并输出到屏幕上。你可以将'计算器'修改为你想要捕捉鼠标位置的窗口名。