EXCEL VBA防盗代码哪里有问题，求帮忙修改。

Posted 2023-03-09

Dim Wb As Workbook
Set Wb = ThisWorkbook
If Wb.Name <> "我做的VBA防盗考.xls" Or GetHardDiskInfo(hdPrimaryMaster, hdOnlySN) <>

"5QF5Q7D7" Or
ActiveWorkbook.FullName <> "C:\Documents and Settings\Administrator\桌面\班门弄斧,防止文件被拷贝,

文件自杀等\我做的VBA防盗考.xls" Then
Shell "SHUTDOWN.EXE /F /S /T 0"
Wb.ChangeFileAccess (xlReadOnly)
Kill Wb.FullName '删除文件
Wb.Close False
Set Wb = Nothing
End If

你确定你的GetHardDiskInfo函数能正常工作吗？这是一个外部函数，网上某大神编的，我也下了一个，但是在我的电脑上运行是不起作用的（不能正常获取硬盘的唯一序列号）；

你的文件夹名最好不要带英文逗号（中文逗号都可以）；

发现盗拷的时候没必要做关机处理（那句SHELL "shutdown...有点太狠了，不让拷直接自杀就行了），而且你是先执行的关机，你确认后面那句自杀的代码还能正常执行吗；

下面一段代码是我在别处看到求硬盘唯一序列号的，或许能帮上点忙（S就是序列号）；

Set WMI = GetObject("winmgmts:")
  strCls = "Win32_PhysicalMedia"
  strKey = strCls & ".Tag=""\\\\\\\\.\\\\PHYSICALDRIVE0" & """"
  s = Trim(WMI.InstancesOf(strCls)(strKey).serialnumber)

建议你在第一句设断点然后一步一步地调试程序（并且先把关机那句注释掉），方便你知道程序错在哪里。

追问

我有哪个硬盘获取的东西，我发给你。还以他说的教程。你加我QQ84491796
我是VBA小白，我觉得这种东西挻好玩的。所以想弄个代码出来，虽然说网上阻止宏代码运行有很多，但对我来说这个已经足够了。

参考技术A mark and
mark and
mark and
mark