用VB6.0取得系统信息

页面导航:首页 > 软件编程 > vb.net > 用VB6.0取得系统信息

用VB6.0取得系统信息

来源: 作者: 时间:2016-02-05 12:32 【

假如我们想要用VB6.0 取得系统信息,可以通过VB6.0的sysinfo控件和Windows API函数来实现。 一、用sysinfo控件获得操作系统版本 要用sysinfo控件,必需在部件引用中选择Microsoft Sysinfo Control复选

假如我们想要用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。用鼠标点击按纽,即可实现上述功能。

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <