游戏辅助教程：按键精灵解决系统字体兼容问题
1、步骤：
1、 在按键精灵QUI界面上画一个下拉列表框，命名为xitong
2、 获取下拉列表框的值，如果选择的是win7系统则使用大漠的 GetDictInfo 函数，指定生成微软雅黑9号字体。如果选择的是xp系统则使用大漠的 GetDictInfo 函数，指定生成宋体9号。
2、代码如下：
// 创建字库(字表, 字体, 字号, 字库ID, 文件路径[传空为不保存到字库文件])
Sub CreateFont(Words, Font, Size, Index, Path)
Dim TempStr
TempStr = dm.GetDictInfo(Words, Font, Size, 0)
TempArray = Split(TempStr,"|")
For i = 0 to UBound(TempArray)
dm.AddDict Index,TempArray(i)
Next
Erase TempArray // 释放不用的内存
If Len(Path) > 0 Then
Call dm.SaveDict(0, Path)
End If
End Sub
3、// 初始化大漠
Call register()
Set dm = CreateObject("dm.dmsoft")
Call dm.SetPath("c:\test")
// 读取选项
Select Case Form1.xitong.ListIndex
Case 0
FontName = "微软雅黑"
Case 1
FontName = "宋体"
End Select
Call CreateFont("我的电脑|网上邻居" ,FontName, 9, 0, "字库.txt")//调用创建字库函数
4、//找字
dm_ret = dm.FindStr(0,0,2000,2000,"我的电脑","ffffff",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
MessageBox "我的电脑"
Else
MessageBox "没找到"
End If
dm_ret = dm.FindStr(0,0,2000,2000,"网上邻居","ffffff",1.0,intX,intY)
If intX >= 0 and intY >= 0 Then
MessageBox "网上邻居"
Else
MessageBox "没找到"
End If
5、Sub register() //注册大漠
Set ws = createobject("Wscript.Shell")
ws.run "regsvr32 atl.dll /s"
Set ws = nothing
PutAttachment "c:\test", "dm.dll"
PutAttachment ".\Plugin" ,"RegDll.dll"
call Plugin.RegDll.Reg ( "c:\test\dm.dll")
Set dm = createobject("dm.dmsoft")
ver = dm.ver()
If len(ver) = 0 Then
MessageBox "插件注册失败,检查系统是否禁用了vbs脚本权限"
EndScript
End If
End Sub
6、3、备注：1）小编是xp系统，系统字体为宋体，9号字，所以小编拿电脑桌面上的 我的电脑和网上邻居作为例子。 2） 启动之后第一次运行选择了xp系统，第二次要选择win7系统的时候，需要按下保存设置，否则，再次启动qui会读取之前的下拉列表选择的信息，依然会切换到xp系统选项。