在新版的按键精灵2014版中脚本在调试时,总是出现这种情况,百思不的起解

坐等大神

你这是注册大漠吗？ 还是自己写代码注册大漠

我注册大漠一般是用这个代码的

Call Register_dm
Sub Register_dm
 Set ws=createobject("Wscript.Shell")
 ws.run "regsvr32 atl.dll /s"
 Set ws=nothing
 
 PutAttachment ".", "dm.dll"
 PutAttachment ".\Plugin", "RegDll.dll"
 Call Plugin.RegDll.Reg(".\dm.dll")
 Delay 200
 
 Set dm = createobject("dm.dmsoft")
 ver = dm.Ver()

If ver <> "3.1233" then
  Set dm = nothing
  Set ws=createobject("Wscript.Shell")
  ws.run "regsvr32 .\dm.dll /s"
  Set ws=nothing
  Delay 1000
  
  Set dm = createobject("dm.dmsoft")
  Delay 200
  ver = dm.Ver()
  If ver <> "3.1233" then
   MessageBox "插件版本错误,当前使用的版本是:" & ver & ",插件所在目录是:" & dm.GetBasePath() & Chr(10) & "请关闭程序,重新打开本程序再尝试"
  End if
 End If 
End Sub