提取电脑硬件有关数据（二）

上次讲到识别系统序列号，这次我就利用上序列号了。下面这段代码复制到excel中，这样就可以保护你的知识产权了。

Private Sub workbook_open()
Dim min As String
min = Environ("computername")
Dim DRIVEID
Dim ID As String
Dim IM As String
IM = "-123456"
Set DRIVEID = CreateObject("scripting.filesystemobject")
ID = DRIVEID.GETDRIVE("c").serialnumber
If min <> "20110802-1228" or ID<>IM

ActiveWorkbook.SAVE
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.Quit
End If
End Sub

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/24345566/viewspace-1053426/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/24345566/viewspace-1053426/