分享

   

PK10牛牛开奖结果

2018-04-22  shermansh...

(已解决:完整代码在7楼或14楼, 13楼有获取磁盘序列号代码)

108楼有利用U盘物理序列号作为密钥,对Excel文件进行加密(已通过测试)。 

 

    能否做成轻松制作密钥盘的程序,点一下按钮,U盘序列号和程序一起就写入到被加密的Excel文件。一键搞定! 期待中!

看了gvntw版主写的利用磁盘序列号的自杀代码,真是佩服。

因为U盘的序列号是唯一的,利用U盘做密钥盘,经常应用在一些商用应用程序中,达到保密和保护知识产权的目的. 在Excel平台上开发的系统也可以利用U盘的序列号进行加密.这是我的想法.

gvntw版主把下列代码改造一下,使第5行能返回的是U盘的序列号,这样就可以利用U盘做密钥盘,加密Excel文件。

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    'U盘序列号
   (现在返回的序列号是C:盘的序列号)

    If s = -1330828335 Then Exit Sub  
       MsgBox '请插入密钥U盘!'

      ThisWorkbook.Close False  '关闭不保存

    End If
End Sub

 

[此贴子已经被作者于2008-9-19 13:44:33编辑过]

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。如发现有害或侵权内容,请点击这里 或 拨打24小时举报电话:4000070609 与我们联系。

    猜你喜欢

    0条评论

    类似文章 更多
    喜欢该文的人也喜欢 更多