Liste des connections distante


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

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)