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

北街博客的《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. VBS练习题——计算1到100的和
2. OpenWrt配置DNSCrypt防止DNS污染
3. OpenWrt安装tcpdump抓包
4. VB6拾遗：内联汇编与CallWindowProc函数
5. 再谈Msxml2.XMLHTTP、Msxml2.ServerXMLHTTP与缓存

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