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 - 2 replies
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
461 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()
Posted on May, 22 2018 - 11:59 AM
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