[求助]请问,这个LonsoftDiskSerial控件该如何使用

jzwwpp

引用该控件,在窗体上加一个文本框和此控件,然后用以下语句赋值(text1.value=LDiskSerial2.ComputerID),但不成功,请问高手该如何正确使用..下面是该控件下载

jzwwpp

谁给解答一下呀?

jzwwpp

自己顶，，求解！！！！

情比金坚

以下是一个例子im LDiskSerial1 As LDiskSerial

Set LDiskSerial1 = New LDiskSerial

If LDiskSerial1.ReadDiskSerial("anyChars, "anyChars") Then

     Debug.Print LDiskSerial1.SerialNumber

Else

     MsgBox "Sorry, Read harddisk information fail!", vbCritical, "Err"

End If

情比金坚

没用过这个东西，下面的信息希望能帮到你

TotalControllers 属性



取得硬盘的控制器数量。

语法:[form!]LDiskSerial.TotalControllers



返回值:返回硬盘的数量。该值一般在1-4之间，因为的主板一般只有4个IDE插口。

Controller 属性



取得硬盘控制器。

语法:[form!]LDiskSerial.Controller



返回值:1=Primary Controller 2=Secondary Controller

       3=Tertiary Controller 4=Quaternary Controller

ControllerType 属性



取得硬盘控制器是在主盘还是在副盘

语法:[form!]LDiskSerial.ControllerType



返回值: 0=主盘 1=副盘

DriveType 属性



驱动器类型

语法:[form!]LDiskSerial.DriveType



返回值: "Removable"; "Fixed"; "Unknow";

SerialNumber 属性



硬盘序列号

语法:[form!]LDiskSerial.SerialNumber



返回值: 返回硬盘序列号的字符串。

RevisionNumber 属性



硬盘修订号

语法:[form!]LDiskSerial.RevisionNumber



返回值: 返回硬盘修订号，字符串。

BufferSize 属性



硬盘修订号

语法:[form!]LDiskSerial.BufferSize



返回值: 返回硬盘缓存的大小，字节数。字符串。

Heads 属性



硬盘的磁头数

语法:[form!]LDiskSerial.Heads



返回值: 返回硬盘的磁头数，字符串。

Cylinders 属性



硬盘的柱面数

语法:[form!]LDiskSerial.Cylinders



返回值: 返回硬盘的柱面数，字符串

Sectors 属性



硬盘的每磁道的扇区数

语法:[form!]LDiskSerial.Sectors



返回值: 返回硬盘每磁道的扇区数，字符串。

ComputerID 属性



与用户计算机相关的序列号

语法:[form!]LDiskSerial.Sectors



返回值: 返回与用户计算机相关的序列号，字符串。如196727438等...

方法：

语法: ReadDiskSerial (<RegName>,<RegCode>,[curController])

功能：读取硬盘的资料。

参数：regName为注册名；regCode为注册码；curController为欲读取的硬盘控制器，默认为1。

返回值：

0 --读取成功； 1 --注册码无效；

2 --无效的控制器； 3 --注册码及控制器无效。

[此贴子已经被作者于2005-2-28 21:24:07编辑过]

jzwwpp

以下是引用情比金坚在2005-2-28 21:16:10的发言：

以下是一个例子:

Dim LDiskSerial1 As LDiskSerial

Set LDiskSerial1 = New LDiskSerial



If LDiskSerial1.ReadDiskSerial("anyChars, "anyChars") Then

     Debug.Print LDiskSerial1.SerialNumber

Else

     MsgBox "Sorry, Read harddisk information fail!", vbCritical, "Err"

End If

Set LDiskSerial1 = New LDiskSerial

这一句有问题：编译错误，无效使用new关键字。。

十分感谢情比金坚的详细的解答，，，，

情比金坚

很不错的控件，好用。推荐一下：

jzwwpp

谁能给破解一下。。。这个控件需要注册