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

标签: , , , , ,

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

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

'作者: Demon
'网站: http://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. 在iPad上安装iFile文件管理器
  2. 那些长的像UTF-8的GBK编码
  3. 又遇VBS中&H前缀十六进制数的陷阱
  4. WriteFile,WriteConsole和_tprintf的一些差别
  5. 用VBS实现Discuz论坛自动回帖程序

一条评论 发表在“魔兽全屏补丁 魔兽宽屏补丁”上

  1. anopos说道:

    用批处理更简短些。

留下回复