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

VB学习过程(一)在win7系统下VB6.0的安装

2013/10/27:           一直想自学一下VB语言,但是没时间,最近决定每晚花出一定时间来学习。写博客一是为了督促自己坚持,二是为了和大家一起分享一下学习VB的过程。        ...
  • lxk7280
  • lxk7280
  • 2013年10月27日 21:49
  • 7201

VB6.0学习笔记 之 输入与输出(一)

一.杂谈 其实这部分就是用来发发牢骚,随便乱扯,跟vb6.0的学习完全没有半毛钱的关系 vb6.0按道理上来说已经是一个老古董了,可以说已经是个过时的语言。现在也没有听说有用vb6.0开发的商业软...
  • twfsim
  • twfsim
  • 2015年08月28日 21:07
  • 460

取得Linux系统的各种统计信息

另附参考:http://www.linuxinsight.com/proc_filesystem.html 本文基于Linux 2.6.x内核 一、取得CPU信息(相关文件/proc/...
  • haoshen1987
  • haoshen1987
  • 2013年06月04日 11:18
  • 548

Android取得系统信息和分辨率内存信息

Android取得系统信息和分辨率内存信息                分类:            Android2012-12-18 17:22186人阅读评论(0)收藏举报 andr...
  • u011794223
  • u011794223
  • 2013年12月24日 16:55
  • 515

VB6 API获取并口、串口端口名和友好名

Option Explicit Private Type GUID 'GUID数据类型 Data(0 To 3) As Long End Type Private Type...
  • u013082684
  • u013082684
  • 2015年07月27日 15:36
  • 1685

网络信息检索的方法和技巧

布尔逻辑检索 布尔逻辑检索也称作布尔逻辑搜索,严格意义上的布尔检索法是指利用布尔逻辑运算符连接各个检索词,然后由计算机进行相应逻辑运算,以找出所需信息的方法。它使用面最广、使用频率最高。布尔逻辑...
  • u012942555
  • u012942555
  • 2015年08月03日 11:47
  • 807

利用Javascript通过WMI取得Windows系统信息

用户访问web服务出错时若是能得到用户的系统配置信息,想必是极好的。我们来试试通过网页搞定这件事。...
  • alaahong
  • alaahong
  • 2013年12月11日 18:58
  • 1201

取得文件夹内容信息 .

本文转载自:http://blog.sina.com.cn/s/blog_56dee71a0100frhy.html   翻译自MSDN 2005 -> Win32 和 COM 开发 -> U...
  • huasonl88
  • huasonl88
  • 2013年02月05日 14:48
  • 658

eclipse 断点调试方法

作为开发人员,掌握开发环境下的调试技巧十分有必要。去年就想把关于Eclipse断点调试总结下了,由于对时间的掌控程度仍需极大提高,结果拖到今年才写了此篇博文。关于Java调试技术还有很多,如Java ...
  • sinat_22797429
  • sinat_22797429
  • 2016年10月30日 16:23
  • 1105

取得手机的网络信息

在main.xml中:     xmlns:android="http://schemas.android.com/apk/res/android"   android:orientat...
  • helloliyewen
  • helloliyewen
  • 2013年09月10日 00:12
  • 1390
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用VB6.0取得系统信息技巧
举报原因:
原因补充:

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