[问题求助] [已解决]VBS提示“缺少对象：number” 添加变态密码

ailstt

反复看来不知道那里出错了
以下是vbs脚本

  strComputer   =   "."   
  strOut   =   ""   
  Set   objWMIService   =   GetObject("winmgmts:"   _   
          &   "{impersonationLevel=impersonate}!\\"   &   strComputer   &   "\root\cimv2")     
  Set   colDiskDrives   =   objWMIService.ExecQuery   _           
          ("Select   *   from   Win32_DiskDrive")   
  For   each   objDiskDrive   in   colDiskDrives   
        strOut   =   strOut   &   "   "   &   vbTab   &     objDiskDrive.Signature   
  Next   
  Wscript.Echo    strOut-strOut-strOut '这里是硬盘的序列号（去掉 - 号） 这句可以不用

dim a,s 
s=0 '设置计数器 
set m   =   strOut-strOut-strOut-3*7 '工具硬盘序列号 添加复杂一点的密码
do 
a=inputbox("请输入暗码") 
if a=m then 
msgbox "认证成功" 
exit do 
else 
if s=1 then '设置认证次数为1
msgbox "已经达到认证上限, 认证程序关闭" 
exit do 
else 
s=s+1 '注意：这一句是赋值句，要从右往左读，即每出错一次就把s加上1，然后再放回s里面，使得这个变量加1 
msgbox "认证出错, 请检查暗码" 
end if 
end if 
loop 
复制代码

ailstt

回复 7# czjt1234


      特别感谢您 你是一个分享快乐的人 为表示感谢  帮助我的人有2个 你和另外一个人  请留下QQ 每人5QB 望不要嫌弃

ailstt

回复 3# pcl_test


   
    特别感谢您 你是一个分享快乐的人 为表示感谢  帮助我的人有2个 你和****1234 请留下QQ 每人5QB 望不要嫌弃

czjt1234

strOut = ""
s = 0

For each i in GetObject("winmgmts:").InstancesOf("Win32_DiskDrive")
    strOut = strOut & i.Signature
Next

m = (strOut - 3) * 7    '复杂密码
Wscript.Echo "硬盘的序列号串：" & strOut
Wscript.Echo "复杂密码：" & m

do
    a = inputbox("请输入暗码")
    if a = Cstr(m) then
        msgbox "认证成功"
        exit do
    else
        if s = 1 then '设置认证次数为1
            msgbox "已经达到认证上限, 认证程序关闭"
            exit do
        else
            s = s + 1
            msgbox "认证出错, 请检查暗码"
        end if
    end if
loop
复制代码

刚才没测试，这次测试过了

ailstt

回复 5# czjt1234


    貌似你的最后不能调用加密的 提示密码不对

czjt1234

strOut = ""
s = 0

For each i in GetObject("winmgmts:").InstancesOf("Win32_DiskDrive")
    strOut = strOut & i.Signature
Next

m = (strOut - 3) * 7    '复杂密码
Wscript.Echo "硬盘的序列号串：" & strOut
Wscript.Echo "复杂密码：" & m

do
    a = inputbox("请输入暗码")
    if a = m then
        msgbox "认证成功"
        exit do
    else
        if s = 1 then '设置认证次数为1
            msgbox "已经达到认证上限, 认证程序关闭"
            exit do
        else
            s = s + 1
            msgbox "认证出错, 请检查暗码"
        end if
    end if
loop
复制代码

czjt1234

14行把set去掉
set用于对象赋值

pcl_test

错误主要在以下两句

Wscript.Echo strOut-strOut-strOut
复制代码

set m = strOut-strOut-strOut-3*7
复制代码

如果strOut是作为字符类型，那么Wscript.Echo strOut&"-"&strOut&"-"&strOut和m = strOut&"-"&strOut&"-"&strOut&"-"&CStr(3*7)

ailstt

求vbs大哥帮忙修改下 原意10元QQ币做谢谢