用VB6.0取得系统信息技巧

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

假如我们想要用VB6.0 取得系统信息，可以通过VB6.0的sysinfo控件和WINDOWS的API函数来实现。

作者：务实来源：天极网 2007年10月14日

假如我们想要用VB6.0 取得系统信息，可以通过VB6.0的sysinfo控件和Windows API函数来实现。

　　一、用sysinfo控件获得操作系统版本

　　要用sysinfo控件，必需在部件引用中选择Microsoft Sysinfo Control复选框。程序

　　代码如下:

Private Sub Command1_ Click()
　Dim MsgEnd As String
　Select Case SysInfo1.OSPlatform
　Case 0
　　MsgEnd="Unidentified"
　Case 1
　　MsgEnd="Windows 95, ver."&CStr(SysInfo1.OSVersion)
　Case 2
　　MsgEnd="Windows NT, ver."&CStr(SysInfo1.OSVersion)
　　End Select
　　MsgBox "System:" & MsgEnd
　End Select
　MsgBox "System: "& MsgEnd
End Sub

　　二、用Windows的Getsysteminfo函数获得CPU型号

　　窗体的声明代码:

Private Type system-info
　dwoemid As Long
　dwpagesize As Long
　ipminimumapplicationaddress As Long
　lpmaximumapplicationaddress As Long
　dwactiveprocessormask As Long
　dwnumberofprocessors As Long
　dwallocationgranularity As Long
　dwreserved As Long
End Type
Private Declare Sub GetSystemInfo Lib "kernel32"
(IpSystemInfo As system-info)

　　程序代码:

Private Sub Command2_ Click()
　Dim sys As system-info
　GetSystemInfo sys
　Pring "CPU类型:";sys.dwprocessortype
　Pring "no.processors:";sys.dwnumberofprocessors
End Sub

　　三、用Windows的Getdrivetype函数获得驱动器类型

　　窗体的声明代码:

Option Explicit
Const drive removable=2
Const drive fixed=3
Const drive remote = 4
Const drive cdrom=5
Const drive ramdisk=6
Private Declare Function GetDriveType Lib "kernel32"
Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

　　程序代码:

Private Sub Command3_ Click()
Dim i, drv, d$
For i=0 to 25
d$=Chr$(i+65)& ":"
drv=GetDriveType(d$)
Select Case drv
　Case drive removable
　　Print "drive" & d$ & "is removable."
　Case drive fixed
　　Print "drive" & d$ & "is fixed."
　Case drive remote
　　Print "drive" & d$ & "is remote."
　Case drivt cdrom
　　Print "drive" & d$ & "is cd-rome."
　Case drive ramdisk
　　Print "drive" & d$ & "is ramdisk."
　Case Else
　　End Select
　　Next i
End Sub

　　若创建一个标准工程，在窗体放置三个命令按纽:commandl, command2, command3。用鼠标点击按纽，即可实现上述功能。

查看本文来源

VIP专区

VIP用户

普通用户

邮件订阅

如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。

重磅专题

往期文章

用VB6.0取得系统信息技巧

业界热点: