Воскресенье, 14.08.2022, 01:37
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
Категория: Начинающим | Добавил: fils (22.02.2011)
Просмотров: 5491 | Теги: ip, PureBasic | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Copyright MyCorp © 2022
Форма входа

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Поиск
Друзья сайта
  • Разработчики PureBasic
  • Русский сайт о PureBasic
  • pure-basic.narod.ru
  • mirashic.narod.ru
  • purebasic.ucoz.com
  • purebasic.org
  • purebasic.ru
  • Копировать материалы сайта без разрешения автора, ЗАПРЕЩЕНО!

    Сделать бесплатный сайт с uCoz