用硬盘序列号进行加密.
用FSO(文件系统对象模型)可以实现上述功能.
FSO对象模型包含在SCRIPTING类型库(SCRRUN.DLL)中,它同包含了DRIVE、FOLDER、FILE、FILESYSTEMOBJECT、TEXTSTREAM五个对象。
调用方法如下:
在项目菜单中选择引用,在COM中选择MICROSOFT SCRIPTING RUNNTIME 在代码最顶端添加
IMPORTS SCRIPTING
在代码模块中添加 DIM FSOTEST AS NEW FILESYSTEMOBJECT
在事件中定义如下:
Dim drv1 As Drive, sReturn As String
Dim drvspace As String
drv1 = FsoText.GetDrive("c:\")
sReturn ="磁盘序列号:" & drv1.SerialNumber & vbCrLf
txtbox.Text = sReturn
End Sub