Версия 5.44 Регулярные выражения

function Checking_License(string Type)
{
getlocaltime(Year, Month, DayOfWeek, Day, Hour, Minute, Second, Milliseconds);
Strftime(address(#Date[0]), sizearray(Date), "%d.%m.%Y", Hour, Minute, Second, Day, Month, Year);

if (Type == "MessageBox")
{
if (sendgetweb(#Text_File[0], "Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.0; .NET CLR 1.0.2914)", "GET", "http:/"+"/.zzz.com.ua", "K2019Bot License.txt") > 0)
{
int Boxes = regexsearch(sizearray(Elements), #Elements[0], format(#Text_File[0]), "[^;]+(?=;|$)");
if (Boxes != 0)
{
for(int ii=0; ii<Boxes; ii++)
{
if(regexsearch(1, #User_Box, Elements[ii], "^.+?(?=\/)"))
{
if (User_Box == Local_User)
{
regexsearch(1, #Date_Box, Elements[ii], "(?<=\/)[\d\.]+(?=\/)");
regexsearch(1, #Information_Box, Elements[ii], "[^\/]+(?=;|$)");

Result = Date_Compare(format(#Date[0]), Date_Box, #Difference);
Checked_User = 1;
break;
}
else
{
Checked_User = 0;
}
}
}
}
}
else
{
MessageBeep(MB_ICONEXCLAMATION);
my_message(0, "Не удается подключиться к серверу. Пожалуйста повторите попытку позже." , "", MB_OK | MB_ICONERROR | MB_TOPMOST);
}
//============================
if (Checked_User == 1)
{
if (Result == 2)
{
Registered_User = 1;

if(fopen(Settings_File_Path, "r") != 0)
{
fclose();
GetPrivateProfileString ("Another", "License_Message", 0, address(#License[0]), 255, Settings_File_Path);

if (format(#License[0]) != "1")
{
MessageBeep(MB_OK);
my_message(0, "Поздравляем! Спасибо, что купили наш бот. "+Jump+"Программа будет работать только на этом компьютере."+Jump+Jump+
"Купил/(Причина): "+Information_Box+Jump+
"Для компьютера: "+User_Box+Jump+
"Срок: до "+Date_Box+" 00:00 (осталось: >"+format(Difference)+" дней)", "", MB_OK | MB_ICONINFORMATION | MB_TOPMOST);

WritePrivateProfileString ("Another", "License_Message", "1", Settings_File_Path);
}
}
}
//============================
if (Result == 1 || Result == 0)
{
Registered_User = 0;

if(fopen(Settings_File_Path, "r") != 0)
{
fclose();
GetPrivateProfileString ("Another", "License_Message", 0, address(#License[0]), 255, Settings_File_Path);

if (format(#License[0]) != "0")
{
MessageBeep(MB_ICONEXCLAMATION);
my_message(0, "У вас не полная версия программы. "+Jump+"Часть функционала работать не будет." , "", MB_OK | MB_ICONINFORMATION | MB_TOPMOST);

WritePrivateProfileString ("Another", "License_Message", "0", Settings_File_Path);
}
}
}
}
else
{
if(fopen(Settings_File_Path, "r") != 0)
{
fclose();
GetPrivateProfileString ("Another", "License_Message", 0, address(#License[0]), 255, Settings_File_Path);

if (format(#License[0]) != "0")
{
MessageBeep(MB_ICONEXCLAMATION);
my_message(0, "У вас не полная версия программы. "+Jump+"Часть функционала работать не будет." , "", MB_OK | MB_ICONINFORMATION | MB_TOPMOST);

WritePrivateProfileString ("Another", "License_Message", "0", Settings_File_Path);
}
}
}
}
//============================
if (Type == "Action")
{
if (Registered_User == 1)
{
EnableWindow(Object_Checkbox2[1], 1);
SendMessage(Object_Checkbox2[1], BM_SETCHECK, Load_Checkbox2[1], 0);
}
else
{
EnableWindow(Object_Checkbox2[1], 0);
SendMessage(Object_Checkbox2[1], BM_SETCHECK, 0, 0);
}
}
}

function Update(int Show_Message)
{
char New_Version_Program[100000];
string path_fold = pathfolder();
char Command[1];

if (sendgetweb(#New_Version_Program[0], "Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.0; .NET CLR 1.0.2914)", "GET", "http:/"+"/
.zzz.com.ua", "
Versions.txt") > 0)
{
if(formatsn(format(#New_Version_Program[0])) > formatsn(Version_Program))
{

WritePrivateProfileString ("Another", "Update_Message", "1", Settings_File_Path);
MessageBeep(MB_ICONEXCLAMATION);
int result_message3 = my_message(0, "Найдена новая версия программы."+formatic(13)+formatic(10)+
"Текущая : v"+Version_Program+formatic(13)+formatic(10)+
"Последняя: v"+format(#New_Version_Program[0])+formatic(13)+formatic(10)+formatic(13)+formatic(10)+
"Внимание! Эта версия программы будет удалена."+formatic(13)+formatic(10)+
"Обновить программу?", "t", MB_YESNO | MB_ICONQUESTION | MB_TOPMOST);
if (result_message3 == 6)
{
Stop_Script("", 0);
MainWindow = window("");
int Status = start(path_fold+"_Update.exe");
if (Status == 1)
{
Command[0] = "1";
writebuffer(#Command[0], 1, MainWindow);
}
sleep(2000);
Command[0] = "0";
writebuffer(#Command[0], 1, MainWindow);
WritePrivateProfileString ("Another", "First_Launch", "1", Settings_File_Path);
close();
}

}
else
{
if(formatsn(format(#New_Version_Program[0])) == formatsn(Version_Program))
{
if(fopen(Settings_File_Path, "r") != 0)
{
fclose();
GetPrivateProfileString ("Another", "Update_Message", 0, address(#Update_[0]), 255, Settings_File_Path);

if (format(#Update_[0]) != "0" || Show_Message == 1)
{
MessageBeep(MB_OK);
my_message(0, "У вас последняя версия программы. Обновление не требуется.", "t", MB_OK | MB_ICONINFORMATION | MB_TOPMOST);

WritePrivateProfileString ("Another", "Update_Message", "0", Settings_File_Path);
}
}
}
}
}
else
{
MessageBeep(MB_ICONEXCLAMATION);
my_message(0, "Не удалось подключиться к серверу. Пожалуйста повторите попытку позже.", "", MB_OK | MB_ICONERROR | MB_TOPMOST);
}
}