Soyez le premier à donner votre avis sur cette source.
Snippet vu 7 350 fois - Téléchargée 94 fois
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
31 déc. 2005 à 18:32
Et pour connaitre les connections réseau sans fil ??
5 janv. 2002 à 19:07
3 nov. 2001 à 18:14
Et nommerla listebox : "ListBox1" ...
Faire de mème avec la combobox : "ComboBox1"
17 août 2001 à 15:14
23 mai 2001 à 00:18
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.