PureBasic

Forums PureBasic - Français
https://www.purebasic.fr/french/

MONPC 0.8 - Besoin de testeurs

https://www.purebasic.fr/french/viewtopic.php?t=13172

Page 3 sur 6

Re: MONPC - Besoin de testeurs

Publié : lun. 17/sept./2012 14:12
par Golfy
1) Système d'exploitation : je lis "Microsoft Windows XP x86 build 1.511.1 () (Obsolete data - do not use)"

2) IP Distant : OK
IP du PC : 169.254.7.122 <-- erreur : j'ai du Wifi, une carte Gigabit, etc. et tu as pris l'adresse de la carte VirtualBox :

Code : Tout sélectionner

Carte Ethernet Connexion BlueTooth:

        Statut du média . . . . . . . . . : Média déconnecté

Carte Ethernet Connexion réseau sans fil:

        Suffixe DNS propre à la connexion : mobile.lan
        Adresse IP. . . . . . . . . . . . : 192.168.11.101
        Masque de sous-réseau . . . . . . : 255.255.252.0
        Passerelle par défaut . . . . . . : 192.168.11.254

Carte Ethernet VirtualBox Host-Only Network:

        Suffixe DNS propre à la connexion :
        Autoconfiguration d'adresse IP. . : 169.254.7.122
        Masque de sous-réseau . . . . . . : 255.255.0.0
        Passerelle par défaut . . . . . . :

Carte Ethernet {4C960E38-65F3-4F34-A6A8-C74D3A59B6DF}:

        Statut du média . . . . . . . . . : Média déconnecté

Carte Ethernet Network Connect Adapter:

        Statut du média . . . . . . . . . : Média déconnecté

Carte Tunnel Automatic Tunneling Pseudo-Interface :

        Suffixe DNS propre à la connexion : mobile.lan
        Adresse IP. . . . . . . . . . . . : fe80::5efe:192.168.11.101%2
        Passerelle par défaut . . . . . . :

Carte Tunnel Automatic Tunneling Pseudo-Interface :

        Suffixe DNS propre à la connexion :
        Adresse IP. . . . . . . . . . . . : fe80::5efe:169.254.7.122%2
        Passerelle par défaut . . . . . . :
Coté matériel, rien (carte mère, fabricant, Bios) alors que j'ai un HP 6510b (sous WinXP Pro et 3 Go RAM).
WinAudit trouve ceci :

Code : Tout sélectionner

BIOS : "HP - 15010920 KBC Version 71.2E EPP runtime BIOS - Version 1.1 User"
Model : "HP Compaq 6510b (GR690ET#ABF)"
Désolé pour ces "mauvaises" nouvelles :(

Re: MONPC - Besoin de testeurs

Publié : lun. 17/sept./2012 14:39
par Ar-S
Golfy a écrit :1) Système d'exploitation : je lis "Microsoft Windows XP x86 build 1.511.1 () (Obsolete data - do not use)"

2) IP Distant : OK
IP du PC : 169.254.7.122 <-- erreur : j'ai du Wifi, une carte Gigabit, etc. et tu as pris l'adresse de la carte VirtualBox :

Code : Tout sélectionner

Carte Ethernet Connexion BlueTooth:

        Statut du média . . . . . . . . . : Média déconnecté

Carte Ethernet Connexion réseau sans fil:

        Suffixe DNS propre à la connexion : mobile.lan
        Adresse IP. . . . . . . . . . . . : 192.168.11.101
        Masque de sous-réseau . . . . . . : 255.255.252.0
        Passerelle par défaut . . . . . . : 192.168.11.254

Carte Ethernet VirtualBox Host-Only Network:

        Suffixe DNS propre à la connexion :
        Autoconfiguration d'adresse IP. . : 169.254.7.122
        Masque de sous-réseau . . . . . . : 255.255.0.0
        Passerelle par défaut . . . . . . :

Carte Ethernet {4C960E38-65F3-4F34-A6A8-C74D3A59B6DF}:

        Statut du média . . . . . . . . . : Média déconnecté

Carte Ethernet Network Connect Adapter:

        Statut du média . . . . . . . . . : Média déconnecté

Carte Tunnel Automatic Tunneling Pseudo-Interface :

        Suffixe DNS propre à la connexion : mobile.lan
        Adresse IP. . . . . . . . . . . . : fe80::5efe:192.168.11.101%2
        Passerelle par défaut . . . . . . :

Carte Tunnel Automatic Tunneling Pseudo-Interface :

        Suffixe DNS propre à la connexion :
        Adresse IP. . . . . . . . . . . . : fe80::5efe:169.254.7.122%2
        Passerelle par défaut . . . . . . :
Coté matériel, rien (carte mère, fabricant, Bios) alors que j'ai un HP 6510b (sous WinXP Pro et 3 Go RAM).
WinAudit trouve ceci :

Code : Tout sélectionner

