Diagnostique de la batterie d'un PC Windos 11

[brossden]

Si vous désirez avoir l'état de votre batterie de PC voici un petit code :

Procedure.s GetSpecialFolderLocationx(Valeur.l)
If SHGetSpecialFolderLocation_(0, Valeur, @Dossier_ID) = 0
SpecialFolderLocation.s = Space(#MAX_PATH)
SHGetPathFromIDList_(Dossier_ID, @SpecialFolderLocation)
If SpecialFolderLocation
If Right(SpecialFolderLocation, 1) <> "\"
SpecialFolderLocation + "\"
EndIf
EndIf
EndIf
ProcedureReturn SpecialFolderLocation.s
EndProcedure
User.s = GetSpecialFolderLocationx(40)

RunProgram("cmd.exe", "/c powercfg /batteryreport","",#PB_Program_Wait)
RunProgram("cmd.exe", "/c "+user+"\battery-report.html","",#PB_Program_Wait)