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