Определение IP адреса компьютера - Начинающим - Учебные материалы - Каталог статей

Воскресенье, 28.04.2024, 02:16

PureBasic - кроссплатформенный язык программирования

Главная

Форум

Регистрация

Вход

Приветствую Вас, Гость · RSS

Меню сайта

Категории раздела

Начинающим [8]

Статьи

[16.06.2011]	[Начинающим]
Как быстро найти описание функции или оператора. (0)

[11.06.2011]	[Начинающим]
Создание EXE программы. (3)

[24.03.2011]	[Начинающим]
Работа с отладчиком (0)

[17.03.2011]	[Начинающим]
Замена значка в исполняемом файле (2)

[15.03.2011]	[Начинающим]
Перезагрузка процедур. (0)

[09.03.2011]	[Начинающим]
Создание самораспаковывающегося ZIP архива (0)

[24.02.2011]	[Начинающим]
Работа с ZIP архивами (0)

[22.02.2011]	[Начинающим]
Определение IP адреса компьютера (0)

Файлы

[28.06.2011]	[Примеры]
Примеры программ. (1)

[27.06.2011]	[PB 4.50 и 4.51]
PortLib - работа с портами компьютера (2)

[10.04.2011]	[PB 4.50 и 4.51]
PureSMTP - отправка почты (2)

[10.03.2011]	[Примеры]
3D демки. (1)

[10.03.2011]	[Примеры]
2D демка. (0)

[09.03.2011]	[PB 4.50 и 4.51]
Русская справка (0)

[09.03.2011]	[PB 4.50 и 4.51]
Русификатор PureBasic (1)

[02.03.2011]	[PB 4.50 и 4.51]
HID_Lib - работа с USB HID устройствами. (9)

[01.03.2011]	[Примеры]
CodeArchiv_v4-Beta (0)

[28.02.2011]	[Учебники]
Установка PureBasic на ОС Linux (0)

Каталог статей

Главная » Статьи » Учебные материалы » Начинающим

Определение IP адреса компьютера

Рассмотрим код, который с помощью сервиса http://www.ippages.com позволяет узнать IP адрес компьютера.

Данный пример показывает как работать с сайтами, методом GET запроса.



If InitNetwork() = 0
  MessageRequester("", "Проблемы с сетью!", #MB_OK|#MB_ICONERROR)
  End
EndIf

Connect=OpenNetworkConnection("ippages.com", 80)
If Connect
  SendNetworkString(Connect,"GET /simple/ HTTP/1.0" + Chr(10) + Chr(10) )
  *Mem=AllocateMemory(100000)
  i=0 : HTML.s=""

  Repeat
    If NetworkClientEvent(Connect) = #PB_NetworkEvent_Data
      ReceiveNetworkData(Connect,*Mem,100000)
      HTML + PeekS(*Mem)
      Break
    EndIf
    Delay(100)
    i+1
    If i>20
     Break
    EndIf
  ForEver

  PosIP=FindString(HTML, "Content-Type: text/html", 1)
If PosIP>0
    IP.s=Trim(Mid(HTML, PosIP+27, Len(HTML) - PosIP - 23))
    MessageRequester("", "IP адрес компа - "+IP, #MB_OK|#MB_ICONINFORMATION)
Else
   MessageRequester("", "Не удалось определить IP адрес", #MB_OK|#MB_ICONWARNING)
EndIf
Else
MessageRequester("", "Нет связи с интернетом!", #MB_OK|#MB_ICONERROR)
EndIf