用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。用鼠标点击按纽,即可实现上述功能。
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值