top
Loading...

用VB6.0取得系統信息技巧
假如我們想要用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。用鼠標點擊按紐，即可實現上述功能。

作者：http://www.zhujiangroad.com
來源：http://www.zhujiangroad.com
北斗有巢氏 有巢氏北斗