Все записи автора adminbot

Новости

Обновление 1.0.0.61

Заметка 15.01.2021 adminbot

Обновление 1.0.0.61

В текущей версии добавлены следующие функции:

function GetHMACSha256(Input, MyKey: string): String;- Возвращает хэш код Sha256

Новости

Восстановлена работа почты

Заметка 05.10.2019 adminbot

Провайдер услуг хостинга заблокировал рассылку почты 28 августа 2019 года, к несчастью замечено это было только сегодня,теперь эта возможность разблокирована и следовательно вновь можно регистрироваться в программе и на форуме….Приносим извинения за доставленные неудобства…

Новости

Обновление 1.0059

Заметка 14.08.2019 adminbot

Обновление 1.0059

В текущей версии добавлены следующие функции:

добавлена функция GetHMACSha512(Input, MyKey:string):string; — Возвращает хэш код Sha512
В объект THTTP добавлен метод AddHeader(ParamName,ParamValue:string); — добавляет заголовок к пост запросу…
Function GetOwnerEmail:string; //Возвращает EMail залогинившегося пользователя…
Function GetVersion:string; //Возвращает версию файла RuntimeMode.exe
Function GetPremiumAccActivated:boolean; //Возвращает признак того что премиум аккаунт активирован
Function GetPremiumTimeLeft:integer; //Возвращает время оставшееся до конца действия премиум аккаунта
Function GetPremiumDateTime:TDataTime; //Возвращает дату до которой действителен премиум аккаунт..
function IncMilliSecond(const AValue: TDateTime; const ANumberOfMilliSeconds: Int64): TDateTime; — Возвращает дату в формате TDateTime увеличенную на ANumberOfMilliSeconds миллисекунд
function IncMinute(const AValue: TDateTime; const ANumberOfMinutes: Int64): TDateTime; — Возвращает дату в формате TDateTime увеличенную на ANumberOfMinutes минут
function IncSecond(const AValue: TDateTime; const ANumberOfSeconds: Int64): TDateTime; — Возвращает дату в формате TDateTime увеличенную на ANumberOfSeconds секунд
function IncHour(const AValue: TDateTime; const ANumberOfHours: Int64): TDateTime; — Возвращает дату в формате TDateTime увеличенную на ANumberOfHours часов
function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer): TDateTime;- Возвращает дату в формате TDateTime увеличенную на ANumberOfDays дней
function IncWeek(const AValue: TDateTime; const ANumberOfWeeks: Integer): TDateTime; — Возвращает дату в формате TDateTime увеличенную на ANumberOfWeeks недель
function IncYear(const AValue: TDateTime; const ANumberOfYears: Integer): TDateTime; — Возвращает дату в формате TDateTime увеличенную на ANumberOfYears лет
function EncodeDateTime ( const Year, Month, Day, Hour, Min, Sec, MSec : Word ) : TDateTime;- Возвращает дату в формате TDateTime конвертированную из параметров Year, Month, Day, Hour, Min, Sec, MSec : Word
function StrToDateTime ( const DateTime : string ) : TDateTime; — Возвращает дату в формате TDateTime конвертированную из параметра DateTime : string
function DateTimeToStr(const DateTime: TDateTime): string; — Возвращает дату И ВРЕМЯ в формате string конвертированную из параметра DateTime : TDateTime

Новости

Обновление 1.0058

Заметка 27.06.2019 adminbot

Обновление 1.0058:

