Апр 30, 2012 -
Уроки Visual Basic.NET
6 комментариев
Уроки Visual Basic.NET
6 комментариев Узнаем внешний IP адрес
Узнаем внешний адрес с помощью парсинга с сайта
Уроки Visual Basic.NET
6 комментариев Узнаем внешний адрес с помощью парсинга с сайта
BackdoorCybergate.2698 - поясните, пожалуйста.
Воспользуйтесь поиском -
Т.е. программа с подобным кодом обречена на поругание антивирем?
Мне кажется так короче:
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()