BIOS : "HP - 15010920 KBC Version 71.2E EPP runtime BIOS - Version 1.1 User"
Model : "HP Compaq 6510b (GR690ET#ABF)"
Désolé pour ces "mauvaises" nouvelles :(
Ok je sentais bien que les différents périphériques réseaux allait me créer ce genre de soucis.
Pour les infos de la carte mère et Bios, peux tu faire une recherche dans regedit (demarrer/executer/regedit) en cherchant :
HP Compaq 6510b et en me revoyant la clé ou il se trouve.
Merci.

Pas évident de tester dans XP sous la main car même en virtualbox, ça chie. Je me penche du coté des WMI pour harmoniser les résultats "capricieux".

Re: MONPC - Besoin de testeurs

Publié : lun. 17/sept./2012 14:41
par GallyHC
Bonjour Ar-s

Je connais pas trop mal VB6 et un peu PB, je peux faier une recherche sur VBfrance et faire la convertion du code pour le reseau si cela te va ?

Cordialement,
GallyHC

Re: MONPC - Besoin de testeurs

Publié : lun. 17/sept./2012 14:58
par Ar-S
GallyHC a écrit :Bonjour Ar-s
Je connais pas trop mal VB6 et un peu PB, je peux faier une recherche sur VBfrance et faire la convertion du code si cela te va ?
Cordialement,
GallyHC
Salut,
Le code qu'a trouvé Mesa http://www.purebasic.fr/french/viewtopi ... =1&t=13170 est très complet.
Mais j'avoue qu'il est même "trop" complet. J'essaye de le simplifier mais je galère.
Si tu as le temps de créer une proce pour afficher des infos WMI spécifiques je suis preneur.

Re: MONPC - Besoin de testeurs

Publié : lun. 17/sept./2012 17:02
par falsam
Utilisation des fonctionnalités WMI
"COMatePLUS.pbi est obligatoire

n'ayant pas de pc équipé de deux cartes vidéos je n'ai pas pu tester ce code pour ce cas là.

Code : Tout sélectionner

;Information system : Video Controller
XIncludeFile "COMatePLUS.pbi"

Define.COMateObject objWMIService, VideoController

Global Result.COMateEnumObject
Global strComputer.s = "." 
Global Buffer.s

objWMIService = COMate_GetObject("winmgmts:\\" + strComputer + "\root\cimv2", "") 
If objWMIService 
  Result = objWMIService\CreateEnumeration("ExecQuery('Select * from Win32_VideoController')")
  
  If Result 
    VideoController = Result\GetNextObject()
    While VideoController
      
      x = x + 1
      id$ = Str(x)
      VC_Description_Global$ = VideoController\GetStringProperty("Description")
      VC_AdapterRAM_bytes$ = Str(VideoController\GetIntegerProperty("AdapterRAM"))
      VC_AdapterRAM$ = Str((VideoController\GetIntegerProperty("AdapterRAM") / 1024) / 1024) + "  Mb" + "   (" + VC_AdapterRAM_bytes$ + " bytes)"
      VC_CurrentHorizontalResolution$ = Str(VideoController\GetIntegerProperty("CurrentHorizontalResolution"))
      VC_CurrentVerticalResolution$ = Str(VideoController\GetIntegerProperty("CurrentVerticalResolution"))
      VC_Resolution$ = VC_CurrentHorizontalResolution$ + "  x  " + VC_CurrentVerticalResolution$
      VC_DriverDate$ = VideoController\GetStringProperty("DriverDate")
      VC_DriverVersion$ = VideoController\GetStringProperty("DriverVersion")
      VC_InstalledDisplayDrivers$ = VideoController\GetStringProperty("InstalledDisplayDrivers")
      VC_VideoModeDescription$ = VideoController\GetStringProperty("VideoModeDescription")
      VC_CurrentRefreshRate$ = VideoController\GetStringProperty("CurrentRefreshRate") + "  Hz"
      VC_MaxRefreshRate$ = Str(VideoController\GetIntegerProperty("MaxRefreshRate")) + "   Hz"
      VC_MinRefreshRate$ = Str(VideoController\GetIntegerProperty("MinRefreshRate")) + "   Hz"
      VC_VideoProcessor$ = VideoController\GetStringProperty("VideoProcessor")
      VC_VideoModeDescription$ = VideoController\GetStringProperty("VideoModeDescription")
      VC_ConfigManagerErrorCode$ = Str(VideoController\GetIntegerProperty("ConfigManagerErrorCode"))
      VC_ErrorDescription$ = VideoController\GetStringProperty("ErrorDescription")
      VC_Status$ = VideoController\GetStringProperty("Status")
      If VideoController\GetIntegerProperty("PowerManagementSupported") = 0
        VC_PowerManagementSupported$ = "False"  
      Else
        VC_PowerManagementSupported$ = "True"  
      EndIf
      
      Debug "Video " + id$ + " Description " + VC_Description_Global$
      Debug "Video " + id$ + " Video Processor Type " + VC_VideoProcessor$
      Debug "Video " + id$ + " VRAM " + VC_AdapterRAM$
      Debug "Video " + id$ + " Current Resolution (H x V) " + VC_Resolution$
      Debug "Video " + id$ + " Current Refresh Rate " + VC_CurrentRefreshRate$
      Debug "Video " + id$ + " Video Mode Description " + VC_VideoModeDescription$
      Debug "Video " + id$ + " Max Refresh Rate " + VC_MaxRefreshRate$
      Debug "Video " + id$ + " Min Refresh Rate " + VC_MinRefreshRate$
      Debug "Video " + id$ + " Power Management Supported " + VC_PowerManagementSupported$
      Debug "Video " + id$ + " Driver Date " + Mid(VC_DriverDate$,7,2)+"/"+Mid(VC_DriverDate$,5,2)+"/"+Left(VC_DriverDate$, 4)
      Debug "Video " + id$ + " Driver Version " + VC_DriverVersion$
      Debug "Video " + id$ + " Driver Name " + VC_InstalledDisplayDrivers$
      Debug "Video " + id$ + " Status " + VC_Status$
      
      VideoController\Release() 
      VideoController = Result\GetNextObject()
    Wend
    result\Release() 
  EndIf
  objWMIService\Release()
  Else
      MessageRequester("Error", "WMI")  
EndIf

Re: MONPC - Besoin de testeurs

Publié : lun. 17/sept./2012 17:13
par Ar-S
Pour la carte graphique j'ai réussi via les WMI, merci Falsam.

Re: MONPC - Besoin de testeurs

Publié : lun. 17/sept./2012 17:16
par falsam
Ar-S a écrit :Pour la carte graphique j'ai réussi via les WMI, merci Falsam.
J'ai vu et je te confirme que ça fonctionne sous windows XP et 7.
ma solution (fonctionnalités WMI) te donne un peu plus d'information et fonctionne aussi avec des configs possédant par exemple deux cartes vidéos.

Re: MONPC - Besoin de testeurs

Publié : lun. 17/sept./2012 17:20
par Ar-S
Je ne souhaite pas utiliser comatePLUS car il va grandement gonfler mon code. C'est sur qu'avec c'est plus aisé.
Je vais mettre à jour la 0.4

Re: MONPC - Besoin de testeurs

Publié : lun. 17/sept./2012 17:28
par Ar-S
MAJ : beta 0.4
- Ajout de l'affichage du processeur graphique
- corrections de plusieurs bugs

Merci d'avance pour vos retours, pensez à m'indiquer votre Os
Je pense que maintenant sous Vista et 7 il ni a plus de problème.
Pour Xp ce n'est surement pas encore terminé ;)

Re: MONPC - Besoin de testeurs

Publié : lun. 17/sept./2012 17:55
par SPH
Pas de probleme sous vista 32 :idea:

Re: MONPC - Besoin de testeurs

Publié : lun. 17/sept./2012 19:47
par Golfy
sur mon Win7 64bits, pas de passerelle :(
Windows 7 Home Premium x64 build 7601

Tout le reste est OK (et la fermeture en fondu est sympa) :)

Re: MONPC - Besoin de testeurs

Publié : lun. 17/sept./2012 21:00
par Backup
Golfy a écrit : (et la fermeture en fondu est sympa) :)
là encore.. j'ai été parmis les premiers a .. :lol: bon je sort :)

