#include <vcl.h>
#pragma hdrstop
USEFORM("Unit2.cpp", Form1);
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TForm1), &Form1);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
#include <stdio.h>
#include <winsock2.h> // õåäåð ñ îïèñàíèåì wsa ô-èé

// äëÿ ms vc++6.0 è äð - ïîäêëþ÷àåì lib'ó ñ èìïîðòàìè wsa ô-èé
#pragma comment(lib,"ws2_32.lib")

int main(int argc, char* argv[])
{
char request[1024*5]; // áóôôåð ïîä çàïðîñ
char response[1024]; // áóôôåð ïîä îòâåò
sockaddr_in s_a;
WSADATA wd; // ñòðóêòóðà WSADATA

WSAStartup( MAKEWORD( 2, 2 ), &wd ); // èíèöèàëèçèðóåì wsa

SOCKET s = socket( AF_INET, SOCK_STREAM, 0 ); // ñîçäàåì ñîêåò
if (s == INVALID_SOCKET) return 255; // åñëè îøèáêà - âûõîä

s_a.sin_addr.s_addr = inet_addr( "188.40.76.205" ); // àéïè ñåðâåðà, â äàííîì ñëó÷àå - àíòè÷àò.ðó
s_a.sin_port = htons( 80 ); // ïîðò ñåðâåðà
s_a.sin_family = AF_INET;

if (connect( s, (struct sockaddr*)&s_a, sizeof( s_a ) ) == SOCKET_ERROR) return 255; // SOCKET_ERROR - íåâîçìîæíî ïîäêëþ÷èòñÿ ê ñåðåâåðó

char url[] = "/"; // ñòðàíèöà
char host[] = "antichat.ru"; // õîñò
// ôîðìèðóåì çàïðîñ
sprintf( request, "GET %s HTTP/1.1\r\nHost: %s\r\nConnection: Close\r\n\r\n", url, host );

send( s, request, strlen( request ), 0 ); // ïîñëàòü çàïðîñ
recv( s, response, 1023, 0 ); // ìàêñèìóì ïîëó÷èòü 1023 áàéòà

printf( "%s\r\n", response ); // âûâåñòè îòâåò íà ýêðàí

closesocket( s ); // çàêðûâàåì ñîêåò
WSACleanup(); // äåèíèöèàëèçèðóåì wsa

return 0;
}