大漠荒颜

记录一个青海油田子弟生活的点点滴滴

魔兽世界修改字体的方法

| |
09:55 , 北纬36度
魔兽世界的字体,个人感觉看久了一直觉得有点腻烦!就从网上看了一些帖子,总结了下魔兽世界字体插件,感觉都不是很好,
有的不是太繁琐就是过于庞大~所以自己整合了魔兽世界字体修改!
代码都是从网上看的~只是觉得方便~再加上一些小的修改,希望有用~

人工手动修改字体方法:
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即可~
类别:MY IT TEXT | Tags: , , , | 0 条评论, 3192 次阅读
网友评论(0):
发表评论:

昵称: 
电邮:
网址: