[求助]自杀的代码(已解决)

joen168 · 发表于 2009-6-7 13:25

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

If s = "5PT16AHE" Then '要使用的电脑磁盘序列号,注意加引号
Exit Sub
Else
MsgBox "非授权用户，系统将退出。"
ThisWorkbook.Close False
End If
End Sub

s = "5PT16AHE" 这是硬盘的物理序列号。请问工作簿为什么还是要退出呢？

joen168 · 发表于 2009-6-7 18:26

硬盘型号 ST3160811AS
序列号 5PT16AHE
我用windows优化大师获取以上数据，套进上面的公式，为什么还是不行呢？文件还是要退出呢？

nickxie · 发表于 2009-6-8 09:47

好帖
!!!!!!!!!!!!!!!!!!

luanyu6688 · 发表于 2009-6-11 11:45

怎样才能把SaveSetting "XXX", "YYY", "date", FirstDate '把日期保存到注册表，中日期从注册表中清除掉呢

努力学习01 · 发表于 2009-6-11 16:16

帖虽好。但是并不是适合全部的人。。。

为什么要自杀呢？
不就是想保护自己的劳动成果不被人窃取吗？
可以删除一些重要的工作表，货代码就可以了。。
留个框架给别人看。。这样也是一个思路啊。。。

little-key · 发表于 2009-7-11 22:59

这个得要求别人把宏的级别调整到非高吧。

zhw952 · 发表于 2009-8-8 12:14

白忙活，如果设为只读或禁用宏呢

yj304 · 发表于 2009-8-9 14:09

学习学习!

thithin · 发表于 2009-9-9 16:11

好强大的技术！！

dhf327 · 发表于 2009-9-11 13:40

下载了学习

		自动登录	找回密码
密码			免费注册

[求助]自杀的代码(已解决)

最新热点 /1