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

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

FontName="宋体"

EndSelect

//如果字库存在，就检测是否换过机器，否则直接产生字库

Ifdm.IsFileExist("c:\test\字库.txt")Then

OldCode=Plugin.File.ReadINI("Setup","机器码","c:\test\Setup.ini")//读取ini文件里的机器码值

NewCode=dm.GetMachineCode()//获取当前机器码值

IfOldCode<>NewCodeThen

CallCreateFont("我的电脑|网上邻居",FontName,9,0,"字库.txt")

CallPlugin.File.WriteINI("Setup","机器码",NewCode,"c:\test\Setup.ini")//将机器码值写入ini文件

Else

calldm.SetDict(0,"c:\test\字库.txt")

EndIf

Else

CallCreateFont("我的电脑|网上邻居",FontName,9,0,"字库.txt")

CallPlugin.File.WriteINI("Setup","机器码",NewCode,"c:\test\Setup.ini")//将机器码值写入ini文件

EndIf

//找字

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"

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