PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV (earlier versions) → utiliser la dll OpenHardwareMonitorLib.dll pour récuperer les information systeme
utiliser la dll OpenHardwareMonitorLib.dll pour récuperer les information systeme
Started by Jean, May, 17 2018 5:19 PM - 1 reply
Posted on May, 17 2018 - 5:19 PM
Bonjour à tous,

Quelqu'un a t'il déjà réussi à utiliser cette dll issue de Visual studio avec WinDev ?
j'ai réussi à l'intégrer en assemblages .NET mais après je bloque….

Merci pour votre aide

Cordialement
Registered member
460 messages
Popularité : +3 (5 votes)
Posted on May, 20 2018 - 7:50 PM
Bonjour,
Deux idées pour débuter
ComputerHardware est un objet Computer

ComputerHardware.CPUEnabled = True
ComputerHardware.FanControllerEnabled = True
ComputerHardware.GPUEnabled = True
ComputerHardware.HDDEnabled = True
ComputerHardware.MainboardEnabled = True
ComputerHardware.RAMEnabled = True

ComputerHardware.Open()
FOR EACH hd OF ComputerHardware:Hardware
Trace(hd:GetReport())
END
ComputerHardware.Close()



ComputerHardware est un objet Computer
srv est un réel

ComputerHardware.CPUEnabled = True
ComputerHardware.FanControllerEnabled = True
ComputerHardware.GPUEnabled = True
ComputerHardware.HDDEnabled = True
ComputerHardware.MainboardEnabled = True
ComputerHardware.RAMEnabled = True

ComputerHardware.Open()

FOR EACH hd OF ComputerHardware:Hardware

Trace(">>> ", hd:name)
hd:Update()

FOR EACH sr OF hd:Sensors
SWITCH sr:SensorType

CASE SensorType::Clock
Trace(">>>>>>clock")
srv = sr:get_Value()
Trace(sr:Name + TAB + srv)

CASE SensorType::Control
Trace(">>>>>>control")
Trace(sr:Name)

CASE SensorType::Data
Trace(">>>>>>data")
srv = sr:get_value()
Trace(sr:Name + TAB + srv)

CASE SensorType::Factor
Trace(">>>>>>factor")
Trace(sr:Name)

CASE SensorType::Fan
Trace(">>>>>>fan")
Trace(sr:Name)

CASE SensorType::Flow
Trace(">>>>>flow")
Trace(sr:Name)

CASE SensorType::Level
Trace(">>>>>>level")
Trace(sr:Name)

CASE SensorType::Load
Trace(">>>>>>load")
srv = sr:get_value()
Trace(sr:Name + TAB + srv)

CASE SensorType::Power
Trace(">>>>>>power")
Trace(sr:Name)

CASE SensorType::SmallData
Trace(">>>>>>smalldata")
Trace(sr:Name)

CASE SensorType::Temperature
Trace(">>>>>>temperature")
Trace(sr:Name + TAB + srv)
srvmax = sr:get_Max()
Trace("max = "+srvmax)

CASE SensorType::Voltage
Trace(">>>>>>voltage")
Trace(sr:Name)

END
END
END

ComputerHardware.Close()