char *data=new char[1024*1024];
char *acce=new char[1024*1024];
char *par=new char[1024*5];
char host[100]="vkontakte.ru";
char user[100]="lalalalal@mail.ru";
char pass[100]="lalalala";
SOCKET s;char *Ip=new char[150];
SOCKADDR_IN adr;
WSADATA wsd;
WSAStartup(MAKEWORD(2,0),&wsd);
hostent *h;
h=gethostbyname(host);
sprintf(Ip,"%d.%d.%d.%d",(unsigned char)h->h_addr_list[0][0],(unsigned char)h->h_addr_list[0][1],(unsigned char)h->h_addr_list[0][2],(unsigned char)h->h_addr_list[0][3]);
adr.sin_family=AF_INET;
adr.sin_addr.s_addr =inet_addr(Ip);
adr.sin_port = htons(80);
s = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
connect(s,(sockaddr*)&adr,sizeof(adr));
strcpy(par,"success_url=&fail_url=&try_to_login=1&email=");
strcat(par,user);strcat(par,"&pass=");strcat(par,pass);
strcpy(data,"POST http://vkontakte.ru/login.php HTTP/1.1\r\n");
strcat(data,"Accept: */*\r\n");
strcat(data,"Referer: http://vkontakte.ru/login.php?u=1\r\n");
strcat(data,"Accept-Language: ru\r\n");
strcat(data,"Content-Type: text/html\r\n");
strcat(data,"User-Agent: Mozilla/4.0");
strcat(data,"Host: vkontakte.ru\r\n");
strcat(data,"Content-Length: ");strcat(data,AnsiString(strlen(par)).c_str());
strcat(data,"\r\n");strcat(data,"Connection: Keep-Alive\r\n");
strcat(data,"Cache-Control: no-cache");//strcat(data,par);
strcat(data,"\r\nConnection: Close\r\n\r\n");
strcat(data,par);strcat(data,"\r\n\r\n");
send(s,data,strlen(data),0);
recv(s,acce,1024*1024,0);
Memo1->Text=AnsiString(acce);