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 350 fois - Téléchargée 94 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
merid92fr
Messages postés
1
Date d'inscription
dimanche 4 décembre 2005
Statut
Membre
Dernière intervention
31 décembre 2005
31 déc. 2005 à 18:32
Si si ça marche ..... impec ...
Et pour connaitre les connections réseau sans fil ??
kilomaster
Messages postés
130
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
6 décembre 2006
5 janv. 2002 à 19:07
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!
Auge
3 nov. 2001 à 18:14
Mais Si ca Marche mais faut regarder le code !
Et nommerla listebox : "ListBox1" ...
Faire de mème avec la combobox : "ComboBox1"
MicroDav
17 août 2001 à 15:14
C est sur ça !! marche pas du tout !!
pekinio
23 mai 2001 à 00:18
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)