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

ni57

QUOTE:

以下是引用ni57在2008-9-12 3:26:00的发言：

谢谢jpowe兄，我再看，因为vba方面的知识太缺乏了，其实我学习此贴和关于利用U盘做密钥盘，加密Excel文件那个贴子，已经有1天时间了，看了不下20遍，感觉还是蒙蒙的。看来要准备下载打印，深入猜想了。

不知俺这样理解对不对，问题的关键在对序列号的求解：此序列号非彼序列号。用什么提取硬盘序列号的VBA程序或其他软件提出来的东东是真正的硬盘序列号，但不是这个帖子里VBA所需的“序列号”（冤啊）。对此特别号码理解是从“利用U盘做密钥盘，加密Excel文件”http://club.excelhome.net/dispbbs.asp?boardid=2&replyid=20376&id=351936&page=1&skin=0&Star=1第一楼的gif动画里悟出来了，不对，是看出来了，终于看出来了，看出来了。阿妈，我得啦…………

不对之处，请各位老师不吝赐教，谢谢。

gxuan2008

我看的很吃力啊。。。

汗。

[此贴子已经被作者于2008-9-12 16:32:09编辑过]

Outlook

不错，谢谢楼主。

jpowe

QUOTE:

以下是引用figfig在2008-9-12 0:48:00的发言：

s = Trim(GetObject("winmgmts:").InstancesOf("Win32_PhysicalMedia")("Win32_PhysicalMedia.Tag=""\\\\.\\PHYSICALDRIVE1""").serialnumber)

把0改成1,就是第2个硬盘,改2就是第3个硬盘

　太感谢FIGFIG了.受益非浅.

jpowe

QUOTE:

以下是引用逗人在2008-9-12 8:56:00的发言：

一台笔记本电脑调试成功，另一台电脑运行时出现“运行时错误'-2147217406（80041002）’：找不到

调试出现s = Trim(WMI.InstancesOf(strCls)(strKey).serialnumber)

这是怎么回事如何解决？

这里有没人试过提取物理硬盘序列号时出现空值的情况?我已听说

逗人

“gvntw的宏”是文件所在盘的的序列号，文件置放盘（如c盘改放在d盘）变化，其盘的的序列号也要变化[调试成功}

“figfig的宏”是硬盘VBA的_ID号，通过“Windows优化大师”可以查该硬盘VBA的_ID号，在调试过程中

一台笔记本电脑调试成功，另一台电脑运行时出现““运行时错误'-2147217406（80041002）’：找不到”

调试出现s = Trim(WMI.InstancesOf(strCls)(strKey).serialnumber)

 

[此贴子已经被作者于2008-9-17 9:26:44编辑过]

gxuan2008

我想问一下：

怎样编写一段代码只允许在工作表输入，不能复制。

也就是说上面说的自杀代码是很有用，但别人可以把内容复制到一个新的工作薄里啊。

要如何限制复制呢？

ni57

楼上所言极是，关注

vegas

怎么我的不能测试呢 XP+office2000

gzgis

看了这段代码，很是感动。

我的要求是：如果此程序在本机上运行，则无时间限制，也不要弹出提示还能运行多少天；只有复制本程序到其它机器运行，则只能运行60天后将自动停止工作，代码将如何修改？

原代码如下：

Sub auto_open()

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

    If s = "VFJ161R71TY6XK" Then  '要使用的电脑磁盘序列号,注意加引号
    MsgBox "序列号正确!"
    Exit Sub
    End If
     Dim FirstDate, de, days
    FirstDate = Date
    de = GetSetting("XXX", "YYY", "date", "")  '从注册表取值
    If de = "" Then   '如果取不到值
        SaveSetting "XXX", "YYY", "date", FirstDate  '把日期保存到注册表
        MsgBox "本文件可使用60天，今天是第1次使用", , "提示"
    Else
        days = Date - CDate(de)  '计算文件使用的天数
        If days > 60 Then    '如果文件使用超过60天
            MsgBox "已超过使用期限，本文件将自杀", , "警告"
            ThisWorkbook.ChangeFileAccess xlReadOnly  '改为只读属性
            Kill ThisWorkbook.FullName  '自杀
            ThisWorkbook.Close False  '关闭不保存
        End If
        MsgBox "本文件已使用" & days & "天，还有" & 60 - days & "天可使用", , "提示"
    End If
End Sub

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