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