01.按键精灵大漠VIP注册

//代码开始区域

Call 注册大漠
  //<<-------------------这里是我们需要运行脚本的主要程序------------------>>
  Call 查找句柄与绑定窗口
  //<<-------------------这里是我们需要运行脚本的主要程序------------------>>
  Function 注册大漠
      //默认封装版本为大漠7.2336 替换只需要替换插件和版本号
      need_ver = "7.2336"
      set ws=createobject("Wscript.Shell")
      ws.run "regsvr32 atl.dll /s"
      set ws=nothing
      PutAttachment "c:\Lb2021","."
      PutAttachment ".\Plugin" ,"RegDll.dll"
      Call Plugin.RegDll.Reg("c:\Lb2021\Update.dll") 
      set dm = createobject("dm.dmsoft")
      if ver <> need_ver then
          set dm = nothing
          set ws=createobject("Wscript.Shell")
          ws.run "regsvr32 c:\Lb2021\Update.dll /s"
          set ws=nothing
          Delay 1500  
          set dm = createobject("dm.dmsoft")
      end if
      //<<-------------------请在此粘贴你的注册码和附加码------------------>>
      VIP = dm.Reg("注册码", "附加码")
      TracePrint "当前大漠版本:" & dm.ver() & "VIP是否注册成功:" & VIP
      If VIP = 1 Then 
          dm.SetShowErrorMsg(0)//关闭大漠弹窗提示
          TracePrint "大漠VIP注册成功！"&"波哥提供封装源码"
      Else 
          TracePrint "大漠VIP注册失败！"&"请联系波哥查看问题"
      End If
      //平滑判断
      if dm.CheckFontSmooth () = 1 then
          TracePrint "当前系统有开启平滑字体"
      End If
      //UAC(用户账户控制).
      if dm.CheckUAC() = 1 then
          TracePrint "当前系统开启了用户账户控制"
      End If
      //判断当前系统的DPI(文字缩放)是不是100%缩放.
      if dm.GetDPI() = 0 then
          MessageBox "当前系统文字缩放不是100%,请设置为100%"
          EndScript
      End If
      //禁止关闭显示器，禁止关闭硬盘，禁止睡眠，禁止待机.
      dm.DisableCloseDisplayAndSleep 
      //获取当前CPU的使用率. 用百分比返回.
      TracePrint "当前CPU占用率：%" & dm.GetCpuUsage()
      //得到操作系统的build版本号
      os_build_number = dm.GetOsBuildNumber()
      TracePrint "操作系统"&os_build_number
      //以下是测试VIP的盾是否在您的系统环境下是否可用
      TracePrint "NP盾"&dm.DmGuard(1, "np")
      //TracePrint "内存读写1:"&dm.DmGuard(1, "memory")
      TracePrint "内存读写2:"&dm.DmGuard(1, "memory2")
      TracePrint "保护进程2:"&dm.DmGuard(1, "b2")
      //TracePrint "保护进程3:"&dm.DmGuard(1, "b3")
      //TracePrint "伪装进程2:"&dm.DmGuard(1, "f2")
      t = dm.GetNetTime()
      TracePrint "当前北京时间是:" & t
      //以上代码为固定代码
  End Function

 //代码结束区域