XProfan

typedef struct in_addr {

    union {

        struct {

            u_char s_b1,s_b2,s_b3,s_b4;

        } S_un_b;

        struct {

            u_short s_w1,s_w2;

        } S_un_w;

        u_long S_addr;

    } S_un;

}IN_ADDR, *PIN_ADDR, FAR *LPIN_ADDR;

long client.sockport=0
long client.sockip=0
long client.mainsock
long client.hDll
mem client.wsadata=wsadata
mem client.sockaddr_in=sockaddr_in

client.close{

    wsacleanup()
    dispose client.sockaddr_in
    dispose client.wsadata

}

client.closesock{

    return closesocket(client.mainsock)

}

client.setup(string ip,long port){

    case (wsastartup(makeword(2,0),client.wsadata)<>0) : return false
    client.sockaddr_in::sin_family%=AF_INET
    client.sockport=htons(port)
    client.sockip=inet_addr(addr(ip))
    client.sockaddr_in::sin_port%=client.sockport
    client.sockaddr_in::s_addr&=client.sockip
    client.mainsock=socket(AF_INET,SOCK_STREAM,0)
    case (connect(client.mainsock,client.sockaddr_in,sizeof(client.sockaddr_in))<0) : return false
    return true

}