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

标签: , , , , ,

北街博客的《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. 利用 WindowsInstaller.Installer 对象计算文件 MD5 hash 值
  2. 用VBS修改Windows用户密码
  3. VBS变量名Wsh等于WScript对象?
  4. 用VBS监视进程创建和删除
  5. 利用WMI打造完美“三无”后门-Downloader and Uploader

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

  1. anopos说道:

    用批处理更简短些。

留下回复