Office中国论坛/Access中国论坛

标题: [求助]请问,这个LonsoftDiskSerial控件该如何使用 [打印本页]

作者: jzwwpp    时间: 2005-2-28 02:01
标题: [求助]请问,这个LonsoftDiskSerial控件该如何使用
引用该控件,在窗体上加一个文本框和此控件,然后用以下语句赋值(text1.value=LDiskSerial2.ComputerID),但不成功,请问高手该如何正确使用..下面是该控件下载

[attach]9097[/attach]


作者: jzwwpp    时间: 2005-2-28 03:34
谁给解答一下呀?
作者: jzwwpp    时间: 2005-3-1 02:07
自己顶,,求解!!!!
作者: 情比金坚    时间: 2005-3-1 05:16
以下是一个例子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
作者: 情比金坚    时间: 2005-3-1 05:22
没用过这个东西,下面的信息希望能帮到你

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-3-1 05:39
以下是引用情比金坚在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关键字。。

十分感谢情比金坚的详细的解答,,,,
作者: 情比金坚    时间: 2005-3-1 07:26
很不错的控件,好用。推荐一下:[attach]9119[/attach]


作者: jzwwpp    时间: 2005-3-2 16:25
谁能给破解一下。。。这个控件需要注册




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3