vb显示电脑系统的信息,vb显示的代码怎么写

1.vb语言是如何获得系统时间的

2.如何用VB函数访问系统注册表

3.VB显示系统时间的代码是什么？

4.VB中，SysInfo控件怎么用？

5.VB获取操作系统版本信息问题

6.vb 中如何让程序运行时就显示时间 并且能动态显示系统时间

7.求解，用VB获取系统信息问题

在form里加上一个体text，一个timer。设定timer的Interval为1000。

然后加上如下代码：

Private Sub Timer1_Timer()

Text1.Text = Now

End Sub

注：Text1.Text = Now也可以换作：Text1.Text = Time

vb语言是如何获得系统时间的

如只是想列驱动器名，如下很简单的，网络驱动器映射后也一样能列出。

‘列出所有驱动器，不含A，B

Dim drv() As String

Dim sd As String

drv() = Split("C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z", ",")

For i = 0 To 23

sd = drv(i) & ":\"

If Dir(sd, vbDirectory) <> "" Then

comb.AddItem sd ’添加到列表中

End If

Next

如何用VB函数访问系统注册表

vb中获取系统当前的时间用函数 now() 就可以。另外还有相关的时间 date() time()

now()获取系统当前日期和时间，如：2015-12-12 22：23：34

time()获取系统的时间，如：22：23：34不显示当前日期

date()获得系统的日期，如：2015-12-12

Private Sub Command1_Click()

MsgBox Now()

MsgBox Time()

MsgBox Date

End Sub

VB显示系统时间的代码是什么？

注册表在Windows 9x中的作用是不言而喻的，它除了保存操作系统自身的软件、硬件及环境信息外，一个重要的用途就是保存应用程序中允许用户定制修改的配置信息。 在Visual Basic应用程序中，有两种访问系统注册表的方法：一种是使用VB自带的注册表函数，另一种则是使用Windows API函数，这两种方法各有优缺点，前者功能简单但容易使用，后者则功能强大但使用相对复杂一些，本文给大家介绍用VB自带的函数访问系统注册表的方法。 一、用VB函数访问注册表的方法

在VB5.0中自带的注册表函数（命令）共有4条，分别是SeSetting、GetSetting、GetAllSettings和DeleteSetting，下面是四个函数的详细用法： 1?SeSetting name, section, key, setting name 应用程序或工程的名称

section 注册表区域名称，在该区域保存注册表项设置

key 要修改的注册表项的名称

setting key的设置值

SeSetting的功能是在注册表中指定应用程序的区域中为某注册表项赋值，如果指定的应用程序名、区域名或注册表项不存在，则先建立再赋值。可以利用这条命令建立某个注册表项或修改注册表项的值。 如命令SeSetting ″MyApp″, ″Option″, ″MyValue″, 1的功能是将程序TestApp的Option区中MyValue表项的值赋为1，如果MyValue不存在则先建立该表项再赋值为1。 2?GetSetting(name, section, key[, default]) name 应用程序或工程的名称

section 区域名称

key 注册表项名称

default key的缺省值，为可选参数

GetSetting的功能是从注册表中的应用程序指定区域中返回某注册表项的设置值，如果 GetSetting 的参数中的任何一项在注册表中都不存在，或key没有赋值（即=″″）时，则返回default指定的值。 如代码Value=GetSetting(″MyApp″, ″Option″, ″MyValue″)可以获取程序TestApp的Option区中MyValue表项的值。 3?GetAllSettings(name, section) name 应用程序或工程的名称

section 区域名称

GetAllSettings函数返回Variant型数据，其内容为字符串的二维数组，该二维数组包含指定区域中的所有注册表项设置及其对应值。如果指定的name或section不存在，则返回未初始化的Variant。 如命令MySettings=GetAllSettings(″MyApp″, ″Option″)可获取Option下所有注册表项的名称和取值，并将结果保存在变体型数据MySettings中。 4?DeleteSetting name[, section[, key] ] name 应用程序或工程的名称

section 要删除注册表项设置的区域名称，为可选参数

key 要删除的注册表项，为可选参数

