[INTERFACE]
DIALOG, "Поиск бесплатного прокси через сервис Кибор", 654, 287;
STATIC, "Указатель на переменную в которую запишется найденный прокси в формате "111.222.333.444:80"", 4, 4, 512, 20;
EDIT, 520, 4, 120, 20, string PROXI;
STATIC, "Коды стран, прокси которых искать в формате ^"US | UA | JP^", или "", если искать все", 4, 28, 436, 20;
EDIT, 444, 28, 196, 20, string Code_Country;
STATIC, "Переменная счетчик прокси", 4, 52, 148, 20;
EDIT, 156, 52, 112, 20, int N_NUM;
CHECK, "Проводить дополнительную проверку прокси на этом компьютере", 4, 76, 364, 20, int PRP;
STATIC, "Домен по которому проверяем работоспособность прокси (или пусто)", 4, 100, 368, 20;
EDIT, 376, 100, 264, 20, string DOMEN;
STATIC, "Страница (Или пусто)", 4, 124, 120, 20;
EDIT, 128, 124, 512, 20, string PADE;
STATIC, "Кодировка сайта", 4, 148, 92, 20;
COMBO, "UTF8""windows-1251", 100, 148, 148, 80, string ENCODING;
STATIC, "Указатель на переменную в которую запишется код проверяемой страницы", 4, 172, 396, 20;
EDIT, 404, 172, 124, 20, string CODE_PADE;
CHECK, "Зацикленный поиск. Начинать сначала при окончание списка прокси.", 4, 196, 376, 20, int CYCLE;
BUTTON_OK, "Принять", 432, 232, 100, 20;
BUTTON_CANCEL, "Закрыть", 540, 232, 100, 20;
[END]

[APPEARANCE]
COLOR = 255, 0, 255;
SIZE_X = 8;
SIZE_Y =2;
[END]

[INFO]
[ENDL]>>"Цикл = ">>~CYCLE~
[END]

[ASSOC_VAR]
PRP=0;Code_Country="";
DOMEN="https://google.com";
PADE="search?q=кибор";
ENCODING="UTF8";
N_NUM=N_PROXI;
PROXI=Free_PROXI;
CODE_PADE=Pade_PROXI;
CYCLE=0;
N_NUM_V=#~N_NUM~;
PROXI_V=#~PROXI~;
CODE_PADE_V=#~CODE_PADE~;
[END]

[GLOBAL_VAR]
string ~PROXI~; 
string ~CODE_PADE~; 
int ~N_NUM~=0; 
string T_Free_PROXI=""; 
[END]

[EVENT]
IF (PRP==1)ENABLE(GETID(DOMEN), 1);
IF (PRP==1)ENABLE(GETID(PADE), 1);
IF (PRP==1)ENABLE(GETID(ENCODING), 1);
IF (PRP==1)ENABLE(GETID(CODE_PADE), 1);
IF (PRP==0)ENABLE(GETID(DOMEN), 0);
IF (PRP==0)ENABLE(GETID(PADE), 0);
IF (PRP==0)ENABLE(GETID(ENCODING), 0);
IF (PRP==0)ENABLE(GETID(CODE_PADE), 0);
[END]

[FUNCTION_BODY]
function(int prp, int cycle, int #n_proxi, string #proxi, string domen, string pade, string #text_pade, string encoding, string country)
{
if (encoding=="UTF8") encoding="";
a: proxi="-";
if (prp) n_proxi=findproxi(n_proxi, #proxi, domen, pade, #text_pade, encoding, country);
else n_proxi=findproxi(n_proxi, #proxi, country);
if (proxi==T_Free_PROXI && proxi!="-") goto a;
T_Free_PROXI=proxi;
  if (proxi=="-")
  {
    if (cycle)
    {
    n_proxi=0;
    goto a;
    }
    else return 0;
  }
return 1;
}
[END]

[CALL]
(PRP, CYCLE, N_NUM_V, PROXI_V, DOMEN, PADE, CODE_PADE_V, ENCODING, Code_Country)
[END]

[FUNCTION_LOGIC]  
==1
[END]