|
假如我們想要用VB6.0 取得系統(tǒng)信息,可以通過VB6.0的sysinfo控件和Windows API函數(shù)來實(shí)現(xiàn)。
一、用sysinfo控件獲得操作系統(tǒng)版本
要用sysinfo控件,必需在部件引用中選擇Microsoft Sysinfo Control復(fù)選框。程序
代碼如下:
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函數(shù)獲得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函數(shù)獲得驅(qū)動器類型
窗體的聲明代碼:
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)建一個標(biāo)準(zhǔn)工程,在窗體放置三個命令按紐:commandl, command2, command3。用鼠標(biāo)點(diǎn)擊按紐,即可實(shí)現(xiàn)上述功能。
|