ici :
http://www.purebasic.fr/french/viewtopi ... on+fenetre
2004 quand meme :)

:)

Re: MONPC - Besoin de testeurs

Publié : lun. 17/sept./2012 21:08
par Cool Dji
Ok, la 0.4 donne les bonnes infos : j'ai aussi la build 7601 avec un W7 installation constructeur Acer...
Pour le test XP, ce sera demain, ya une instit qui prépare sa classe pour demain dessus...

Re: MONPC - Besoin de testeurs

Publié : lun. 17/sept./2012 21:27
par Ar-S
Dobro a écrit :
Golfy a écrit : (et la fermeture en fondu est sympa) :)
là encore.. j'ai été parmis les premiers a .. :lol: bon je sort :)

ici :
http://www.purebasic.fr/french/viewtopi ... on+fenetre
2004 quand meme :)

:)
Et oui mon bon Dobro, tu es à l'origine de surement bien des lignes de codes, tu fais parti des meubles :wink:
Pour cette anim, je ne me suis pas foulé.
API powa :mrgreen: :

Code : Tout sélectionner

AnimateWindow_(WindowID(#LDVM),1500,#AW_BLEND|#AW_HIDE)
Je suis en train de préparer la 0.5
Si le coup de la passerelle n'est pas trop chiant à gérer, je vais la corriger sinon je vire l'option (je m'en cogne en faite de voir la passerelle).
Je suis surtout tendu par rapport à la Carte mère sur XP. Ce sera ma priorité.
Cette version affichera aussi la quantité de mémoire utilisable mais sera réactualisée toutes les secondes (merci les Timers)

CoolDji attends la 0.5 (sauf si tu as vraiment le temps et que tu veux tester les 2.

Re: MONPC - Besoin de testeurs

Publié : mar. 18/sept./2012 8:56
par Eric
Bonjour à tous,

@Ar-s je suis sous Seven 64 avec 8Go.

Bonne continuation.

Eric
Fuseau horaire sur UTC+01:00
Page 3 sur 6

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru