Программирование
Веб программирование

IP VB

 
 

Этот контрол нужен в основном для связи с удаленным компом, но можно с ним делать и другие штуки. Например, сейчас мы узнаем свой IP адрес. Создай новый проект, нажми на Project/Components/MicrosoftWinsock Control 6.0, и кинь на форму появившийся на панели инструментов Winsock1, и кнопку. Код:

Private Sub Command1_Click()
MsgBox Winsock1.LocalIP
End Sub

Есть вопросы? Спроси на нашем форуме!!
jek [09.06.2011 12:35]

тю, Пуск>Выполнить>cmd>ipconfig

ObelardO [24.08.2011 11:33]

а если тебе программно нужно узнать ип во время работы программы ?

FakeMan [19.06.2012 10:59]

А внешний IP можно как-то узнать програмно?

Release [19.06.2012 11:48]

Знаю только как на VB.NET, а так попробуй в поисковике поискать думаю найдешь!

Денис [01.10.2012 21:19]

А как на VB.NET?

ilyapoh9530 [27.01.2013 13:46]

Вот пример с получение и внешнего и внутреннего айпи.:
Киньте на форму два лейбла. Первый будет отвечать за внутренний, второй за внешний. подключите компонент MicrosoftWinsock Control 6.0 и тоже киньте на форму.
вот вам исходник с коментариями.

Option Explicit

Dim HTMLCode As String, PocketLen As Integer 'переменная для хранения кода страницы
Function CutIP(HTML As String) As String 'В качестве параметра принимаем код страницы
Dim p1, p2 As Integer
p1 = 1
p1 = InStr(HTML, "Ваш IP:") 'ищем начало нужной строки с IP
If p1 = 0 Then 'если не нашли то сообщим о неудаче
MsgBox "Не удалось получить IP"
Else
HTML = Mid(HTML, p1, Len(HTML) - p1) 'Скопируем выражение "Ваш IP:" и все что стоит после него
p2 = InStr(HTML, " ") 'Ищем конец по тегу
'Возвращаемое значение функции и будет наш IP,на всякий случай сделал Trim
CutIP = Trim(Mid(HTML, 8, p2 - 8))
End If
End Function
Private Sub FormLoad()
Winsock1.RemotePort = 80 'устанавливаем порт сервера 80
Winsock1.RemoteHost = "ip-whois.net" 'Хост
Winsock1.Connect 'Подключаемся
Label1.Caption = "Внутренний IP: " & Winsock1.LocalIP
End Sub
Private Sub Winsock1
Connect() 'Событие генерируется при подключении
'Посылаем запрос на сервер к скрипту ip.php выдающему наш IP
Winsock1.SendData "GET " + "/ip.php" + " HTTP/1.0" + Chr(10) + Chr(10)
End Sub
'Событие генерируется когда нам приходят данные
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Temp As String
PocketLen = PocketLen + bytesTotal 'увеличиваем суммарный объем страницы
Winsock1.GetData Temp 'Получаем данные и помещаем их в переменную
HTMLCode = HTMLCode + Temp 'Дописываем пакет к нашей страницы
'страница весит около 7225 байт.Проверяем вся ли страница принята
'и только тогда в Текстовое поле помещаем наш IP
If PocketLen > 7000 Then Label2.Caption = "Внутренний IP: " & CutIP(HTMLCode)
'End If
End Sub



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.