Bonjour à tous,

J'ai trouvé ce code pour afficher l'adresse IP (celle d'internet) de son PC dans un label.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
If My.Computer.Network.IsAvailable Then 'Fonctionne si il y a une connexion Internet
 
Private Function DownloadSource(ByVal address As String, ByVal UserAgent As String) As String
        If My.Computer.Network.IsAvailable Then ' Fonctionne si il y a une connexion Internet
            Dim Result As String
            Using NetC As New WebClient() ' Le Label4 affiche l'IP
                NetC.Headers(HttpRequestHeader.UserAgent) = UserAgent
                Result = NetC.DownloadString(address)
            End Using
            Return Result
        Else
        End If
    End Function
 
            Label4.Text = ("Adresse IP : ") + (DownloadSource("http://www.whatismyip.org", "IE"))
        Else ' L'IP est trouvée sur le site "whatismyip.org" avec IE
        End If
Mais le problème est que le code génère des exceptions et j'obtiens régulièrement un
"Serveur distant introuvable"
ou
"Exception...non générée".
De plus un avertissement est affiché :
Avertissement 1 La fonction 'DownloadSource' ne retourne pas une valeur pour tous les chemins de code. Une exception de référence null peut se produire au moment de l'exécution lorsque le résultat est utilisé.
Pouvez-vous me corriger le code ou m'en suggérer un autre ??

Je vous remercie d'avance.

PS : je suis débutant en vb.net