Эксперт
Покинул форум
Сообщений всего: 1837
Дата рег-ции: Март 2017
Репутация: -2
|
Вот что получилось Вопросы 2..
Код (Отобразить)CODE:external(INT, "MessageBeep", "MessageBeep", "user32.dll");
external(INT, "my_message", "MessageBoxA", "user32.dll");
#definefile "C:\Users\Home\Desktop\МОЁ\Kibor\Constants.txt";
char Text[100000];
string s[999];
string User, Date, Information;
string Jump = formatic(13)+formatic(10);
string Local_User = individualcode();
if (sendgetweb(#Text[0], "Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.0; .NET CLR 1.0.2914)", "GET", "http:/"+"/(свой).zzz.com.ua", "License.txt") > 0)
{
int count = regexsearch(sizearray(s), #s[0], format(#Text[0]), "[^;]+(?=;|$)");
if (count != 0)
{
for(int i=0; i<count; i++)
{
if(regexsearch(1, #User, s[i], "^.+?(?=\/)"))
{
if (User == Local_User)
{
regexsearch(1, #Date, s[i], "(?<=\/)[\d\.]+(?=\/)");
regexsearch(1, #Information, s[i], "[^\/]+(?=;|$)");
MessageBeep(MB_OK);
my_message(0, "Поздравляем! Спасибо, что купили наш бот. Программа будет работать только на этом компьютере."+Jump+Jump+
"Купил: "+Information+Jump+
"Для: "+User+Jump+
"До: "+Date, "", MB_OK | MB_ICONINFORMATION | MB_TOPMOST);
break;
}
else
{
MessageBeep(MB_ICONEXCLAMATION);
my_message(0, "У вас не полная версия программы. Часть функционала работать не будет." , "", MB_OK | MB_ICONINFORMATION | MB_TOPMOST);
//Если можно, то как сделать, что бы получал все коробки - проверял ключи, а уже потом если ни одного совпадающего не будет, то вывести всего 1 сообщение, а не для каждого count как сейчас
}
}
}
}
}
Суть: получает все коробки и проверяет все ключи с ключом который в "О программе " Кибор, если такой 1 найден, то типа лицензия выдана, а если нету, то он будет все коробки писать, что "нету совпадающих". Как сделать, что бы "молча"(без сообщений) проверял все коробки, а уже потом если никаких не нашел сопадающих вывел только 1 сообщение, а не для каждой коробки.
(Добавление)
А всё понял как сделать.
(Добавление)
Изменил чуть-чуть:
Код (Отобразить)CODE:external(INT, "MessageBeep", "MessageBeep", "user32.dll");
external(INT, "my_message", "MessageBoxA", "user32.dll");
#definefile "C:\Users\Home\Desktop\МОЁ\Kibor\Constants.txt";
char Text[100000];
string s[999];
string User, Date, Information;
string Jump = formatic(13)+formatic(10);
string Local_User = individualcode();
int Registered;
if (sendgetweb(#Text[0], "Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.0; .NET CLR 1.0.2914)", "GET", "http:/"+"/.zzz.com.ua", "License.txt") > 0)
{
int count = regexsearch(sizearray(s), #s[0], format(#Text[0]), "[^;]+(?=;|$)");
if (count != 0)
{
for(int i=0; i<count; i++)
{
if(regexsearch(1, #User, s[i], "^.+?(?=\/)"))
{
if (User == Local_User)
{
regexsearch(1, #Date, s[i], "(?<=\/)[\d\.]+(?=\/)");
regexsearch(1, #Information, s[i], "[^\/]+(?=;|$)");
Registered = 1;
break;
}
else
{
Registered = 0;
}
}
}
}
}
if (Registered == 1)
{
MessageBeep(MB_OK);
my_message(0, "Поздравляем! Спасибо, что купили наш бот. Программа будет работать только на этом компьютере."+Jump+Jump+
"Купил: "+Information+Jump+
"Для: "+User+Jump+
"До: "+Date, "t", MB_OK | MB_ICONINFORMATION | MB_TOPMOST);
}
else
{
MessageBeep(MB_ICONEXCLAMATION);
my_message(0, "У вас не полная версия программы. Часть функционала работать не будет." , "t", MB_OK | MB_ICONINFORMATION | MB_TOPMOST);
}
(Добавление)
Остается надумать: "Как передать лицензию от одного ключа к другому", мало ли у чувака компьютер полетит или винду ударит в голову переустановить. |