☰

如何獲取螢幕解析度並將其保存到文字檔案？

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。

相關內容