VBS 获取电脑屏幕坐标代码示例

以下是一个获取鼠标位置并弹出消息框显示坐标的 VBS 代码：

Set objShell = CreateObject("WScript.Shell")
Do
    x = objShell.AppActivate("Calculator")
    Set objMouse = CreateObject("WScript.Shell")
    Set objLoc = objMouse.Exec("CMD /C MODE CON: COLS=15 LINES=1")
    Do While Not objLoc.StdOut.AtEndOfStream
        strLoc = objLoc.StdOut.ReadLine
    Loop
    arrLoc = Split(strLoc, " ")
    strX = arrLoc(0)
    strY = arrLoc(1)
    MsgBox "X: " & strX & " Y: " & strY
    WScript.Sleep 1000
Loop

该代码可以实时获取鼠标位置，并在消息框中显示 X 和 Y 坐标。你可以将其稍微修改一下，以获取屏幕坐标，如下所示：

Set objShell = CreateObject("WScript.Shell")
Do
    Set objMouse = CreateObject("WScript.Shell")
    Set objLoc = objMouse.Exec("CMD /C MODE CON: COLS=15 LINES=1")
    Do While Not objLoc.StdOut.AtEndOfStream
        strLoc = objLoc.StdOut.ReadLine
    Loop
    arrLoc = Split(strLoc, " ")
    strX = arrLoc(0)
    strY = arrLoc(1)
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = False
    objIE.Navigate "about:blank"
    Do Until objIE.ReadyState = 4
        WScript.Sleep 100
    Loop
    Set objDoc = objIE.Document
    objDoc.Body.InnerHTML = "X: " & strX & " Y: " & strY
    strScreenX = objDoc.Body.ScreenX
    strScreenY = objDoc.Body.ScreenY
    MsgBox "ScreenX: " & strScreenX & " ScreenY: " & strScreenY
    objIE.Quit
    WScript.Sleep 1000
Loop

该代码将鼠标位置插入一个空白的 Internet Explorer 窗口，并获取窗口的屏幕坐标。