☰

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

tag-icon • tag-icon vbscript screenresolution
如何获取屏幕分辨率并将其保存到文本文件？

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

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

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

答案1

要将其保存到新文本文件，您可能需要使用以下 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。

相关内容