风帆小筑

心有多大 世界就有多大

获取本机硬盘物理系列号

Private Declare Function icePub_machineGetInfo Lib "icePubDll.dll" (ByVal typeFlag As Integer, ByVal strInfo As String) As Integer

Dim a2 As Integer
Dim str1 As String

str1 = Space(1024 * 10)

a2 = icePub_machineGetInfo(1, str1)
MsgBox "mac:" + str1
a2 = icePub_machineGetInfo(2, str1)
MsgBox "cpu:" + str1
a2 = icePub_machineGetInfo(3, str1)
MsgBox "hard:" + str1
a2 = icePub_machineGetInfo(4, str1)
MsgBox "memery:" + str1
a2 = icePub_machineGetInfo(5, str1)
MsgBox "boarddate:" + str1


承接各种软件开发业务,数据库方面 二次开发。 QQ: 475847 mail: jinesc@163.com

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

搜索
控制面板
您好,欢迎到访网站!
  查看权限
网站分类
最新留言
«    2021年6月    »
123456
78910111213
14151617181920
21222324252627
282930

Powered By Z-BlogPHP 1.7.0

© © 2002-2026 jinesc 版权所有 ICP证: 沪ICP备16005980号-1 沪ICP备16005980号-2 沪ICP备16005980号-3