189 8069 5689
2005或者2008版中使用My命名空间（.net 框架快捷）轻松实现。如在2008中，可使用智能感知来插入，如在代码编辑框内 单击右键---插入代码段----基本元素，集合数据类型、文件操作、数学等-----文件 这样就可以快速操作相关文件了
创新互联2013年开创至今，是专业互联网技术服务公司，拥有项目网站设计制作、网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元田家庵做网站,已为上家服务,为田家庵各地企业和个人服务,联系电话:18982081108
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
上面程序可以去取得目前正在运行的程序的标题，根据标题可判断除他的运行状态。
通过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 试一试就知道了
使用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