VFP读取硬盘序列号

[xilaianzxsc]

这二天,一直在研究这个问题(VFP读取硬盘序列号),但一直没有研究明白

有没有现成的程序?

刚才看了一个贴,说要有个dll来支持,这样,解决得比较快

http://www.dai-ma.com/code/c/chuanti/43525288457.html

可是,即使我下载了这个dll,也不会用.

请老师详细指导一下

[xilaianzxsc]

或CPU序列号.

[十豆三]

VFP获取Cpu的DeviceID.使用率.ProcessorId及Name
*--------------------------------------------

oWMI=Getobject("winmgmts://./root/cimv2")
oCpus=oWMI.InstancesOf("Win32_Processor")
For Each oCpu In oCpus
?oCpu.DeviceID
?oCpu.LoadPercentage,"%"
?oCpu.ProcessorId
?oCpu.Name
Endfor

[十豆三]

*假设此 reg.dll 在 d:\temp 目录下

Declare String ReadPhysicalDrive In d:\temp\reg.Dll
?ReadPhysicalDrive() && 硬盘序列号

Declare String GetCPUID In d:\temp\reg.Dll
?GetCPUID() && cpu 序列号


你要用外部控件，不如用 木瓜 的 MyFll.Fll

函数名：GetDiskSerial([nDriveIndex])
缩写：GetD
读取指定硬盘的序列号。注意：部分硬盘可能没有序列号。支持Win95、98、Me、NT、2000、XP、2003，支持User权限，支持IDE、SATA、SCSI硬盘及部分移动硬盘。
返回值：
字符串，成功读取返回硬盘序列号，否则返空值。
参数：
[nDriveIndex]：可选。第x个硬盘，可用值为1-X，
默认值为1，即第一块硬盘。如果只有一块硬盘，即可省略此参数。
示例代码
Set Library To myFll

?"第一块硬盘序列号为："+GetDiskSerial()

?"第二块硬盘序列号为："+GetDiskSerial(2)

Set Library To

[十豆三]

函数名：GetCpuId()
缩写：GetC
读取CPU的序列号，注意，部分CPU可能无法读取序列号
返回值：
字符型，CPU的序列号
参数：
无
示例代码
Set Library To myFll

?"你的CPU为："+GetCpuId()

Set Library To



Myfll.fll 的下载地址：

http://bbs.meizvfp.com/viewFile.asp?BoardID=2&ID=33418

[xilaianzxsc]

谢谢十豆三老师