#define WS_MINIMIZEBOX 131072
#define WS_MAXIMIZEBOX 65536
#define WS_VISIBLE 268435456
#define WS_CAPTION 12582912
#define WS_SYSMENU 524288
#define WS_CHILD 1073741824

#define COLOR_APPWORKSPACE 12

#define WM_LBUTTONDOWN 513
#define WM_COMMAND 273
#define WM_CREATE 1
#define WM_LBUTTONDOWN 513

external(INT, "RegisterClass", "RegisterClassA", "User32.dll" );
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );
external(INT, "LoadCursor", "LoadCursorA", "User32.dll" );
external(INT, "LoadCursor", "LoadCursorA", "User32.dll" );
external(INT, "LoadIcon", "LoadIconA", "User32.dll" );

////////////////////
int b1;

int WinProc=address("WindowProc");
char Class[8]={'m', 'y', 'c', 'l', 'a', 's', 's', 0};
int CLASS=address(#PWNDCLASS[0]);//Указатель на название класа

int PWNDCLASS[10];//Структура WNDCLASS
initialarray(#PWNDCLASS[0], 0);//Обнуляем структуру

writeaddress(WinProc, address(#PWNDCLASS[1]));//Указываем адрес функции WindowProc
writeaddress(COLOR_APPWORKSPACE, address(#PWNDCLASS[7]));//Указываем цвет диалога
writeaddress(address(#Class[0]), address(#PWNDCLASS[9]));//Указываем указатель на название класа

if (RegisterClass(CLASS)==0){messagebox("Не удалось зарегистрировать клас"); goto er;}

int Win=CreateWindow(0, address(#Class[0]), "Основное окно",
WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_VISIBLE | WS_CAPTION | WS_SYSMENU,
10, 10, 500, 500, 0, 0, 0, 0);

/////////////////////

loop()sleep(10);

er:;


//Тут можно создавать контролы для окна, поскольку оно одно и мы можем указать родительским окном для контролов message.hwnd
function getmessage(WM_CREATE)
{
b1=CreateWindow(0, "BUTTON", "Кнопка", WS_VISIBLE | WS_CHILD, 10, 10, 200, 30, message.hwnd, 0, 0, 0);
}


function getmessage(WM_LBUTTONDOWN)
{
if (message.hwnd==Win)//Если сообщение от окна
{
beep(1000, 100);
}
}

function getmessage(WM_COMMAND)
{
if (message.lparam==b1)//Если кнопка
{
messagebox ("Кнопка");
}
}

#define WS_MINIMIZEBOX 131072
#define WS_MAXIMIZEBOX 65536
#define WS_VISIBLE 268435456
#define WS_CAPTION 12582912
#define WS_SYSMENU 524288
#define WS_CHILD 1073741824

#define COLOR_APPWORKSPACE 12

#define WM_LBUTTONDOWN 513
#define WM_COMMAND 273
#define WM_CREATE 1
#define WM_LBUTTONDOWN 513

external(INT, "RegisterClass", "RegisterClassA", "User32.dll" );
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll" );
external(INT, "LoadCursor", "LoadCursorA", "User32.dll" );
external(INT, "LoadCursor", "LoadCursorA", "User32.dll" );
external(INT, "LoadIcon", "LoadIconA", "User32.dll" );

////////////////////

int WinProc=address("WindowProc");
char Class[8]={'m', 'y', 'c', 'l', 'a', 's', 's', 0};
int CLASS=address(#PWNDCLASS[0]);//Указатель на название класа

int PWNDCLASS[10];//Структура WNDCLASS
initialarray(#PWNDCLASS[0], 0);//Обнуляем структуру

writeaddress(WinProc, address(#PWNDCLASS[1]));//Указываем адрес функции WindowProc
writeaddress(COLOR_APPWORKSPACE, address(#PWNDCLASS[7]));//Указываем цвет диалога
writeaddress(address(#Class[0]), address(#PWNDCLASS[9]));//Указываем указатель на название класа

if (RegisterClass(CLASS)==0){messagebox("Не удалось зарегистрировать клас"); goto er;}

int Win=CreateWindow(0, address(#Class[0]), "Первое окно",
WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_VISIBLE | WS_CAPTION | WS_SYSMENU,
10, 10, 500, 500, 0, 0, 0, 0);

int Win_D=CreateWindow(0, address(#Class[0]), "Дочерное окно в окне",
WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_CHILD,
10, 50, 300, 200, Win, 0, 0, 0);
//Кнопку создаем посде создания окна и получения на него HWND, а не в сообщение WM_CREATE, так как в том сообщение окно еще не записало в Win = HWND
int b1=CreateWindow(0, "BUTTON", "Кнопка в доч окне", WS_VISIBLE | WS_CHILD, 10, 10, 200, 30, Win_D, 0, 0, 0);

int Win2=CreateWindow(0, address(#Class[0]), "Второе окно",
WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_VISIBLE | WS_CAPTION | WS_SYSMENU,
515, 10, 500, 200, 0, 0, 0, 0);
int b2=CreateWindow(0, "BUTTON", "Кнопка", WS_VISIBLE | WS_CHILD, 10, 10, 120, 30, Win2, 0, 0, 0);

/////////////////////

loop()sleep(10);

er:;

/*
//Тут контролы не создаем, так как в переменные Win и Win2 HWND будут записаны только после отработки функций CreateWindow!
function getmessage(WM_CREATE)
{

}
*/

function getmessage(WM_LBUTTONDOWN)
{
if (message.hwnd==Win2)//Если сообщение от второго окна
{
beep(1000, 100);
}
}

function getmessage(WM_COMMAND)
{
if (message.lparam==b1)//Если кнопка в дочерном окне
{
messagebox ("Кнопка в доч окне");
}
if (message.lparam==b2)//Если кнопка во втором окне
{
messagebox ("Кнопка");
}
}

string find="Распознать текст OCR";//Request
string path_webdriver=pathfolder()+"python\webdriver\geckodriver.exe"; // Way to webdriver. C:\Program Files (x86)\Kibor\python\webdriver\geckodriver.exe
string path_browser="C:\Program Files (x86)\Mozilla Firefox\Firefox.exe"; // Путь к браузеру Мозила

if (runpython()==0){messagebox ("Failed to start Python"); goto er;}//Run the interpreter Python

//Training
import();

//Launching the browser and switching to https://www.google.com
start_browser();

//We find on the Google search page a field for entering the search and enter the query there
find_google();

//Search on the page of the opened search for a link that leads to kibor-bot.com and click on it
F: if (find_site("kibor-bot.com")==0)//If this page does not link to kibor-bot.com
{// You need to go to the next search page
if (find_site("Next") == 0) goto exits; //If there is no Next button on this page, exit the program - MUST BE NAME OF BUTTON NEXT IN SEARCH GUGLA
pause (5000); //If you clicked the Next pause button for 5 seconds and repeat the search for a link to kibor-bot.com
goto F;
}



exits:;
closepython();//Finishing work with the interpreter
er:;

function find_site(string find_link)//Search on the page of the opened search for a link that leads to the specified link
{
string rez;
sendpython("web.find_element_by_partial_link_text(^'"+find_link+"^').click()");//We send Python a command to find the link containing kibor-bot.com and click on it
sendpython("print(^'yes^')");//Immediately without waiting for the end of the first Send command print('yes')

loop()//A closed loop in which we are waiting for an answer
{
rez=getpython();//Trying to read the answer If the link was not found, then in addition to yes, the answer will contain a description of the error.
if (rez!="ERROR_READ_PYTHON") // If Python answered us something ..
{
//messagebox (rez+);//See what comes when they found a link and when they did not find it
if (rez=="yes")return 1;//If the answer only contains the word yes, then we found a link and there is no description of the error.
return 0;//Otherwise, the answer is not only the word yes. So we didnt find the link
}
}
}

function find_google()//We find on the Google search page a field for entering the search and enter the value of the find variable there
{
// First, we initialize the variable finds in Pythen with our variable find with a synchronous function
sendgetpython("finds=^'"+find+"^'"); // finds=find
__python
element = web.find_element_by_name('q')
element.send_keys(finds)
time.sleep(1);
element.send_keys(Keys.ENTER)
time.sleep(3);
print('yes')
__end_python
while (getpython()!="yes")sleep(100);// We are waiting for the answer "yes" in the loop. It will be when the Python script runs
}

function start_browser()//Launching the browser
{
//First, we initialize the variables in Pythen with our synchronous functions.
sendgetpython("p_web=^'"+path_webdriver+"^'");// p_web=path_webdriver
sendgetpython("p_br=^'"+path_browser+"^'"); // p_br=path_browser
__python
web = webdriver.Firefox(executable_path=p_web, firefox_binary=p_br) # Тут мы используе переменные p_web и p_br
web.get('https://www.google.com')
time.sleep(1);
print('yes')
__end_python
while (getpython()!="yes")sleep(100);// We are waiting for the answer "yes" in the loop. It will be when the Python script runs
}


function import()//Training
{
__python
import time
from selenium import webdriver
from selenium.webdriver.common.keys import Keys
print('yes')
__end_python
while (getpython()!="yes")sleep(100);// We are waiting for the answer "yes" in the loop. It will be when the Python script runs
}

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

pos_size_edit0[0][0]=10; pos_size_edit0[0][1]=9; pos_size_edit0[0][2]=221; pos_size_edit0[0][3]=20;
text_edit0[0]="Proxy parsing...";

createdialog(0, EDIT, #pos_size_edit0[0][0], #text_edit0[0]);
showdialog(0, "Proxy Search", 200, 200, 250, 70, 1, 1);
//////////



find_proxi();



function find_proxi()
{
int pade=1;
string T;
S:;
if (sendgetweb(#T, "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:78.0) Gecko/20100101 Firefox/78.0", "GET", "http:/^/foxtools.ru", "Proxy?page="+format(pade)))
{
text_edit0[0]="Proxy parsing...";
//messagebox ("Proxy?page="+format(pade));
/*
if (fopen ("c:\5.txt", "w")!=0)
{//если открылся
fwrite(T);
fclose();//закрываем файл
}
start("c:\5.txt");
*/

string P[100];
string R="(?<=input type=^"checkbox^" class=^"ch^" value=^")[\d]+(\.)[\d]+(\.)[\d]+(\.)[\d]+(:)[\d]+(?=^" onclick=^"SelectProxy\(this\)^")";
int k=regexsearch(100, #P[0], T, R);
if (k==0)
{
messagebox ("No proxy");
return;
}
for (int n=0; n<k; n++)
{
//messagebox (P[n]);
text_edit0[0]=P[n];

if (sendgetweb(P[n], #T, "", "GET", "https:/^/kibor-bot.com", "forum"))
{
if (T!="")
{
//messagebox (IP[n]+":"+PORT[n]);
messagebox (P[n]+" - "+T);
if (fopen ("c:\5.txt", "w")!=0)
{//если открылся
fwrite("Working proxy "+P[n]+"^r^n"+T);
fclose();//закрываем файл
}
start("c:\5.txt");
return;
}
}

}
}
pade++;
goto S;
}

int a[900];
initialarray(#a[0], 125);

int a[900][20];
initialarray(#a[0][0], 125);

char a[900];
initialarray(#a[0], 'A');

char a[900];
initialarray(#a[0], 65);

string a[900];
initialarray(#a[0], "Бла бла");

string a[900];
initialarray(#a[0], "");

system("start %SystemRoot%\System32\calc.exe");