1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Liste des connections distante

Liste des connections distante

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 157 fois - Téléchargée 92 fois


Commenter

Contenu du snippet

Faites un Form (Form1) avec une ListBox (ListBox1) et ou une ComboBox (ComboBox1)

Mettez le code suivant dans le code de votre form

Source / Exemple : 


Private Const HKEY_CURRENT_USER = &H80000001
Private Const KEY_ALL_ACCESS = &H3F
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal Valeur As String, ByVal cbName As Long) As Long

Private Sub Form_Load()
    ListeDesRAS ListBox1, HKEY_CURRENT_USER, "RemoteAccess\profile"
    ListeDesRAS ComboBox1, HKEY_CURRENT_USER, "RemoteAccess\profile"
End Sub

Sub ListeDesRAS(LaListe, LeROOT, CheminCle)
    Dim LaCle, Index, Val As String
    Dim i
    Dim hKey As Long
    LaCle = RegOpenKeyEx(LeROOT, CheminCle, 0, KEY_ALL_ACCESS, hKey)
AjoutSuivant:
    Val = Space(255)
    i = RegEnumKey(hKey, Index, Val, 255)
    If Trim(Val) <> Chr(0) And Trim(Val) <> "" Then
        LaListe.AddItem Left(Val, InStr(Val, Chr(0)) - 1)
        Index = Index + 1
        GoTo AjoutSuivant
    End If
End Sub

A voir également

Ajouter un commentaire

Commentaires

Signaler
merid92fr
Messages postés
1
Date d'inscription
dimanche 4 décembre 2005
Statut
Membre
Dernière intervention
31 décembre 2005
Si si ça marche ..... impec ...
Et pour connaitre les connections réseau sans fil ??
Signaler
kilomaster
Messages postés
130
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
6 décembre 2006
se code est très intéressant!!! moi je mets 10. ceux qui ont mis 1 n'avaient qu'a réfléchir avant de critiquer!
Signaler

Mais Si ca Marche mais faut regarder le code !
Et nommerla listebox : "ListBox1" ...
Faire de mème avec la combobox : "ComboBox1"
Signaler

C est sur ça !! marche pas du tout !!
Signaler

marche pas...?!
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Nix)