Utiliser les interfaces com réseau sous vista

Soyez le premier à donner votre avis sur cette source.

Vue 5 856 fois - Téléchargée 373 fois

Description

Cette source contient une librairie implémentant l'ensemble des interfaces COM exposés par le Gestionnaire des listes Réseaux de Vista.
Le code est simple et commenté, cela grâce aux interfaces COM extrèment facile à manipuler.

Voici la liste des interfaces utilisées:
INetworkListManager: http://msdn.microsoft.com/en-us/library/aa370769(VS.85).aspx
INetwork: http://msdn.microsoft.com/en-us/library/aa370750(VS.85).aspx
INetworkConnection: http://msdn.microsoft.com/en-us/library/aa370751(VS.85).aspx

NB: La gestion d'erreur est minime, à vous de l'améliorer pour vos besoins.

Conclusion :


Voila voila amusez-vous bien sur cette source :)
Comme d'habitudes, commentaires...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Redman31100
Messages postés
167
Date d'inscription
mardi 11 septembre 2007
Statut
Membre
Dernière intervention
11 février 2009
-
Derien Willi ^^

Si t'a encore besoin d'aide tu me dis :P
cs_Willi
Messages postés
2376
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
16 -
Merci d'avoir apporté ce correctif ^^
Redman31100
Messages postés
167
Date d'inscription
mardi 11 septembre 2007
Statut
Membre
Dernière intervention
11 février 2009
-
J'oublie, GetIndexFromExistingNetWork sert à ce code :

Private Sub btnConnectivity_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnectivity.Click
If lstbAvailableNetworks.SelectedItems.Count > 0 Then
Using conForm As New FormNetwork
Dim SelNetwork As Vista.NLM.Network = MyExistingNetworks(GetIndexFromExistingNetWorks)
conForm.SelectedNetwork = SelNetwork
conForm.ShowDialog()
End Using
End If
End Sub
Redman31100
Messages postés
167
Date d'inscription
mardi 11 septembre 2007
Statut
Membre
Dernière intervention
11 février 2009
-
Private Sub btnGetNetworks_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetNetworks.Click
' Listage des Résaux
MyExistingNetworks = MyNetworkManager.GetNetworks(Vista.NLM.NETWORK_FILTER.ALL)

Select Case cmbNetworkFilter.SelectedIndex
Case 0 ' Connectés
lstbAvailableNetworks.Items.Clear()
For Each NetWork As Vista.NLM.Network In MyExistingNetworks
If NetWork.IsConnected Then
lstbAvailableNetworks.Items.Add(NetWork.Name)
End If
Next
Case 1 ' Déconnectés
lstbAvailableNetworks.Items.Clear()
For Each NetWork As Vista.NLM.Network In MyExistingNetworks
If Not NetWork.IsConnected Then
lstbAvailableNetworks.Items.Add(NetWork.Name)
End If
Next
Case 2 ' Tous
lstbAvailableNetworks.Items.Clear()
For Each NetWork As Vista.NLM.Network In MyExistingNetworks
lstbAvailableNetworks.Items.Add(NetWork.Name)
Next
End Select
End Sub

Public Function GetIndexFromExistingNetWorks()
Dim index As Integer
Dim indexvalue As String = lstbAvailableNetworks.SelectedItem

For Each NetWork As Vista.NLM.Network In MyExistingNetworks
If NetWork.Name = indexvalue Then
index = MyExistingNetworks.IndexOf(NetWork)
End If
Next

Return index
End Function

Sinon si on veut directement avoir la liste de tout les réseaux connectés dès le départ. On peut modifier ce code :

Private Sub FormTest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Listage des Résaux
MyExistingNetworks = MyNetworkManager.GetNetworks(Vista.NLM.NETWORK_FILTER.ALL)

lstbAvailableNetworks.Items.Clear()
For Each NetWork As Vista.NLM.Network In MyExistingNetworks
If NetWork.IsConnected Then
lstbAvailableNetworks.Items.Add(NetWork.Name)
End If
Next

cmbNetworkFilter.SelectedIndex = 0
End Sub

Voilà
cs_Willi
Messages postés
2376
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
16 -
Merci de l'info !
Peux tu donner tes modifications apportées pour les autres membres à qui cela arriverai stp ?

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.