Dim col As Management.ManagementObjectCollect ion
Dim search As Management.ManagementObjectSearche r
Dim obj As Management.ManagementObject
Dim StrOutput As String = ""
search = New Management.ManagementObjectSearche r("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
col = search.Get
For Each obj In col
StrOutput = StrOutput & " " & Convert.ToString(Conver…
[/Quote]
一般来说你最好要有8367的DATASHEET;
里面会介绍功能的,主要可以分为几步:
1.打开83627编程模式
out 2e(4e)h,87h;
out 2e(4e)h,87h;
2,选择逻辑设备
out 2e(4e)h,07h;
out 2f(4f)h,0bh; 83627hf hardware monitor为逻辑设备B
3.然后在60h,61h里读出io base
4,区IO BASE读出温度就可以了;这里有简单算数要做,DATASHEET里有写怎么做
Dim col As Management.ManagementObjectCollect ion
Dim search As Management.ManagementObjectSearche r
Dim obj As Management.ManagementObject
Dim StrOutput As String = ""
search = New Management.ManagementObjectSearche r("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
col = search.Get
For Each obj In col
StrOutput = StrOutput & " " & Convert.ToString(Convert.ToUInt32( obj("CurrentTemperature")))
Next
MsgBox(StrOutput)