用VB6.0取得系统信息技巧

转载 2005年03月02日 17:24:00
假如我们想要用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。用鼠标点击按纽,即可实现上述功能。

联通放弃BREW,选择J2ME

我发现用Java做手机开发真的是一件很有“钱途”的工作。 ——————————————————————————Chinese mobile operator hedges bets with Java...
  • gigix
  • gigix
  • 2003-07-16 13:58:00
  • 2152

获取本地计算机名(VB6.0源代码编写)可以获取本地计算机名

  • 2010年03月05日 21:05
  • 795KB
  • 下载

通过WMI获取系统信息

要了解WMI,请查阅:http://www.microsoft.com/china/technet/community/scriptcenter/resources/wmifaq.mspx#EJC 。...
  • lbird
  • lbird
  • 2006-04-27 17:44:00
  • 3109

获取运行程序(控件)名称和内容程序(VB6.0代码编写)

  • 2008年09月13日 07:39
  • 5KB
  • 下载

精彩编程与编程技巧-用VB6.0中文版进行DHTML程序开发...

  • 2009年10月10日 23:35
  • 5KB
  • 下载

取得系统信息

  • 2014年08月10日 17:39
  • 826B
  • 下载

系统信息取得

  • 2012年10月23日 14:41
  • 4KB
  • 下载

精彩编程与编程技巧-用vb6.0开发通信软件的技巧...

  • 2009年10月10日 23:27
  • 6KB
  • 下载

取得系统信息集-引用 Microsoft WMI Scripting

  • 2009年01月08日 10:49
  • 3KB
  • 下载

VB6.0中的窗口控制技巧(3)

用Visual Basic设计更好的用户界面 有时在一个窗口中出现较多的控制件时,如果能向导式地建议用户下一步该做什么,不失为上策。在Visual Basic的程序设计中,我们可以使用语句:Objec...
  • lbuskeep
  • lbuskeep
  • 2011-02-18 00:46:00
  • 4256
收藏助手
不良信息举报
您举报文章:用VB6.0取得系统信息技巧
举报原因:
原因补充:

(最多只允许输入30个字)