获取系统时间用 now()
成都创新互联公司是一家专注于成都网站建设、做网站与策划设计,平阳网站建设哪家好?成都创新互联公司做网站,专注于网站建设十多年,网设计领域的专业建站公司;建站业务涵盖:平阳等地区。平阳做网站价格咨询:13518219792
而后格式化字符串以精确到分钟
string.Format("{0:yyyyMMddHHmm}",now())
2005或者2008版中使用My命名空间（.net 框架快捷）轻松实现。如在2008中，可使用智能感知来插入，如在代码编辑框内 单击右键---插入代码段----基本元素，集合数据类型、文件操作、数学等-----文件 这样就可以快速操作相关文件了
使用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
