Интернет. Общение между пользователями.

char ch[256];
loop()readbuffernet(#ch[0], 256, "kluch_prog", -1);

<?php
echo 'preved';
?>

char s[100];
char p[9999];
if (opensocket ("kibor.at.ua", 80)==1)
{
strcpy(#s[0], "GET /_ld/0/3_kib.php HTTP/1.1"+formatic(13)+formatic(10)+"Host:kibor.at.ua");
int sizf=size(#s[0]);
s[sizf]=formatic(13);s[sizf+1]=formatic(10);s[sizf+2]=formatic(13);s[sizf+3]=formatic(10);

if (sendhtml(#s[0], sizf+4)>0)
{
recvhtml(#p[0], 9999);
messagebox (format(#p[0]));
}
closesocket ();
}

readbuffernet(#ch[0], 256, "kluch_prog", -1);
ah=format(#ch[0]);
A=size(ah);
strcpy(#ch[0], ah);
t="";
l=0;

for (int j=0; j<size(ah); j++)
{
if (ch[j]=='|')//Разделитель
{
s[0+l]=t;
messagebox(s[0+l]);//смотрим что получили
l++;
t="";
}
else t=t+ch[j];
}
/*Для отправки
s[0]="1";
s[1]="2";
s[2]="3";
s[3]="4";
ah=s[0]+"|"+s[1]+"|"+s[2]+"|"+s[3]+"|";
writebuffernet(#ch[0], A, "kluch_prog", -1);
messagebox (format(#ch[0]));//смотрим что отправили
*/

char a[256];
string b=text_edit0[0];
strcpy(#a[0], b);
int size_char=size(#a[0]);
if (size_char>15 || size_char<5)
{
external(INT, "my_message", "MessageBoxA", "user32.dll");
my_message(0, "Ник должен иметь > 5 символов или < 15", "Ограничение", 0);
}