魔兽世界的字体,个人感觉看久了一直觉得有点腻烦!就从网上看了一些帖子,总结了下魔兽世界字体插件,感觉都不是很好,
有的不是太繁琐就是过于庞大~所以自己整合了魔兽世界字体修改!
代码都是从网上看的~只是觉得方便~再加上一些小的修改,希望有用~
人工手动修改字体方法:
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即可~
有的不是太繁琐就是过于庞大~所以自己整合了魔兽世界字体修改!
代码都是从网上看的~只是觉得方便~再加上一些小的修改,希望有用~
人工手动修改字体方法:
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即可~
网友评论(0):