Работа с интернетом.

int pos_size_button0[2][4];
string text_button0[2];
int flag_button0[2];

pos_size_button0[0][0]=15; pos_size_button0[0][1]=45; pos_size_button0[0][2]=100; pos_size_button0[0][3]=20;
pos_size_button0[1][0]=120; pos_size_button0[1][1]=45; pos_size_button0[1][2]=100; pos_size_button0[1][3]=20;
text_button0[0]="Отправить"; text_button0[1]="Сохранить";

//////////

int pos_size_edit0[1][4];
string text_edit0[1];

pos_size_edit0[0][0]=15; pos_size_edit0[0][1]=15; pos_size_edit0[0][2]=205; pos_size_edit0[0][3]=20;
text_edit0[0]="";

//////////

createdialog(0, BUTTON, #pos_size_button0[0][0], #text_button0[0], #flag_button0[0] |
EDIT, #pos_size_edit0[0][0], #text_edit0[0]);
//////////

showdialog(0, "

Сервер v1.0", 595, 300, 250, 178, 1, 1);

/////////////сам сервер//////////
char recvs[256];//массив в который принимаем
char sends[256];//массив который передаем
int flag_recv=0;// это флаг в котором будет 1 когда на сервер придет сообщение

enablelistenport (10005);//включили прослушку 10005 порта (самому выбирать)
recvport (#recvs[0], 256, #flag_recv);//начали слушать. в отдельном потоке

enabletimer(0);//включили таймер

loop()//цикл бота
{
mu_pause (1000);
}

function mu_pause(int p)//реализация паузы что бы не зависал на время ее скрипт
{
for (int t=gettime(); gettime()-t<p; sleep(10)){}
}

CREATE_TIMER(0, 50)
{
if (flag_button0[0]==1)
{
strcpy(#sends[0], text_edit0[0]);//заполним массив передачи текстом с второго edit
sendport (#sends[0], size(#sends[0]));//отправим
}
}

int pos_size_static0[2][4];
string text_static0[2];

pos_size_static0[0][0]=15; pos_size_static0[0][1]=15; pos_size_static0[0][2]=202; pos_size_static0[0][3]=20;
pos_size_static0[1][0]=15; pos_size_static0[1][1]=40; pos_size_static0[1][2]=160; pos_size_static0[1][3]=20;
text_static0[0]=""; text_static0[1]="";

//////////

createdialog(0, STATIC, #pos_size_static0[0][0], #text_static0[0]);
//////////

showdialog(0, "


П", 466, 446, 246, 100, 1, 1);

////////////сам кликент////////////

char recvs[256];//массив в который принимаем
char sends[256];//массив который передаем

enabletimer(0);//включили таймер

int n=0;
loop()//цикл бота
{
textout(0, 50, 50, format(n), 0);
n++;
mu_pause (500);
}

function mu_pause(int p)//реализация паузы что бы не зависал на время ее скрипт
{
for (int t=gettime(); gettime()-t<p; sleep(10)){}
}

CREATE_TIMER(0, 50)
{


/* Если на одном компьютере указать 127.0.0.1
если

одна подсеть узнать ip запустив пуск выполнить cmd /k ipconfig /all
если интернеи и выделенный ip у сервака писать его ip*/



if (opensocket ("127.0.0.1", 10005)==1)//откроем сокет на 10005 порту сервера (самому выбирать)
{
if (recvhtml(#recvs[0], 256)>0) messagebox(format(#recvs[0]));, "Ответ", 0);//когда примем ответ запишем ответ в edit
}


closesocket ();//Закрываем сокет
}