PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV (versões anteriores) → utiliser la dll OpenHardwareMonitorLib.dll pour récuperer les information systeme
utiliser la dll OpenHardwareMonitorLib.dll pour récuperer les information systeme
Iniciado por Jean, mai., 17 2018 5:19 PM - 2 respostas
Publicado em maio, 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
Membro registado
945 mensagems
Popularité : +102 (110 votes)
Publicado em maio, 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()
Publicado em maio, 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