Option Explicit
'Funktionen in asus.dll:
'------------------------------
'DMI_GetBIOSDate
'DMI_GetBIOSVender
'DMI_GetBIOSVersion
'DMI_GetCPUFamily
'DMI_GetCPUID
'DMI_GetCPUInfo
'DMI_GetCPUVendor
'DMI_GetCPUVersion
'DMI_GetCPUVoltage
'DMI_GetMBClock
'DMI_GetMBManufacturer
'DMI_GetMBProduct
'DMI_GetMBSerial
'DMI_GetMBSocket
'DMI_GetMBVersion
'DMI_IsASUSMB
'DMI_IsDMI20BIOS
'DMI_IsNoteBook
'GetCPUName
'GetCPUNominal
'GetCPUOffset
'GetCPUOS
'GetCPUTemperature
'GetCPUTemperature2
'GetCPUVCore
'GetFanChasis2RPM
'GetFanChasisRPM
'GetFanCPURPM
'GetFanPowerRPM
'GetMBTemperature
'GetVoltIN0
'GetVoltIN1
'GetVoltIN2
'GetVoltIN3
'GetVoltIN4
'GetVoltIN5
''GetVoltIN6
'SetCPUFan
'SmbReadByte
'SmbReadWord
'SmbWriteByte
'SmbWriteWord
'TheCPUIsUnknown
''WriteCPUInfoIntoRegistry
'------------------------------
Private Declare Function GetCPUTemperature Lib "ASUS.dll" () As Integer
Private Declare Function GetMBTemperature Lib "ASUS.dll" () As Integer
Private Declare Function GetVoltIN0 Lib "ASUS.dll" () As Integer
Private Declare Function GetVoltIN1 Lib "ASUS.dll" () As Integer
Private Declare Function DMI_GetMBClock Lib "ASUS.dll" () As Integer
'Wichtig ist -> Projekt in den Pfad C:\Program Files\ASUS\Probe kompilieren!
Private Sub Form_Load()
 
    MsgBox "CPU Temperatur: " & GetCPUTemperature & "°C" & vbCrLf & _
                 "Mainboard Temperatur: " & GetMBTemperature & "°C" & vbCrLf & _
                 "CPU Spannung1: " & Format(GetVoltIN0 / 1000, "0.000") & "V" & _
                 vbCrLf & _
                 "CPU Spannung2: " & Format(GetVoltIN1 / 1000, "0.000") & "V" & _
                 vbCrLf & _
                 "CPU Taktfrequenz: " & DMI_GetMBClock & "MHz", vbInformation, _
                 "ASUS Board Infos"
    End
 
End Sub