主页 / computer / 问题 / 1600351
Accepted
frankell
Asked: 2020-11-08 08:33:46 +0800 CST

如何获取屏幕分辨率并将其保存到文本文件？

  • 772

我找到了以下 vbs 脚本来获取屏幕分辨率

但我想将结果保存在文本文件中，请帮助我

    Dim HTM, wWidth, wHeight
    Set HTM = CreateObject("htmlfile")
    wWidth = HTM.parentWindow.screen.Width
    wHeight = HTM.parentWindow.screen.Height
    wscript.echo wWidth & "X" & wHeight
vbscript screenresolution

1 个回答

  1. Best Answer

    要将其保存到新的文本文件中，您可能需要使用以下 VBScript 来满足您的需要。

    Dim HTM, wWidth, wHeight
Set HTM = CreateObject("htmlfile")
wWidth = HTM.parentWindow.screen.Width
wHeight = HTM.parentWindow.screen.Height
wscript.echo wWidth & "X" & wHeight

Set objFileToWrite = CreateObject("Scripting.FileSystemObject").OpenTextFile("D:\file.txt",2,true)
objFileToWrite.WriteLine("--- screen resolution start -------------------------")
objFileToWrite.WriteLine( wWidth & "X" & wHeight)
objFileToWrite.WriteLine("--- screen resolution end   -------------------------")
objFileToWrite.Close
Set objFileToWrite = Nothing

    如果您想将文本附加到现有文本文件的末尾，您可以轻松地将 IOMode 参数更改为8例如

    ("D:\file.txt",8,true)

    该true参数确保文件是新创建的，或者如果false.

    • 2

相关问题