vbs修改windows分辨率百分比

你可以使用以下 VBScript 脚本来修改 Windows 分辨率百分比：

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoController")

For Each objItem in colItems
    objItem.SetCurrentHorizontalResolution objItem.CurrentHorizontalResolution * 0.8 '设置横向分辨率为当前分辨率的80%
    objItem.SetCurrentVerticalResolution objItem.CurrentVerticalResolution * 0.8 '设置纵向分辨率为当前分辨率的80%
Next

其中，0.8 表示将分辨率缩小为当前分辨率的 80%，你可以根据需要修改这个值。将脚本保存为 .vbs 文件，然后双击运行即可。

需要注意的是，某些显卡驱动可能不支持修改分辨率百分比，此时脚本可能无法生效。另外，修改分辨率可能会影响显示效果或者损伤显示器，请谨慎使用。

相关问题

修改分辨率vbs

以下是修改 Windows 分辨率的 VBScript 脚本：

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoController")

For Each objItem in colItems
    objItem.SetCurrentHorizontalResolution 1920 '设置横向分辨率为 1920 像素
    objItem.SetCurrentVerticalResolution 1080 '设置纵向分辨率为 1080 像素
Next

其中，1920 和 1080 分别表示横向和纵向的像素数，你可以根据实际情况修改这两个值。将脚本保存为 .vbs 文件，然后双击运行即可。

需要注意的是，某些显卡驱动可能不支持设置某些分辨率，此时脚本可能无法生效。另外，修改分辨率可能会影响显示效果或者损伤显示器，请谨慎使用。

vbs调用windows画图工具

可以使用 VBScript 脚本语言来调用 Windows 自带的画图工具 (Paint)。以下是一个简单的示例代码：

Set objShell = CreateObject("WScript.Shell")
objShell.Run "mspaint.exe"

这段代码创建了一个 WScript.Shell 对象，并使用 Run 方法来启动 mspaint.exe 程序，也就是 Windows 自带的画图工具。你可以将这段代码保存为 .vbs 文件，然后双击运行它，就会打开画图工具。