Je cherche un moyen de récupérer l'adresse Ip de l ordinateur et savoir si il est connecter au réseaux ?
merci pour vos réponce
merci pour vos réponce
Dernière édition par TheMonax le Sam 10 Mai - 18:37, édité 2 fois
try
Dim info As New System.Xml.XmlDocument 'création de la variable info [size=12][color=#222222][/color][/size]
Dim infonode As System.Xml.XmlNodeList 'création de la variable infonode[size=12][color=#222222][/color][/size]
Dim i As Integer 'création de la variable i[size=12][color=#222222][/color][/size]
info.Load("http://freegeoip.net/xml/") 'obtention des informations[size=12][color=#222222][/color][/size]
infonode = info.GetElementsByTagName("Response") [size=12][color=#222222][/color][/size]
For i = 0 To infonode.Count - 1 'pour chaque info dans infonode[size=12][color=#222222][/color][/size]
infonode(i).ChildNodes.Item(0).InnerText.Trim()[size=12][color=#222222][/color][/size]
Label1.Text = "Adresse IP : " & infonode(i).ChildNodes.Item(0).InnerText.Trim()[size=12][color=#222222][/color][/size]
Next
label7.text = "accès internet"
catch ex as exception
label7.text = "pas d'accès internet"
end try
|
|