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

FontName="宋体"

EndSelect

CallCreateFont("我的电脑|网上邻居",FontName,9,0,"字库.txt")//调用创建字库函数

//找字

dm_ret=dm.FindStr(0,0,2000,2000,"我的电脑","ffffff",1.0,intX,intY)

IfintX>=0andintY>=0Then

MessageBox"我的电脑"

Else

MessageBox"没找到"

EndIf

dm_ret=dm.FindStr(0,0,2000,2000,"网上邻居","ffffff",1.0,intX,intY)

IfintX>=0andintY>=0Then

MessageBox"网上邻居"

Else

MessageBox"没找到"

EndIf

Subregister()//注册大漠

Setws=createobject("Wscript.Shell")

ws.run"regsvr32atl.dll/s"

Setws=nothing

PutAttachment"c:\test","dm.dll"

PutAttachment".\Plugin","RegDll.dll"

callPlugin.RegDll.Reg("c:\test\dm.dll")

Setdm=createobject("dm.dmsoft")

ver=dm.ver()

Iflen(ver)=0Then

MessageBox"插件注册失败,检查系统是否禁用了vbs脚本权限"

EndScript

EndIf

EndSub

注意：1、小编是xp系统，系统字体为宋体，9号字，所以小编拿电脑桌面上的我的电脑和网上邻居作为例子。2、启动之后第一次运行选择了xp系统，第二次要选择win7系统的时候，需要按下保存设置，否则，再次启动qui会读取之前的下拉列表选择的信息，依然会切换到xp系统选项。

优化——判断当前系统字库是否已经生成过

咱们运行前面的程序，会发现启动的时间比较久，那是因为咱们每次运行脚本，都会按照使用者选择的系统生成一次字库。生成字库所要用的时间是比较多的，如何解决这个问题呢？

方法首次执行完脚本后，获取下本台计算机的机器码，存放到ini文件中，每次执行前判断下，机器码是否是一样的，一样的则不执行字库生成。

优化步骤

1、读取记录机器码的setup.ini文件里存放的机器码

2、获取当前电脑机器码，与ini文件中记录的机器码值进行对比，不相等，则执行生成字库。

3、获取当前电脑机器码，记录到ini文件中，下次再执行的时候，如果还是当前电脑，则不执行生成字库。

代码

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

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

DimTempStr

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

TempArray=Split(TempStr,"|")

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