用VB6.0取得系统信息技巧
2005-03-02 17:24
351 查看
假如我们想要用VB6.0 取得系统信息,可以通过VB6.0的sysinfo控件和Windows API函数来实现。
一、用sysinfo控件获得操作系统版本
要用sysinfo控件,必需在部件引用中选择Microsoft Sysinfo Control复选框。程序
代码如下:
二、用Windows的Getsysteminfo函数获得CPU型号
窗体的声明代码:
程序代码:
三、用Windows的Getdrivetype函数获得驱动器类型
窗体的声明代码:
程序代码:
若创建一个标准工程,在窗体放置三个命令按纽:commandl, command2, command3。用鼠标点击按纽,即可实现上述功能。
一、用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 |
窗体的声明代码:
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 |
窗体的声明代码:
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 |
相关文章推荐
- 单点登录系统CAS筹建及取得更多用户信息的实现
- 取得Linux系统的各种统计信息
- windows下取得系统常用信息方法
- 用java取得linux系统cpu、内存的实时信息
- 利用Javascript通过WMI取得Windows系统信息
- windows8 取得系统信息
- 用java取得linux系统cpu、内存的实时信息
- 用java取得linux系统cpu、内存的实时信息
- Android取得系统信息和分辨率内存信息
- 手动修改系统属性常规中OEM信息的技巧
- Android取得系统信息和分辨率内存信息
- Android取得系统信息和分辨率内存信息
- 用java取得linux系统cpu、内存的实时信息
- 取得Linux系统的各种统计信息
- 用java取得linux系统cpu、内存的实时信息(参考别人代码)
- vc++取得系统信息,并实时刷新
- 系统打印信息的查看技巧
- Linux系统信息命令使用技巧
- vc++取得系统信息,并实时刷新