//рис по адресу C:\link
// для https://bitly.com/
//файл с ссылками тут C:\link\isxod.txt
//формат
/*
http://kibor-bot.com/forum/index.php
http://kibor-bot.com/forum/index.php?c=7
http://kibor-bot.com/forum/topic.php?forum=5&topic=198
http://kibor-bot.com/forum/forums.php?forum=1
http://kibor-bot.com/forum/topic.php?forum=1&topic=1
*/

win w=window ("Bitly - The Power of the Link - Mozilla Firefox");
int k=0;
int paste[74][13];loadimage (#paste[0][0], "C:\link\paste.bmp");
int copy[34][11];loadimage (#copy[0][0], "C:\link\copy.bmp");
int zag[11][12];loadimage (#zag[0][0], "C:\link\zag.bmp");
int x, y;
int tim;
string lin[999];
string linfin[999];

if (fopen ("C:\link\isxod.txt", "r")!=0)
{
l:if (freadline(lin[k])!=0)
{
k++;
goto l;
}
fclose();
}


for (int n=0; n<k; n++)
{
writeclipboard(lin[n]);
wait_image(#zag[0][0]);
sleep(500);
wait_image(#zag[0][0]);
sleep(500);
wait_image(#paste[0][0]);
sleep(500);
sendmouse (LEFT, x, y, w);
sleep(500);
sendmessage(WM_PASTE, 0, 0, w);
sleep(500);
wait_image(#zag[0][0]);
sleep(500);
wait_image(#zag[0][0]);
sleep(500);
tim=gettime ();
aa5: if (findimage(1, #copy[0][0], 0, #x, #y, 0, 0, w.widthclient, w.heightclient, w)==0)
{sleep(50);
if (gettime ()-tim>3000){n--; goto rt;}
goto aa5;}
sleep(500);
sendmessage(WM_COPY, 0, 0, w);
sleep(500);
readclipboard (linfin[n]);
rt: sendmouse (LEFT, 92, 78, w);//клик по назад
sleep(500);
}


if (fopen ("C:\link\finnn.txt", "w")!=0)
{
for (n=0; n<k; n++)
{
fwrite (linfin[n]);
fwrite (ENDL);
}
fclose();
}
start("C:\link\finnn.txt");



function wait_image(int #image[100][100])
{
aa: if (findimage(1, #image[0][0], 0, #x, #y, 0, 0, w.widthclient, w.heightclient, w)==0){sleep(50); goto aa;}
}