DeleteSetting命令在注册表中，删除应用程序信息、区域或注册表项。当只提供name参数时，将删除name指定的应用程序的所有信息，如果提供了name和section参数，则删除section指定的区域，如果提供了所有参数，则删除指定的注册表项设置。 如果指定的应用程序、区域或注册表项不存在，DeleteSetting将不做任何事情。 如：DeleteSetting ″MyApp″将删除MyApp应用程序保存的全部信息。 二、程序实例

下面以一个简单的实例说明四个函数的使用。

新建工程，在Form1上放置两个标签，Caption属性分别为“姓名”和“公司”；两个文本框txtName和txtCompany，Text属性均设为空；三个命令按钮cmdSe、cmdFind和cmdDelete，Caption分别设为“保存”、“查看”和“删除”，窗体布局如图1。 给三个命令按钮添加如下代码：

Private Sub cmdSe_Click()

′将两个文本框中的内容分别赋给MyApp下User区中Name和Company SeSetting ″MyApp″, ″User″, ″Name″, txtName SeSetting ″MyApp″, ″User″, ″Company″, txtCompany MsgBox ″您的信息已成功保存！″

End Sub

Private Sub cmdFind_Click()

′查找MyApp下User区中Name和Company的设置值并显示 MsgBox ″您的姓名是：″ ＆ GetSetting(″MyApp″, ″User″, ″Name″) ＆ Chr(13) ＆ Chr(10) ＆ ″您的公司是：″ ＆ GetSetting(″MyApp″, ″User″, ″Company″) End Sub

Private Sub cmdDelete_Click()

′删除MyApp下的User区域及其下的所有注册表项 DeleteSetting ″MyApp″, ″User″ End Sub

运行程序，在图窗口中输入姓名和公司名称，之后按“保存”按钮，然后再按“查找”，可以看到显示出了正确的结果（图2），说明保存和查找操作都已正常进行。如果在保存之前或删除之后按“查找”按钮，则出现右图3对话框，说明要找的注册表项不存在。 使用上面介绍的四个函数（命令），我们可以非常容易地在VB代码中访问系统注册表。但有一点比较遗憾，VB的这几个函数只能在系统注册表的固定位置进行工作，即只能在\KEY_CURRENT_USER\Software\VB and VBA Program Settings下完成建立、修改和删除操作，当然这个限制对于一般的应用程序无关大局，但对较大的应用程序就会造成一些不便，这时我们就需要借助于Windows API函数。 </DIV<>

VB中，SysInfo控件怎么用？

建议去查阅相关资料，毕竟在这里只能给你大致的讲一下，下面给出VB显示系统时间的代码：

text1.text="今天是" & Format$(Now,"Long Date") ；

text2.text=Format$(Now,"dddd") ；

text3.text=Format$(Now,"Long Time")；

右击控件栏-部件-Microsoft Tabbed Dialong Control6.0。就能添加选项卡或者Microsoft Windows Common Control6.0(sp6)，选择Tabstrip控件Webbrowser控件用数组解决。

Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的驱动为机制的可视化程序设计语言。

VB获取操作系统版本信息问题

当一个程序正在运行时，SysInfo控件可以响应操作系统中发生的变化。这些变化能够触发控件的，并且程序在需要时候可以响应。为了能够在项目中使用SysInfo控件，首先你必须在组件对话框中选择这一控件，并将它添加到Toolbox中。

SysInfo控件能够检测多种系统发生的变化。这里列举了程序员最常使用的：

DeviceRemoveComplete：当移动一个装置（如可移动磁盘）时。

DisplayChanged：当屏幕分辨率改变时。

PowerSuspend：系统进入暂停模式之前。

SysColorsChanged：系统颜色改变时。

TimeChanged：系统时间改变时。

我使用这一控件的一种方法是，编写代码以响应DisplayChanged。如果用户在程序运行时改变屏幕分辨率，程序能够调整窗体尺寸以适应新的屏幕分辨率设置。

而且，SysInfo控件具有一系列属性，这些属性可以让你的程序获得操作系统的信息。其中有一些属性只与运行于掌上电脑的程序有关。例如，你可以使用ACStatus属性去判断掌上电脑是否以交流电方式工作，并且BatteryLifeTime属性可以返回电池可以工作时间。

其它的SysInfo控件属性提供有关Windows台式电脑的信息，具体而言，有四种关于提供工作区信息的属性。这些属性是WorkAreaHeight,

