PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV (précédentes versions) → utiliser la dll OpenHardwareMonitorLib.dll pour récuperer les information systeme
utiliser la dll OpenHardwareMonitorLib.dll pour récuperer les information systeme
Débuté par Jean, 17 mai 2018 17:19 - 2 réponses
Posté le 17 mai 2018 - 17:19
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
Membre enregistré
461 messages
Popularité : +3 (5 votes)
Posté le 20 mai 2018 - 19:50
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()
Posté le 22 mai 2018 - 11:59
Bonjour Philippe,
Alors la, la formule c'est : Il vaut mieux un qui sait que dix qui cherchent……..
Super j'avais commencée un code similaire mais bon je me suis perdu il faut que je fasse des tutos avec les objet…
Encore grand merci à toi Philippe