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

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

Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("cmd /c echo %APPDATA%")

strOutput = objWshScriptExec.StdOut.ReadAll
strOutput = Left(strOutput, Len(strOutput)-2)

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "file://" & strOutput & "\Microsoft\Internet Explorer\Desktop.htt"

Do Until objIE.ReadyState = 4
    WScript.Sleep 100
Loop

Set objDocument = objIE.Document
Set objDesktopItems = objDocument.All.Item("shelldoc_global")
Set objDesktopAreas = objDesktopItems.Children
For Each objDesktopArea In objDesktopAreas
    Set objDesktopItem = objDesktopArea.Children(0)
    strName = objDesktopItem.Title
    intLeft = objDesktopItem.offsetLeft
    intTop = objDesktopItem.offsetTop
    WScript.Echo strName & " - X: " & intLeft & " Y: " & intTop
Next

此代码首先获取当前用户的'应用程序数据'文件夹的路径，然后打开桌面的HTML文件。该HTML文件显示桌面上的所有图标和文件夹。然后，代码循环遍历每个桌面区域和每个桌面项目，并获取每个项目的标题、左侧和顶部偏移量。最后，它将这些信息输出到控制台窗口中。