Мне кажется так короче:
Public Class Form1
Dim objEntry As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)
Dim strIP As String = CType(objEntry.AddressList.GetValue(0), System.Net.IPAddress).ToString
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Label1.Text = " IP - " + (strIP)
End Sub
Dim Client As New Net.WebClient
Client.Proxy = New System.Net.WebProxy
Dim Tmp As String = Client.DownloadString("http://ip-address.ru/show")
Label1.Text = Tmp
Client.Dispose()
BackdoorCybergate.2698 - поясните, пожалуйста.
Воспользуйтесь поиском -http://yandex.ru/yandsearch?text=BackdoorCybergate&lr=101102&msid=22894.26913.1361279837.85772
Т.е. программа с подобным кодом обречена на поругание антивирем?
Мне кажется так короче:
Public Class Form1
Dim objEntry As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName)
Dim strIP As String = CType(objEntry.AddressList.GetValue(0), System.Net.IPAddress).ToString
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Label1.Text = " IP - " + (strIP)
End Sub
End Class

отсюда даже парсить не надо
Dim Client As New Net.WebClient
Client.Proxy = New System.Net.WebProxy
Dim Tmp As String = Client.DownloadString("http://ip-address.ru/show")
Label1.Text = Tmp
Client.Dispose()