WorkAreaWidth,

WorkAreaTop,

WorkAreaLeft。这些属性返回的值都是以twips格式。例如，当任务栏位于屏幕下方的默认位置时，WorkAreaHeight将返回整个屏幕高度减去任务栏高度的值。同样，当你移动任务栏到屏幕左边时，WorkAreaWidth将返回整个屏幕宽度减去任务栏宽度的值。

这里是一个使用这些属性的例子。当窗体显示时，Form_Load程序触发窗体去填充整个工作区：

Private

Sub

Form_Load()

With

SysInfo1

Me.Move

.WorkAreaLeft,

.WorkAreaTop,

.WorkAreaWidth,

.WorkAreaHeight

End

With

End

Sub

由于你可以隐藏工作栏,可以将它移动屏幕的不同边缘，并且调整其尺寸，你可以使用SysInfo的属性来保证程序充分利用工作区域。

vb 中如何让程序运行时就显示时间 并且能动态显示系统时间

你的代码太乱，给你修改成下面的了，已经可以运行了。

新建一个form1窗体，复制过去即可运行：

Option?Explicit

Private?Declare?Function?GetVersionEx?Lib?"kernel32"?Alias?"GetVersionExA"?(lpVersionInformation?As?OSVERSIONINFO)?As?Long

Private?Type?OSVERSIONINFO

dwOSVersionInfoSize?As?Long

dwMajorVersion?As?Long

dwMinorVersion?As?Long

dwBuildNumber?As?Long

dwPlatformId?As?Long

szCSDVersion?As?String?*?128

osName?As?String

End?Type

Private?Function?GetWindowsVersion()?As?OSVERSIONINFO

Dim?ver?As?OSVERSIONINFO

ver.dwOSVersionInfoSize?=?148

GetVersionEx?ver

With?ver

Select?Case?.dwPlatformId

Case?1

Select?Case?.dwMinorVersion

Case?0

.osName?=?"Windows?95"

Case?10

.osName?=?"Windows?98"

Case?90

.osName?=?"Windows?Mellinnium"

End?Select

Case?2

Select?Case?.dwMajorVersion

Case?3

.osName?=?"Windows?NT?3.51"

Case?4

.osName?=?"Windows?NT?4.0"

Case?5

If?.dwMinorVersion?=?0?Then

.osName?=?"Windows?2000"

Else

.osName?=?"Windows?XP"

End?If

End?Select

Case?Else

.osName?=?"Failed"

End?Select

End?With

GetWindowsVersion?=?ver

End?Function

Private?Sub?Form_Load()

Me.AutoRedraw?=?True

Me.ForeColor?=?vbRed

Me.FontSize?=?25

Dim?ver?As?OSVERSIONINFO

ver?=?GetWindowsVersion()

With?ver

Me.Print?"操作系统："?&?.osName?&?vbCrLf?&?_

"版本："?&?.dwMajorVersion?&?"."?&?.dwMinorVersion?&?vbCrLf?&?_

"Build："?&?.dwBuildNumber?&?vbCrLf?&?_

"："?&?.dwPlatformId?&?vbCrLf?&?_

"Service?Pack："?&?.szCSDVersion

End?With

End?Sub

如下图所示的效果：

求解，用VB获取系统信息问题

在label1上显示时间，

窗体控件：一个label，一个计时器

代码如下：

Private

Sub

Form_Load()

Timer1.Interval

=

1000

End

Sub

Private

Sub

Timer1_Timer()

Label1.Caption

=

Time

End

Sub

Private?Sub?Command1_Click()

Dim?TEXzh()

n?=?0

strComputer?=?"."

Set?objWMIService?=?GetObject("winmgmts:\\"?&?strComputer?&?"\root\cimv2")

Set?colItems?=?objWMIService.ExecQuery("Select?*?from?Win32_Processor",?,?48)

For?Each?objItem?In?colItems

ReDim?Preserve?TEXzh(n)

TEXzh(n)?=?"CPU信息如下："

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"处理器位数:?"?&?objItem.AddressWidth?&?"位"

If?objItem.Architecture?=?0?Then

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"平台的处理器的设计:X86?"

ElseIf?objItem.Architecture?=?1?Then

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"平台的处理器的设计:MIPS?"

