PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2024 → connaitre la taille mémoire vidéo
connaitre la taille mémoire vidéo
Débuté par guest, 24 oct. 2005 14:25 - 2 réponses
#1
Posté le 24 octobre 2005 - 14:25
bonjour
j'aimerais par programmation connaitre la taille mémoire de ma carte vidéo !
comment faire ?
merci
#2
Posté le 24 octobre 2005 - 17:27
Utilise l'activeX "MSScriptControl.ScriptControl"


// Sur mon PC j'ai 65 536 Ko
InfoVideo est une chaîne = GetVideoInfo()
IF InfoVideo<>"" THEN
Trace("Taille mémoire de la carte vidéo : "+NumériqueVersChaine(Val(ExtraitChaîne(InfoVideo,6))/1024,"7dS")+" Ko")
END





// Informations sur les adaptateurs vidéo installé dans un PC
// Une ligne par adaptateur
// séparateur de champ chr(9) = TAB
// séparateur de ligne chr(13)+chr(10) = CRLF
FUNCTION GetVideoInfo(pComputerName=NetNomMachine())

objWMIService est un objet Automation "MSScriptControl.ScriptControl"
ProgrammeVbs est une chaîne
ResultatVbs est une chaîne

ProgrammeVbs += "Function InfoVideo(ComputerName)"+CRLF
ProgrammeVbs += "On Error Resume Next" +CRLF
ProgrammeVbs += "strComputer = ComputerName"+CRLF
ProgrammeVbs += "strResult = "+Caract(34)+Caract(34)+CRLF
ProgrammeVbs += "Set objWMIService = GetObject("+Caract(34)+"winmgmts:\\"+Caract(34)+" & strComputer & "+Caract(34)+"\root\cimv2"+Caract(34)+")"+CRLF
ProgrammeVbs += "Set colItems = objWMIService.ExecQuery("+Caract(34)+"Select * from Win32_VideoConfiguration"+Caract(34)+",,48)"+CRLF
ProgrammeVbs += "For Each objItem in colItems"+CRLF

ProgrammeVbs += "strResult = strResult & objItem.ActualColorResolution & chr(9)"+CRLF // 01
ProgrammeVbs += "strResult = strResult & objItem.AdapterChipType & chr(9)"+CRLF // 02
ProgrammeVbs += "strResult = strResult & objItem.AdapterCompatibility & chr(9)"+CRLF // 03
ProgrammeVbs += "strResult = strResult & objItem.AdapterDACType & chr(9)"+CRLF // 04
ProgrammeVbs += "strResult = strResult & objItem.AdapterDescription & chr(9)"+CRLF // 05
ProgrammeVbs += "strResult = strResult & objItem.AdapterRAM & chr(9)"+CRLF // 06
ProgrammeVbs += "strResult = strResult & objItem.AdapterType & chr(9)"+CRLF // 07
ProgrammeVbs += "strResult = strResult & objItem.BitsPerPixel & chr(9)"+CRLF // 08
ProgrammeVbs += "strResult = strResult & objItem.Caption & chr(9)"+CRLF // 09
ProgrammeVbs += "strResult = strResult & objItem.ColorPlanes & chr(9)"+CRLF // 10
ProgrammeVbs += "strResult = strResult & objItem.ColorTableEntries & chr(9)"+CRLF // 11
ProgrammeVbs += "strResult = strResult & objItem.Description & chr(9)"+CRLF // 12
ProgrammeVbs += "strResult = strResult & objItem.DeviceSpecificPens & chr(9)"+CRLF // 13
ProgrammeVbs += "strResult = strResult & objItem.DriverDate & chr(9)"+CRLF // 14
ProgrammeVbs += "strResult = strResult & objItem.HorizontalResolution & chr(9)"+CRLF // 15
ProgrammeVbs += "strResult = strResult & objItem.InfFilename & chr(9)"+CRLF // 16
ProgrammeVbs += "strResult = strResult & objItem.InfSection & chr(9)"+CRLF // 17
ProgrammeVbs += "strResult = strResult & objItem.InstalledDisplayDrivers & chr(9)"+CRLF // 18
ProgrammeVbs += "strResult = strResult & objItem.MonitorManufacturer & chr(9)"+CRLF // 19
ProgrammeVbs += "strResult = strResult & objItem.MonitorType & chr(9)"+CRLF // 20
ProgrammeVbs += "strResult = strResult & objItem.Name & chr(9)"+CRLF // 21
ProgrammeVbs += "strResult = strResult & objItem.PixelsPerXLogicalInch & chr(9)"+CRLF // 22
ProgrammeVbs += "strResult = strResult & objItem.PixelsPerYLogicalInch & chr(9)"+CRLF // 23
ProgrammeVbs += "strResult = strResult & objItem.RefreshRate & chr(9)"+CRLF // 24
ProgrammeVbs += "strResult = strResult & objItem.ScanMode & chr(9)"+CRLF // 25
ProgrammeVbs += "strResult = strResult & objItem.ScreenHeight & chr(9)"+CRLF // 26
ProgrammeVbs += "strResult = strResult & objItem.ScreenWidth & chr(9)"+CRLF // 27
ProgrammeVbs += "strResult = strResult & objItem.SettingID & chr(9)"+CRLF // 28
ProgrammeVbs += "strResult = strResult & objItem.SystemPaletteEntries & chr(9)"+CRLF // 29
ProgrammeVbs += "strResult = strResult & objItem.VerticalResolution & chr(13) & chr(10)"+CRLF // 30
ProgrammeVbs += "Next"+CRLF

ProgrammeVbs += "InfoVideo = strResult"+CRLF
ProgrammeVbs += "End Function"+CRLF


objWMIService>>Language("VBScript")
objWMIService>>Reset()

WHEN EXCEPTION IN
objWMIService>>AddCode(ProgrammeVbs)
DO
Erreur("Erreur dans le programme vbs...")
RENVOYER ""
END

ResultatVbs=""

WHEN EXCEPTION IN
ResultatVbs = objWMIService>>Eval("InfoVideo("+Caract(34)+pComputerName+Caract(34)+")")
DO
Erreur("Erreur d'execution du programme vbs")
RENVOYER ""
END

IF ResultatVbs<>"" THEN ResultatVbs = ResultatVbs[[1 sur Taille(ResultatVbs)-2]]

RENVOYER ResultatVbs
#3
Posté le 25 octobre 2005 - 13:21
Peut tu me donner le resultat de tes tests ?
Merci d'avance
→ Revenir à WINDEV 2024