Discussion :

[walid kh]

Bonjour tout le monde,

Voilà après quelques recherches sur le net j'ai trouvé une fonction dont j'ai vraiment besoin dans mon projet. Il s'agit de voir toutes les adresses ip des machines dans un réseau local mais quand j'ai écrit le code il apparait une exception de référence null.
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
16
17
18
19
20
21
22
23
24
25
26
Public Shared Function GetAllIPADDRESSES(Optional ByVal args As String() = Nothing) As Integer
'args in the signature is optional, without it
'the function will simply get the hostname
'of the local machine then go from there

Dim strHostName As New String("")
If args.Length = 0 Then
' Getting Ip address of local machine...
' First get the host name of local machine.
strHostName = DNS.GetHostName()
Console.WriteLine("Local Machine's Host Name: " + strHostName)
Else
strHostName = args(0)
End If

' Then using host name, get the IP address list..
Dim ipEntry As IPHostEntry = DNS.GetHostByName(strHostName)
Dim addr As IPAddress() = ipEntry.AddressList

Dim i As Integer = 0
While i < addr.Length
Console.WriteLine("IP Address {0}: {1} ", i, addr(i).ToString())
System.Math.Max(System.Threading.Interlocked.Increment(i), i - 1)
End While
Return 0
End Function

L'exception se situe dans la ligne en rouge. L'exception est :

La référence d'objet n'est pas définie à une instance d'un objet

Aussi que faut il mettre au juste dans le paramètre de la fonction exactement

Merci de m'aider.

[hunteshiva]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Shared Function GetAllIPADDRESSES(Optional ByVal args As String() = Nothing) As Integer

args est délacré dans l'appel de ta fonction par une collection de string "String()"
donc c'est normale qu'il te génère une erreur

sa serrais plus juste si tu mettais ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If args().Length = 0 Then
'ou ceci
'avec "x" un integer qui correspondrais a l'index
If args(x).Length = 0 Then

je te dit sa au feeling, après je n'ais pas du tout testé ce code

[walid kh]

Non c la même exception

[hunteshiva]

il faut d'abord que des args soient créés avant de pouvoir mesurer leurs longueurs ...
la aucuns args n'a été crée donc pour moi c'est normale,
il ne peut pas mesurer de "lengths"


* dur de reprendre un code fait si on ne le comprend pas *

[walid kh]

c ca le problème qu'est c qu'il faut mettre dans le args ?

[hunteshiva]

ou a tu trouvé cette fonction ??