vb.net读取系统信息 vb文件读取

VB.NET 获取系统文件操作信息

2005或者2008版中使用My命名空间（.net 框架快捷）轻松实现。如在2008中，可使用智能感知来插入，如在代码编辑框内 单击右键---插入代码段----基本元素，集合数据类型、文件操作、数学等-----文件 这样就可以快速操作相关文件了

创新互联2013年开创至今，是专业互联网技术服务公司，拥有项目网站设计制作、网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元田家庵做网站,已为上家服务,为田家庵各地企业和个人服务,联系电话:18982081108

vb.net 如何获取系统当前运行程序列表

sub

getpro()

dim

myinfo

as

string

dim

myprocesses()

as

process

=

process.getprocesses()

for

each

myprocess

as

process

in

myprocesses

myprocess.

if

(myprocess.mainwindowtitle.length

0)

then

myinfo

+=

myprocess.mainwindowtitle

+

vbcrlf

end

if

next

end

sub

上面程序可以去取得目前正在运行的程序的标题，根据标题可判断除他的运行状态。

VB或VB.NET 能不能取到BIOS中的信息

通过Microsoft WMI Scripting Library就可以了，你试一试在工程－引用下面引用 Microsoft WMI Scripting 1.2 Library Dim s, System, item

Dim i As Integer

Set System = GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")

For Each item In System

'List1.AddItem item.cputype

s = "Computer Info" vbCrLf

s = s "***********************" vbCrLf

s = s "计算机名称: " item.Name vbCrLf

s = s "状态: " item.Status vbCrLf

s = s "类型: " item.SystemType vbCrLf

s = s "生产厂家: " item.Manufacturer vbCrLf

s = s "型号: " item.Model vbCrLf

s = s "内存: ~" item.totalPhysicalMemory / 1024000 "mb" vbCrLf

s = s "域: " item.domain vbCrLf

s = s "工作组" item.Workgroup vbCrLf '获得工作组和域的选项不能同时用

s = s "当前用户: " item.username vbCrLf

s = s "启动状态" item.BootupState vbCrLf

s = s "该计算机属于" item.PrimaryOwnerName vbCrLf

s = s "系统类型" item.CreationClassName vbCrLf

s = s "计算机类类型" item.Description vbCrLf

' For i = 0 To 1 '这里假设安装了两个系统

' s = s Chr(5) "启动选项" i " :" item.SystemStartupOptions(i) vbCrLf

' Next i

Next

Text1.Text = s 把上面这些代码放在一个按钮的Click事件里，并在窗体 上放一个TEXT叫TEXT1，并把text1.MultiLine 设成True，把text1.ScrollBars设成 2 试一试就知道了

vb.net 如何获取当前系统的CPU使用率

使用wmi

类“Win32_Processor”中LoadPercentage属性为当前的cpu使用率

示例代码： Private Sub Timer1_Timer()

Dim WMI服务 As Object

Dim 对象 As Object

Dim 子对象 As Object

Dim 电脑名 As String

Dim 刷新 As Long

刷新 = 0

电脑名 = "." '表示本地计算机

Set WMI服务 = GetObject("winmgmts://" 电脑名 "/root/cimv2")

Set 对象 = WMI服务.InstancesOf("Win32_Processor")

Me.CurrentX = 0

Me.CurrentY = 0

For Each 子对象 In 对象

If 刷新 = 0 Then

刷新 = 1

Me.Cls

End If

Me.Print 子对象.Name "[" 子对象.CurrentClockSpeed "Hz] 使用率:" _

子对象.LoadPercentage "%"

Next

End Sub