在老电脑里翻文件翻出来的，很多年前的，试了一下还能用，
重要的是Win10自带杀软不报毒，现在网上能下到的版本都报毒。
另一个是这个版本好像是完全免费的！
https://lanzoui.com/i6YAal2jb5i
Dim version, path, errerr = "调用失败,检查系统是否禁用了vbs脚本权限"version = Ver()path = getPath()If len(version) = 0 Then MsgBox errElse MsgBox "大漠版本号：" & versionEnd IfIf len(path) = 0 Then MsgBox errElse MsgBox "大漠dll所在目录：" & pathEnd IfFunction Ver() Set dm = CreateObject("dm.dmsoft") Ver = dm.Ver() Set dm = NothingEnd FunctionFunction getPath() Set dm = CreateObject("dm.dmsoft") getPath = dm.GetBasePath() Set dm = NothingEnd Function
发表评论：