bonjour à tous;

voilà j'ai une problème dans ma fonction dont voilà le code :

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
 Function GetIPAddress(ByVal CompName As String) As String
        Dim oAddr As System.Net.IPAddress
        Dim sAddr As String
        Try
            With System.Net.Dns.GetHostByName(CompName)
                oAddr = New System.Net.IPAddress(.AddressList(0).Address)
                sAddr = oAddr.ToString
            End With
            GetIPAddress = sAddr
        Catch Excep As Exception
            MsgBox(Excep.Message, MsgBoxStyle.OKOnly, "Lan Messenger")
        Finally
 
        End Try
    End Function
le problème se situe au niveau de
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
With System.Net.Dns.GetHostByName(CompName)
                oAddr = New System.Net.IPAddress(.AddressList(0).Address)
ce que j'ai est un warning qui me dit
Warning 1 'Public Shared Function GetHostByName(hostName As String) As System.Net.IPHostEntry' is obsolete: 'GetHostByName is obsoleted for this type, please use GetHostEntry instead. http://go.microsoft.com/fwlink/?linkid=14202'. C:\Documents and Settings\Administrateur\Mes documents\MyLanApp\MyLanApp\Form1.vb 215 18 MyLanApp
et un autre qui me dit
Warning 2 'Public Property Address() As Long' is obsolete: 'This property has been deprecated. It is address family dependent. Please use IPAddress.Equals method to perform comparisons. http://go.microsoft.com/fwlink/?linkid=14202'. C:\Documents and Settings\Administrateur\Mes documents\MyLanApp\MyLanApp\Form1.vb 216 50 MyLanApp
merci de m'aider