1)Добавлена возможность делать Post и Get запросы к сайтам с SSL шифрованием т.е. начинающиеся с https://
в объект THTTP добавлены 2 метода:
a) SetSSLMethod(sslvSSL:byte), где параметр sslvSSL:byte может принимать значения от 0 до 5, что соответствует значениям системного перечисления в делфи TIdSSLVersion = (sslvSSLv2-0, sslvSSLv23-1, sslvSSLv3-2, sslvTLSv1-3,sslvTLSv1_1-4,sslvTLSv1_2-5);
данная процедура устанавливает свойство объекта TIdSSLIOHandlerSocketOpenSSL.SSLOptions.Method (по умолчанию свойство устанавливается значением sslvTLSv1) (см. документацию к Делфи по этому объекту)
б) SetSSLMode(sslm:Byte), где параметр sslm:Byte может принимать значения от 0 до 3, что соответствует значениям системного перечисления в делфи TIdSSLMode = (sslmUnassigned-0, sslmClient-1, sslmServer-2, sslmBoth-3);
данная процедура устанавливает свойство объекта TIdSSLIOHandlerSocketOpenSSL.SSLOptions.Mode (см. документацию к Делфи по этому объекту)
2) В Мемо добавляемый на форму добавлена вертикальная полоса прокрутки по умолчанию.
3) В лаунчере на закладке Bots Catalog (открывается по кнопке Show Server) добавлены вертикальные полосы прокрутки в объекты типа TMEMO.
4) В лаунчере на закладке Bot Settings (открывается по кноке settings на закладке Bots Catalog) добавлены вертикальные полосы прокрутки в объекты типа TMEMO.

5) Исправлены баги связанные с переездом на новый хостинг, Исправлено запускание серверной версии бота Бот ретривер, Бота Автопилота и Бота майнера EVE Online, также все боты проапгрейжены под последнюю версию клиента ив — онлайн…

Новости

Обновление 1.0055

Заметка 08.12.2018 adminbot

Обновление 1.0055

В интерфейс лаунчера на закладке Bot Settings добавлена галочка For Premium Users Only, если она установлена то скрипт доступен только премиум пользователям…

Новости

Обновление 1.0054

Заметка 30.06.2018 adminbot

Обновление 1.0054

Добавлен полноцветный поиск картинок.
Изменен алгоритм движения мышью при функции MouseDragInCoord теперь он менее размашистый.

Новости

Обновление 1.0053

Заметка 21.05.2018 adminbot

Обновление 1.0053

Исправлен баг с вставлением разделителей между словами при распознавании текста.

Новости

Обновление 1.0052

Заметка 15.05.2018 adminbot

Обновление 1.0052

В релизе 1.0052 добавлена настройка тонкого доступа к базам данных на сервере, которая позволяет расшаривать свои скрипты отдельным пользователям программы NOMAD BoT. Подробней об этом можно почитать тут.

2. Исправлен баг с попыткой сохранения отладочного файла на диск E, если у вас такого диска нет, то это могло вызывать ошибку при работе программы.

Новости

Обновление 1.0051

Заметка 29.04.2018 adminbot

Обновление 1.0051

1) Исправлено появление обычного Objects tree после закрытия формы TV. (Раньше после закрытия формы оставался видимым Debug Object Tree) (функционал доступен для премиум аккаунтов).
2) Добавлена возможность как заливать свой скрипт на сервер так и скачивать его оттуда (функционал доступен для премиум аккаунтов).
3) Исправлены баги при распознавании текста
4) Исправлен баг появляющийся при выделении шаблона, когда рамка выделения появляется снова, после того как шаблон уже создан.
5) Исправлен баг не появляющейся кнопки сохранения при удалении контрола с формы в режиме конструктора.
6) Исправлены баги в работе динамических объектов.
7) Сохранение базы данных в exe файл теперь премиум функционал.

Новости

Обновление 1.0045

Заметка 06.01.2016 adminbot

Обновление 1.0045

1) Оптимизирована скорость распознавания текста. Скорость распознавания увеличилась на порядок.

2) У алфавита появилось свойство Teach. Когда значение свойства = true, программа в режиме исполнения будет запоминать все неизвестные ей символы, а при закрытии программы (крестиком или Alt+F4) записывать их в базу данных, после чего можно будет прописать к ним соответствия в конструкторе. Если значение свойства = false, то «обучение» производится не будет. Если программа скомпилирована в exe файл, то в таком режиме «обучение» не проводится в любом случае.

3) В конструкторе добавлена возможность удалить все символы алфавита, которым не назначены соответствия. Для этого необходимо нажать правой кнопкой мыши на алфавите и выбрать соответствующий пункт из выпавшего меню.