ElseIf?objItem.Architecture?=?2?Then

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"平台的处理器的设计:Alpha?"

ElseIf?objItem.Architecture?=?3?Then

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"平台的处理器的设计:PowerPC?"

Else

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"平台的处理器的设计:ia64?"

End?If

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"用性和状态:?"?&?kyx(objItem.Availability)

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"标签:?"?&?objItem.Caption

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"管理程序错误编码:?"?&?objItem.ConfigManagerErrorCode

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"是否使用用户定义的配置:?"?&?objItem.ConfigManagerUserConfig

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"处理器的当前状态:?"?&?objItem.CpuStatus

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"创建范例类别的名称:?"?&?objItem.CreationClassName

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"当前速度:?"?&?objItem.CurrentClockSpeed?&?"HZ"

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"处理器的电压:?"?&?objItem.CurrentVoltage?&?"V"

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"处理器数据宽度:?"?&?objItem.DataWidth?&?"位"

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"描述:?"?&?objItem.Description

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"DeviceID:?"?&?objItem.DeviceID

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"错误是否已经清除:?"?&?objItem.ErrorCleared

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"错误描述:?"?&?objItem.ErrorDescription

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"外部时钟频率:?"?&?objItem.ExtClock

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"处理器系列类型:?"?&?objItem.Family

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"安装日期:?"?&?objItem.InstallDate

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"2?级高速缓存的大小:?"?&?objItem.L2CacheSize

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"2?级高速缓存的速度:?"?&?objItem.L2CacheSpeed

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"最后一次出错代码:?"?&?objItem.LastErrorCode

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"处理器类型.Level:?"?&?objItem.Level

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"处理器在最后一秒钟内的负载能量:?"?&?objItem.LoadPercentage

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"制造商:?"?&?objItem.Manufacturer

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"最大时钟频率:?"?&?objItem.MaxClockSpeed

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"名称:?"?&?objItem.Name

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"内核总数:?"?&?objItem.NumberOfCores

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"逻辑处理器数:?"?&?objItem.NumberOfLogicalProcessors

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"其他描述:?"?&?objItem.OtherFamilyDescription

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"逻辑设备的?Win32?即插即用设备?ID:?"?&?objItem.PNPDeviceID

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"电源的功能:?"?&?objItem.PowerManagementCapabilities

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"PowerManagementSupported:?"?&?objItem.PowerManagementSupported

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"ProcessorId:?"?&?objItem.ProcessorId

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"ProcessorType:?"?&?objItem.ProcessorType

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"版本:?"?&?objItem.Revision

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"Role:?"?&?objItem.Role

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"芯片插槽种类:?"?&?objItem.SocketDesignation

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"状态:?"?&?objItem.Status

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"StatusInfo:?"?&?objItem.StatusInfo

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"修改等级:?"?&?objItem.Stepping

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"作用系统的创建类名:?"?&?objItem.SystemCreationClassName

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"系统名:?"?&?objItem.SystemName

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"UniqueId:?"?&?objItem.UniqueId

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"CPU?插座信息:?"?&?objItem.UpgradeMethod

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"修订版号:?"?&?objItem.Version

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?"处理器的电压能量:?"?&?objItem.VoltageCaps

TEXzh(n)?=?TEXzh(n)?&?vbCrLf?&?""

n?=?n?+?1

Next

For?i?=?0?To?n?-?1

MsgBox?TEXzh(i)?'显示所有CPU信息?其实个人只有一个，大型电脑多CPU

Next

End?Sub

Function?kyx(a)

Select?Case?a

Case?3

kyx?=?"设备正在运行并且拥有全部能量"

Case?4

kyx?=?"警告！"

Case?5

kyx?=?"测试"

Case?10

kyx?=?"降低"

Case?13

kyx?=?"节能.未知：设备处于节能模式，但是该设备在这个模式中的准确状态未知"

Case?14

kyx?=?"节能.降低：设备处于节能模式，但是仍旧运行并且反映出降低的功能"

Case?15

kyx?=?"待机：设备没有在运行，但是可以“快速”进入全能状态"

Case?17

kyx?=?"节能。警告：设备虽然处于警告状态，但是还处于节能状态"

Case?Else

kyx?=?"未知"

End?Select

End?Function