FreeBasic

Код ниже возвращает IP адрес сервера. Был написан на языке С и адаптирован мною.

Платформа: Windows
Автор: неизвестен
Адаптация под FreeBasic: Станислав Будинов

#INCLUDE "win/winsock2.bi"
#INCLUDE "crt.bi"

Dim As WSADATA wsaData

If WSAStartup(MAKEWORD(2,2), @wsaData) = 0 Then
    Dim As ZString*64 chInfo = "http://users.freebasic-portal.de/freebasicru/"
    Dim As hostent Ptr sh
    sh=gethostbyname(@chInfo)
    If sh<>NULL Then
        Print *sh->h_name
        Dim As Integer nAdapter
        While sh->h_addr_list[nAdapter]
            Dim adr As sockaddr_in
            memcpy(@adr.sin_addr,sh->h_addr_list[nAdapter],sh->h_length)
            Print *inet_ntoa(adr.sin_addr)
            nAdapter+=1
        Wend
    Else
        Print "wrong!!!"
    Endif
    WSACleanup()
Else
    Print "Winsock Bad!!!"  
Endif
Sleep

Результат:

users.freebasic-portal.de/freebasicru
31.170.161.189