用vbs将WOW字体修改

首先 打开文件夹 随便哪个都可以 本高手的办法不需要你去找WOW文件

然后点工具----文件夹选项---查看---把隐藏已知文件扩展名前面的勾去掉 如果已经显示了扩展名 那就不用去了

然后 去网上找个你喜欢的字体 下载下来 或者去X:\windows\fonts里找个　

然后把字体放到某个文件夹里　把该字体改名为WOW.TTF

在新建个记事本文件 在里面输入

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 "wow.TTF",WowPath&"Fonts\ZYKai_T.TTF"
objFSO.CopyFile "wow.TTF",WowPath&"Fonts\ZYKai_C.TTF"
objFSO.CopyFile "wow.TTF",WowPath&"Fonts\ZYHei.TTF"
msgbox "字体文件已经安装成功"
End If

保存记事本 然后将记事本改名为

任意文件名.vbs

然后双击该文件 好了WOW的字体就修改好了

如果觉得字体不好看 想改回来 只要把wow文件夹里的fonts文件夹给改名或者删了就OK