saveimage(#scr[0][0], path_i);

string token = "97654321:AAG3v_bgRV6-wIyYe9JEt5eEA";
string chat_id = "12345789";

send_photo_tg("D:\screenshot.bmp", "This is caption");


function send_photo_tg(string file_path, string caption)
{
external(INT, "DeleteFile", "DeleteFileA", "kernel32.dll");
string log_path = tempfolder()+"tg_response.txt";
string response, temp;
if(fopen(file_path, "rb") == 0) {messagebox("File not found:^n^n"+file_path); return 0;} else fclose();

temp = "curl -s -F chat_id="+chat_id;
temp = temp + " -F photo=@"+file_path;
if (size(caption) > 0) temp = temp + " -F caption=^""+caption+"^"";
temp = temp + " ^"https:/"+"/api.telegram.org/bot"+token+"/sendPhoto^"";
temp = temp + " > "+log_path+" 2>&1";
system(temp);
if(fopen(log_path, "r"))
{
while (freadline(temp) > 0) response = response + temp;
fclose();
} else messagebox("Error open "+log_path);
if (regexsearch(1, #temp, response, "^"ok^":true")==0) messagebox("Error send Telegram:^n^n"+response);
DeleteFile(log_path);
return 1;
}

win W_Kib;
int Screen[3000][3000];
int K_Kib;
int X_Kib[1000];
int Y_Kib[1000];
int Color0[2] = {6488318, 65062};
int Kol0[2] = {1, 1};
int eCol_Kib;
int eX_Kib;
int eY_Kib;
int Color1[2] = {2885412, 13565951};
int Kol1[2] = {1, 1};

getdisplay(eCol_Kib, eX_Kib, eY_Kib);

pause(1000);
int xM_Kib, yM_Kib;
getmouse(xM_Kib, yM_Kib);
W_Kib=getwindow(0, xM_Kib, yM_Kib);
eX_Kib=W_Kib.widthclient;
eY_Kib=W_Kib.heightclient;

goto KIB_3;
KIB_2: messagebox("Да");
goto KIB_Exit;
KIB_3:;
enabletopscreen(); // черный экран
if (FindHeapcolor(1, #Screen[0][0], #W_Kib, W_Kib.leftclient, W_Kib.topclient, 27, 15, 27, 15, #Color0[0], #Kol0[0], 2, 2, 1, 0, 0, 0, #K_Kib, #X_Kib[0], #Y_Kib[0], 115, 308, 351, 747, 10, 100, 10, 0, "0, 0, 0, 0", 100, "Левую клик", 4, 33, 0, 0, 5, 5, 0, 0)>0) goto KIB_2;
messagebox("Нет");
FindHeapcolor(1, #Screen[0][0], #W_Kib, W_Kib.leftclient, W_Kib.topclient, 40, 33, 41, 34, #Color1[0], #Kol1[0], 2, 2, 1, 0, 0, 0, #K_Kib, #X_Kib[0], #Y_Kib[0], 76, 247, 383, 836, 0, 0, 10, 0, "0, 0, 0, 0", 0, "Переместить", 0, 0, 0, 0, 5, 5, 0, 0);
goto KIB_Exit;
KIB_Exit:;