网站建设| 数据库类| 图形图象| 程序设计| 现代办公| 操作系统| 考试认证| 网络技术| 软件工程| 电脑相关| 文学作品
网站开发| 网页制作| 操作系统| 图象图形| 考试认证| 数据库类| 程序设计| 硬件技术| 现代办公| 网络技术| 笑话频道
 
您的位置: 电脑书库首页-> 电脑文摘-> 程序设计-> Basic/VB类-> 用VB6.0取得系统信息技巧

用VB6.0取得系统信息技巧
作者:佚名 来源:InterNet 加入时间:2005-1-28
相关文章
  • VB图像处理之图像的亮度对比度调整
  • VB实现文件数据对SQL Server上传下载
  • 用VB6.0编写磁盘格式化程序
  • VB图像处理之图像的色彩纠正
  • VB图像处理之铅笔画算法和木雕算法
  • VB图像处理之几个常用滤镜的实现
  • VB图像处理之二次线性插值的应用
  • VB图像处理之像素的获取和输出
  • VB实现图像在数据库的存储与显示
  • 利用VB6.0开发基于IIS的应用程序
  • 相关书籍:
  • VBScript语言参考
  • VBScript函数速查手册
  • VBScript5.5脚本语言参考
  • VB上机考试综合应用题选讲
  • vb另外两套教案
  • VB光盘资料库
  • VB、C快速进阶 2.0
  • Web 对象 VB参考
  • VB编程技巧集(中)--站长推荐
  • VB编程技巧集(上)--站长推荐
  • 假如我们想要用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。用鼠标点击按纽,即可实现上述功能。

    [文章录入员:nancy]

    相关文章
  • VB图像处理之图像的亮度对比度调整
  • VB实现文件数据对SQL Server上传下载
  • 用VB6.0编写磁盘格式化程序
  • VB图像处理之图像的色彩纠正
  • VB图像处理之铅笔画算法和木雕算法
  • VB图像处理之几个常用滤镜的实现
  • VB图像处理之二次线性插值的应用
  • VB图像处理之像素的获取和输出
  • VB实现图像在数据库的存储与显示
  • 利用VB6.0开发基于IIS的应用程序
  • 相关书籍:
  • VBScript语言参考
  • VBScript函数速查手册
  • VBScript5.5脚本语言参考
  • VB上机考试综合应用题选讲
  • vb另外两套教案
  • VB光盘资料库
  • VB、C快速进阶 2.0
  • Web 对象 VB参考
  • VB编程技巧集(中)--站长推荐
  • VB编程技巧集(上)--站长推荐
  • 本站推荐内容

    近期主机类热搜关键词:
    美国服务器 美国服务器租用 海外服务器租用 国外服务器租用

    Basic/VB类
    C/C++/VC
    C++Builder
    Basic/VB类
    Delphi/Pascal
    Java编程
    FORTRAN
    其它
    电脑教程阅读排行
    ·VB学习一点通
    ·VB设计动画时钟
    ·在Visual Basic 6....
    · 用VB6.0编写手机短信发送 ...
    ·VB实现文件数据对SQL Ser...
    ·利用Visual Basic操作...
    ·VB实现图像在数据库的存储与显示
    ·用Visual Basic6.0...
    ·Visual Basic代码优化...
    · VB中实现“无标题”窗体的移动...