IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Récupération et affichage de valeurs dword hexadecimales issues du registre


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau membre du Club
    Homme Profil pro
    vendeur
    Inscrit en
    Février 2019
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : vendeur
    Secteur : Boutique - Magasin

    Informations forums :
    Inscription : Février 2019
    Messages : 3
    Par défaut Récupération et affichage de valeurs dword hexadecimales issues du registre
    Bonjour, je m'appelle Jérémy, je suis nouveau sur le forum. Mon niveau est grand débutant, mais je commence à comprendre certaines choses. En m’apprêtant à créer une petite application (c'est mon premier programme) en Visual Basic, je souhaiterai récupérer la valeur de la clé "PrinterOnLine" DWORD qui aurait pour valeur 0x00000000 ou 0x00000001, (c'est l'état de mon imprimante allumée ou éteinte) et si possible l'afficher dans un labelbox ?
    ou si vous connaissez un moyen de récupérer l'état de mon imprimante sans passer par le registre ? et en notifiant bourrage papier etc


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
     
            Dim rk As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentConfig
            Dim rksub As Microsoft.Win32.RegistryKey = rk.OpenSubKey("\System\CurrentControlSet\Control\Print\Printers\EPSON SX230 Series", True)
            Dim registryValue As String = CType(rksub.GetValue("PrinterOnLine", Microsoft.Win32.RegistryValueKind.DWord), String)
     
     
            Dim regIMP = registryValue
     
            If regIMP = "1" Then
                REM Dim d1 As New StringDigitSubstitute = C(regIMP.GetValue("PrinterOnLine"))
                LabelE2.Text = "En ligne" & regIMP
                Dim pdem() As Process
                Dim proc As New System.Diagnostics.Process()
                pdem = Process.GetProcessesByName(SCAexe)
                If pdem.Count < 1 Then
                    proc.StartInfo.FileName = (ChCL)
                    proc.Start()
                    proc.Close()
                Else
                    MsgBox(Launcher.ChCL & "Application de scan Introuvable", MsgBoxStyle.OkOnly, )
                End If
            Else
                LabelE2.Text = "Hors ligne"
    Le problème c'est que malgré le bricolage dans tout les sens de ce code, je n'arrive toujours pas à un résultat, celui ci me donne une exception non gérée. (System.NullReferenceException, La référence d'objet n'est pas définie à une instance d'un objet.)
    Si quelqu'un pouvait m'aider ? Svp
    Merci à vous

  2. #2
    Membre Expert
    Avatar de wallace1
    Homme Profil pro
    Administrateur systèmes
    Inscrit en
    Octobre 2008
    Messages
    1 966
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Administrateur systèmes
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 966
    Billets dans le blog
    7
    Par défaut
    Salut,

    La clé que tu cibles n'est pas la bonne, pour les imprimantes locales c'est ici :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Printers
    Pour vérifier que tu ne travailles pas avec rk Null alors vérifies au préalable qu'il ne soit pas égal à Nothing.

    A+

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Débutant] Problème récupération et affichage valeur TextBox
    Par BatFUT dans le forum C#
    Réponses: 3
    Dernier message: 22/06/2015, 19h16
  2. [VBS]Création d"une valeur DWORD
    Par dedenet dans le forum VBScript
    Réponses: 2
    Dernier message: 24/04/2006, 23h14
  3. Réponses: 4
    Dernier message: 29/03/2006, 08h22
  4. [MySQL] Affichage de valeurs par selection dans une table
    Par Flushovsky dans le forum PHP & Base de données
    Réponses: 9
    Dernier message: 16/12/2005, 17h04
  5. affichage selon valeur entiere ou decimale
    Par Ankya dans le forum SQL Procédural
    Réponses: 7
    Dernier message: 04/05/2005, 10h36

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo