Апр 30, 2012 - Уроки Visual Basic.NET 6 комментариев
Узнаем внешний IP адрес
Узнаем внешний адрес с помощью парсинга с сайта
Похожие записи:
Метки: Внешний IP
Евгений
Просмотров: 9 524
Запись опубликована в 06:16
Узнаем внешний адрес с помощью парсинга с сайта
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()