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