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

标签: , , , , ,

北街博客的《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. 用C语言实现凯撒密码算法
  2. windows从服务器同步时间
  3. 火狐(FireFox)中的onkeydown事件
  4. VBS中的左移位&右移位运算
  5. 使用Image Generator (Image Builder)生成OpenWrt固件

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

  1. anopos说道:

    用批处理更简短些。

  2. sam说道:

    抱歉,百度了,第一页没有这篇文章

留下回复