您現(xiàn)在的位置： > 技術沙龍 > 程序設計 > VB > 用VB6.0取得系統(tǒng)信息技巧
- 相關軟件
>用VB6.0取得系統(tǒng)信息技巧 創(chuàng)建者：webmaster 更新時間：2005-07-02 01:44
假如我們想要用VB6.0 取得系統(tǒng)信息，可以通過VB6.0的sysinfo控件和Windows API函數來實現(xiàn)。
一、用sysinfo控件獲得操作系統(tǒng)版本
要用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
若創(chuàng)建一個標準工程，在窗體放置三個命令按紐:commandl, command2, command3。用鼠標點擊按紐，即可實現(xiàn)上述功能。
相關文章
本頁查看次數: