标题:魔兽世界修改字体的方法 出处:大漠荒颜 时间:Mon, 12 Dec 2011 09:55:39 +0000 作者:北纬36度 地址:http://www.736202.com/read.php/800.htm 内容: 魔兽世界的字体,个人感觉看久了一直觉得有点腻烦!就从网上看了一些帖子,总结了下魔兽世界字体插件,感觉都不是很好, 有的不是太繁琐就是过于庞大~所以自己整合了魔兽世界字体修改! 代码都是从网上看的~只是觉得方便~再加上一些小的修改,希望有用~ 人工手动修改字体方法: 1.在魔兽目录下新建文件夹“fonts” 2.将本字体包中的字体复制到fonts文件夹下,并复制成7份字体 3.将这7份字体文件名分别修改成:FZBWJW.TTF FZJZJW.TTF FZLBJW.TTF FZXHJW.TTF FZXHLJW.TTF FRIZQT__.TTF ARIALN.TTF 方便大家给个VBS的版本,将下面的代码复制记事本中,修改后缀名,将TXT改成VBS即可! dim WowPath '从注册表中查出WoW所在目录并修改字体 BY BeiWei36 Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set objRegistry = GetObject("winmgmts:\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Blizzard Entertainment\World of Warcraft" strValueName = "InstallPath" objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue If IsNull(strValue) Then msgbox "无法查找到wow所在目录,请确认是否安装。" Else WowPath=strValue Set objFSO = CreateObject("Scripting.FileSystemObject") If not objFSO.FolderExists(WowPath&"Fonts") Then Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.CreateFolder(WowPath&"Fonts") End If Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "first.TTF",WowPath&"Fonts\ARIALN.ttf" objFSO.CopyFile "first.TTF",WowPath&"Fonts\FRIZQT__.ttf" objFSO.CopyFile "first.TTF",WowPath&"Fonts\ZYHei.ttf" objFSO.CopyFile "first.TTF",WowPath&"Fonts\ZYKai_C.ttf" objFSO.CopyFile "first.TTF",WowPath&"Fonts\ZYKai_T.ttf" objFSO.CopyFile "first.TTF",WowPath&"Fonts\FZJZJW.ttf" objFSO.CopyFile "first.TTF",WowPath&"Fonts\FZLBJW.ttf" objFSO.CopyFile "first.TTF",WowPath&"Fonts\FZXHJW.ttf" objFSO.CopyFile "first.TTF",WowPath&"Fonts\FZXHLJW.ttf" objFSO.CopyFile "first.TTF",WowPath&"Fonts\FZBWJW.ttf" objFSO.CopyFile "first.TTF",WowPath&"Fonts\bHEI01B.TTF" objFSO.CopyFile "first.TTF",WowPath&"Fonts\bLEI00D.TTF" objFSO.CopyFile "first.TTF",WowPath&"Fonts\bHEI00M.TTF" objFSO.CopyFile "first.TTF",WowPath&"Fonts\bKAI00M.TTF" msgbox "魔兽世界字体已经修改完成--BY BeiWei36" End If 需要说明的是first.TTF是自己下载的字体,这个就需要你自己下载喜欢的字体了~ 因人而已~个人喜好了~ 好了~自己慢慢的修改吧~如果第一次运行,出错,找不到WoW的话,可以先运行魔兽世界,再运行修改字体VBS即可~ Generated by Bo-blog 2.1.1 Release