4) В программу добавлены функции позволяющие сохранять участки скриншота в файл или в поток. А также сохранять в файл или поток найденный шаблон.

5) В программу добавлены функции распознавания Капчи, которые работают с сервисом AntiGate.com

Соответственно, чтобы пользоваться ими вам нужно иметь аккаунт на сервисе и оплатить его услуги.

function RecognizeAGStream(ImageData: TMemoryStream; AGKey: String; var CaptchaRes: String; MinLen: integer; MaxLen: integer; Numeric: integer; Phrase: integer; RegSense: integer; Calc: integer; Russian: integer): Integer; - //распознать капчу сохраненную в поток.

function RecognizeAGFile(ImageFile: String; AGKey: String; var CaptchaRes: String; MinLen: integer; MaxLen: integer; Numeric: integer; Phrase: integer; RegSense: integer; Calc: integer; Russian: integer): Integer;- //распознать капчу из файла формата bmp;

function RecognizeAGLink(ImageURL : String; AGKey: String; var CaptchaRes: String; Cookies: String; MinLen: integer; MaxLen: integer; Numeric: integer; Phrase: integer; RegSense: integer; Calc: integer; Russian: integer): Integer - //распознать капчу по ссылке 

function GetBalanceAG(AGKey: String): String; - //получить ваш баланс на сервисе Antigate.com.

function ReportBadAG(AGKey: String; CaptchaID: Integer): String; - //сообщить сервису о неверно распознанной капче.

function RecognizeAGStream(ImageData: TMemoryStream; AGKey: String; var CaptchaRes: String; MinLen: integer; MaxLen: integer; Numeric: integer; Phrase: integer; RegSense: integer; Calc: integer; Russian: integer): Integer; - //распознать капчу сохраненную в поток.

function RecognizeAGFile(ImageFile: String; AGKey: String; var CaptchaRes: String; MinLen: integer; MaxLen: integer; Numeric: integer; Phrase: integer; RegSense: integer; Calc: integer; Russian: integer): Integer;- //распознать капчу из файла формата bmp;

function RecognizeAGLink(ImageURL : String; AGKey: String; var CaptchaRes: String; Cookies: String; MinLen: integer; MaxLen: integer; Numeric: integer; Phrase: integer; RegSense: integer; Calc: integer; Russian: integer): Integer - //распознать капчу по ссылке

function GetBalanceAG(AGKey: String): String; - //получить ваш баланс на сервисе Antigate.com.

function ReportBadAG(AGKey: String; CaptchaID: Integer): String; - //сообщить сервису о неверно распознанной капче.

Параметры функции:

ImageData – поток, содержащий каптчу
ImageFile – путь к файлу каптчи
ImageURL – ссылка на каптчу
AGKey – ключ сервиса AntiGate.com для распознавания
Cookies – при распознавании по URL можно передать в функцию куки, для открытия каптчи, когда это необходимо
CaptchaRes – буффер, в который попадает текст каптчи, либо сообщение об ошибке
MinLen – помечает минимальную длину текста каптчи
MaxLen – 0 – без ограничений, помечает максимальную длину каптчи
Phrase – 0 — без ограничений, 1 помечает что каптча состоит из нескольких слов
Regsense – 0 — текст капчи не чувствителен к регистру, 1 помечает что текст каптчи чувствителен к регистру
Numeric – 0 — допустимы любые символы, 1 помечает что текст каптчи состоит только из цифр, 2 помечает что на каптче нет цифр
Calc – 0 — вычислять не нужно, 1 помечает что цифры на каптче должны быть высчитаны
Russian – 0 — любой язык, 1 помечает что вводить нужно только русский текст, 2 – русский или английский

Функция RecognizeAG возвращает:

Номер каптчи (CaptchaID) – в случае успеха
0 (ноль) – при ошибке

Примеры:

Procedure testOnClick();
var
   R:Trect;
   CaptchaRes :string;//буффер, в который попадает текст каптчи, либо сообщение об ошибке

   ImageData:TMemoryStream;
   bmp:TBitmap;
   CaptchaID : integer;                             
