魔兽全屏补丁 魔兽宽屏补丁

北街博客的《Windows7 魔兽无法全屏的问题》中提供了一个魔兽全屏补丁，但是已经无法下载了。虽然魔兽全屏补丁网上一搜一大把，但是 EXE 格式的谁敢运行？我还是用 VBS 写一个魔兽全屏补丁吧。

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DesktopMonitor",,48)

'作者: Demon
'网站: https://demon.tw
'日期: 2012/1/28
'描述: 魔兽全屏补丁

For Each objItem in colItems
    ScreenHeight = objItem.ScreenHeight
    ScreenWidth  = objItem.ScreenWidth
Next

Set WshShell = CreateObject("wscript.Shell")
KeyName = "HKEY_CURRENT_USER\Software\Blizzard Entertainment\Warcraft III\Video\"
WshShell.RegWrite KeyName & "resheight", ScreenHeight, "REG_DWORD"
WshShell.RegWrite KeyName & "reswidth",  ScreenWidth,  "REG_DWORD"

MsgBox "魔兽全屏补丁运行完毕"

鉴于本文的读者不一定懂 VBS，简单说一下使用方法：打开系统自带的记事本，将上面代码复制进去，另存为 war3.vbs，双击运行即可。

随机文章:

1. InputBox与两数相加——一个简单的VBS脚本问题
2. 用C语言调用COM组件
3. VB6拾遗：序
4. 用VBS判断操作系统是32位（x86）还是64位（x64）
5. FireFox（火狐）Cookie修改插件

这篇文章发布于 2012年01月28日，星期六，09:37，归类于 软件相关。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。