vbs脚本打开_检查系统是否禁用了vbs脚本权限_win10 vbs脚本失效

啥情况下系统字体会影响到游戏

游戏字体采用的是系统的字体，也就是说系统字体如果是宋体，游戏字体也是宋体。如果换一台电脑，系统字体是微软雅黑，那么游戏字体也会变成微软雅黑。（目前大部分游戏的字体都是采用系统字体）

如何兼容不同系统字体

小编之前看到的很多脚本，都是要求用户改变系统字体来适应脚本。这样的方让用户觉得很麻烦，而且，如果有些系统字体无法修改成功就无法使用脚本。所以今天小编就不介绍这种方法，咱们来一起看看更方便的方法。

步骤

1、在QUI界面上画一个下拉列表框，命名为xitong2、获取下拉列表框的值，如果选择的是win7系统则使用大漠的GetDictInfo函数，指定生成微软雅黑9号字体。如果选择的是xp系统则使用大漠的GetDictInfo函数，指定生成宋体9号。注意：为什么是9号字而不是10号字11号字呢？是这样的：因为游戏里的字体是固定大小的，都是采用9号字体，不管系统宋体10号还是11号，游戏里都是宋体9号。检查系统是否禁用了vbs脚本权限

GetDictInfo函数

函数功能简介:根据指定的文字，以及指定的系统字库信息，获取字库描述信息.函数原型:stringGetDictInfo(str,font_name,font_size,flag)参数定义: str字符串: 需要获取的字符串font_name字符串:系统字体名,比如"宋体" font_size整形数:系统字体尺寸，这个尺寸一定要以大漠综合工具获取的为准.如何获取尺寸看视频教程. flag整形数: 字体类别取值可以是以下值的组合,比如1+2+4+8,2+4.0表示正常字体.

1:粗体

2:斜体

4:下划线

8:删除线返回值:字符串返回字库信息,每个字符的字库信息用"|"来分割

示例:

//下面的代码是获取"回收站"这3个字符的字库信息，然后加入到字库1中.

font_desc=dm.GetDictInfo("回收站","宋体",9,0)

font_desc=split(font_desc,"|")

count=ubound(font_desc)

fori=0tocount

TracePrintfont_desc(i)

dm.AddDict1,font_desc(i)

next代码

//创建字库(字表,字体,字号,字库ID,文件路径[传空为不保存到字库文件])

SubCreateFont(Words,Font,Size,Index,Path)

DimTempStr

TempStr=dm.GetDictInfo(Words,Font,Size,0)

TempArray=Split(TempStr,"|")

Fori=0toUBound(TempArray)

dm.AddDictIndex,TempArray(i)

Next

EraseTempArray//释放不用的内存

IfLen(Path)>0Then

Calldm.SaveDict(0,Path)

EndIf

EndSub

//初始化大漠

Callregister()

Setdm=CreateObject("dm.dmsoft")

Calldm.SetPath("c:\test")

//读取选项

SelectCaseForm1.xitong.ListIndex

Case0

FontName="微软雅黑"

Case1

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-30610-1.html