begin

   R.Top     := 200;
   R.Bottom  := 600;
   R.Left    := 300;
   R.Right   := 1200;
    
   ImageData := TMemoryStream.Create();
                                             
   GlobalScreenShot.Start;
   sleep(200);                     
   GlobalScreenShot.SaveAreaToStream(r, ImageData);//сохраняем кусок шаблона с координатами в структуре r в поток ImageData.
   CaptchaID := RecognizeAGStream(ImageData,'23452345', CaptchaRes,0, 0, 0, 1, 0,0, 0)));              
   GlobalScreenShot.Stop;
   ImageData.free;

   GlobalScreenShot.Start;
   sleep(200);                     
   GlobalScreenShot.SaveAreaToFile('c:\kjksg.bmp',r);//сохраняем кусок шаблона с координатами в структуре r в файл.
   CaptchaID := RecognizeAGFile('c:\kjksg.bmp', '23452345', CaptchaRes, 0, 0, 0, 0, 0, 0, 0);              
   GlobalScreenShot.Stop;

   EVE.Start;
   sleep(1000);
   if DockButton.FindPicture then //если нашли шаблон
   begin               
     if DockButton.SaveToFile('c:\kjksg.bmp') then//сохраняем его в файл
     begin
         CaptchaID := RecognizeAGFile('c:\kjksg.bmp', '23452345', CaptchaRes, 0, 0, 0, 0, 0, 0, 0);
     end;
   end;        
   EVE.Stop;

   ImageData := TMemoryStream.Create();

   EVE.Start;
   sleep(1000);
   if DockButton.FindPicture then //если нашли шаблон
   begin               
     if DockButton.SaveToStream(ImageData) then//сохраняем его в поток
     begin
         CaptchaID := RecognizeAGStream(ImageData,'23452345', CaptchaRes,0, 0, 0, 1, 0,0, 0)));              
     end;
   end;        
   EVE.Stop;
   ImageData.free;

Procedure testOnClick();

var

R:Trect;

CaptchaRes :string;//буффер, в который попадает текст каптчи, либо сообщение об ошибке

ImageData:TMemoryStream;

bmp:TBitmap;

CaptchaID : integer;

begin

R.Top := 200;

R.Bottom := 600;

R.Left := 300;

R.Right := 1200;

ImageData := TMemoryStream.Create();

GlobalScreenShot.Start;

sleep(200);

GlobalScreenShot.SaveAreaToStream(r, ImageData);//сохраняем кусок шаблона с координатами в структуре r в поток ImageData.

CaptchaID := RecognizeAGStream(ImageData,'23452345', CaptchaRes,0, 0, 0, 1, 0,0, 0)));

GlobalScreenShot.Stop;

ImageData.free;

GlobalScreenShot.Start;

sleep(200);

GlobalScreenShot.SaveAreaToFile('c:\kjksg.bmp',r);//сохраняем кусок шаблона с координатами в структуре r в файл.

CaptchaID := RecognizeAGFile('c:\kjksg.bmp', '23452345', CaptchaRes, 0, 0, 0, 0, 0, 0, 0);

GlobalScreenShot.Stop;

EVE.Start;

sleep(1000);

if DockButton.FindPicture then //если нашли шаблон

begin

if DockButton.SaveToFile('c:\kjksg.bmp') then//сохраняем его в файл

begin

CaptchaID := RecognizeAGFile('c:\kjksg.bmp', '23452345', CaptchaRes, 0, 0, 0, 0, 0, 0, 0);

end;

EVE.Stop;

ImageData := TMemoryStream.Create();

EVE.Start;

sleep(1000);

if DockButton.FindPicture then //если нашли шаблон

begin

if DockButton.SaveToStream(ImageData) then//сохраняем его в поток

begin

CaptchaID := RecognizeAGStream(ImageData,'23452345', CaptchaRes,0, 0, 0, 1, 0,0, 0)));

end;

EVE.Stop;

ImageData.free;

Bot Development Engine