PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

Inicio | Mensajes recientes | Conéctese... |  | Español FR
Inicio → WINDEV (versiones precedentes) → 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, 17,may. 2018 17:19 - 2 respuestas
#1
Publicado el 17,mayo 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
#2
Miembro registrado
946 mensajes
Popularité : +102 (110 votes)
Publicado el 20,mayo 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()
#3
Publicado el 22,mayo 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
→ Volver a WINDEV (versiones precedentes)