VBS 获取电脑屏幕坐标代码 - 鼠标点击获取坐标 - 常规

下面是一个获取电脑屏幕坐标的 VBS 代码：

Set WshShell = CreateObject("WScript.Shell") '创建WScript.Shell对象
Set objIE = CreateObject("InternetExplorer.Application") '创建InternetExplorer.Application对象
objIE.Visible = True '设置IE窗口可见
objIE.Navigate "about:blank" '导航到空白页
Do While objIE.Busy '等待IE加载完毕
    WScript.Sleep 100
Loop
Set objDoc = objIE.Document '获取IE文档对象
Set objBody = objDoc.Body '获取IE文档的<body>元素
objBody.Style = "cursor: crosshair;" '设置鼠标光标为十字形
Do While True '循环等待用户点击鼠标
    If WshShell.Popup("请点击鼠标左键选择一个坐标点。", 0, "提示", 0 + 64) = 1 Then
        Exit Do '用户点击了“取消”按钮，退出循环
    End If
    Do While objDoc.MouseButton = 0 '等待用户点击鼠标左键
        WScript.Sleep 100
    Loop
    MsgBox "您选择的坐标点为：" & objDoc.MouseX & "," & objDoc.MouseY '弹出消息框显示坐标点
Loop
objBody.Style = "" '恢复鼠标光标
Set objBody = Nothing
Set objDoc = Nothing
objIE.Quit '关闭IE窗口
Set objIE = Nothing
Set WshShell = Nothing

这个脚本会弹出一个空白的 IE 窗口，并将鼠标光标设置为十字形，等待用户点击鼠标左键选择一个坐标点。用户选择坐标点后，脚本会弹出一个消息框显示坐标点的 X 和 Y 值。如果用户点击了“取消”按钮，则退出循环，脚本结束。