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

jpowe

QUOTE:

以下是引用gvntw在2008-9-6 22:10:00的发言：

TO luanyu6688：

请参考下帖：

http://club.excelhome.net/display.asp?tid=3&uid=30306&B=2&t=351936

QUOTE:

gvntw:好!看过本贴和相关帖子.文中所提及的磁盘序列号其实指的是硬盘分区后各分区的序列号,而不是整个物理硬盘的序列号,当XLS文件运行的路径所在分区改变时(本地物理硬盘并未改变),VBA代码便要作出相应的修改,请教斑竹能否用VBA直接提取整个物理硬盘的序列号?

[此贴子已经被作者于2008-9-9 23:07:15编辑过]

jpowe

QUOTE:

以下是引用sigmaxion在2008-9-9 20:14:00的发言：

请教gvntw版主：

如何查看硬盘序列号？

参考贴中图片:

http://club.excelhome.net/viewthread.php?tid=351936

gvntw

QUOTE:

以下是引用jpowe在2008-9-9 23:07:00的发言：

用“物理”在程序开发版搜索一下就有了。

http://club.excelhome.net/display.asp?tid=3&uid=30306&B=2&t=223929

jpowe

QUOTE:

以下是引用gvntw在2008-9-10 9:49:00的发言：

用“物理”在程序开发版搜索一下就有了。

http://club.excelhome.net/display.asp?tid=3&uid=30306&B=2&t=223929

谢谢斑竹了!期待gvntw斑竹能够将以下的作相应的修改,以物理硬盘序列号作为唯一识别码,给本贴一个完美的了结;

不胜感激!再次谢谢

Sub Auto_Open()
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(ThisWorkbook.Path)))
    s = d.serialnumber   
    If s = "1887177355" Then Exit Sub

luanyu6688

我也在期待gvntw斑竹能够作相应的修改,以物理硬盘序列号或以CPU的ID号作为唯一识别码,给本贴一个完美的了结;我上传一个获取硬盘号和获取CPU的ID号的附件 wHm1GrRU.rar (26.9 KB, 下载次数: 390)

2008-9-10 20:37 上传

点击文件名下载附件

[此贴子已经被作者于2008-9-10 20:37:55编辑过]

逗人

QUOTE:

以下是引用gvntw在2008-9-3 11:52:00的发言：
Sub Auto_Open()
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(ThisWorkbook.Path)))
    s = d.serialnumber    '磁盘序列号
    If s = 要使用的电脑磁盘序列号 Then Exit Sub
   
    Dim FirstDate, de, days
    FirstDate = Date
    de = GetSetting("XXX", "YYY", "date", "")  '从注册表取值
    If de = "" Then   '如果取不到值
        SaveSetting "XXX", "YYY", "date", FirstDate  '把日期保存到注册表
        Else
        days = Date - CDate(de)  '计算文件使用的天数
        If days > 60 Then    '如果文件使用超过60天
            ThisWorkbook.ChangeFileAccess xlReadOnly  '改为只读属性
            Kill ThisWorkbook.FullName  '自杀
            ThisWorkbook.Close False  '关闭不保存
        End If
    End If
End Sub

用硬盘序列号

QUOTE:

以下是引用gvntw在2008-9-10 9:49:00的发言：

用“物理”在程序开发版搜索一下就有了。

http://club.excelhome.net/display.asp?tid=3&uid=30306&B=2&t=223929

填在

If s = " " Then Exit Sub 里不能用

还是有提示

[此贴子已经被作者于2008-9-11 11:18:57编辑过]

ni57

是啊，把序列号填在

If s = " " Then Exit Sub

还是不能用，还是有提示，不知为何呢？

kicoki

硬盘序列号发现从那个小程序里面提出来的有问题

把程序改一下 通过提取s可以得出来硬盘序列号

然后才可以用

这段程序很实用！

ni57

kicoki兄，能否具体说明一下吗？

“把程序改一下 通过提取s可以得出来硬盘序列号” 

怎么改呢？

我的硬盘序列号是通过深度xp系统自带的硬盘工具得出来的，应该序列号没错，

改为

If s = "5RA2G5YJ " Then Exit Sub '要使用的电脑磁盘序列号

后，仍然有限制提示，请帮帮忙，谢谢了

cmcc1861

对啊。我的也是有提示。修改成了自己电脑的序列号。还是有时间提示。

If s = "000000" Then Exit Sub '要使用的电脑磁盘序列号

还会有那个提示框的，不会EXIT啊？

why？