респект за сокс) вчера он что то совсем не давал покоя.4) UDP is not support in this SOCKS version. - исправил
И за 7.9.6 респект, пока по ощущениям больше нра чем 7.9.1
респект за сокс) вчера он что то совсем не давал покоя.4) UDP is not support in this SOCKS version. - исправил
Stealth New Version : 7.9.7
* error "EIdReadTimeout" and similar shows no longer / Окно с ошибкой "EIdReadTimeout" и похожими - больше не будут показываться.
* error "UDP is not support in this SOCKS version" - fixed //Исправлена ошибка "UDP is not support in this SOCKS version".
* few fixes in PascalScript / Несколько исправлений в PascalScript.
* added delay before Target reply sending / добавлена небольшая задержка перед отправкой ответов на таргеты.
* few fixes here and there / Несколько других исправлений тут и там.
проверяй сисжурнал стелса, там скорее всего ошибки при парсинге скрипта.snaiperr wrote:Запускаем стелс, через него открывает клиент УО, открываетсяч клиент и окно как инжа, открываем вкладку скрипты, Run function: поле не выводит скриптов
Вау! Стелс 9!!! Наверное имеет встроенный интерпретатор php, встроенные читы, авто-пвп и многое другое)))))))Vizit0r wrote:Update 9.7.9
в 7.9.7 рандом куда то пропал, говорит неизвестный идентификатор.Vizit0r wrote:Update 9.7.9
...
Code: Select all
function Random(const ARange: Integer): Integer;
пакс или ПС?80aX wrote: в 7.9.7 рандом куда то пропал, говорит неизвестный идентификатор.
Вот этот рандом -Code: Select all
function Random(const ARange: Integer): Integer;
Code: Select all
x.AddFunction(@Power, tbtstring('function _Power(Base : Extended; Exponent : Extended) : Double'));
x.AddFunction(@TimeToStr, tbtstring('function _TimeToStr(D : TDateTime) : String'));
x.AddFunction(@DateTimeToStr, tbtstring('function _DateTimeToStr(D : TDateTime) : String'));
x.AddFunction(@StrToTime, tbtstring('function _StrToTime(consts : String) : TDateTime'));
x.AddFunction(@StrToDateTime, tbtstring('function _StrToDateTime(consts : String) : TDateTime'));
x.AddMethod(Self, @TBasePSScriptThread.Script_MsToDateTime, tbtstring('function _MsToDateTime(TimeMS : Word) : TDateTime'));
x.AddFunction(@GetTickCount, tbtstring('function _Timer : Cardinal'));
x.AddFunction(@GetTickCount, tbtstring('function _GetTickCount : Cardinal'));
x.AddFunction(@Now, tbtstring('function _Now : TDateTime'));
x.AddFunction(@IntToHex, tbtstring('function _IntToHex(Value : Integer; Digits : Integer) : String'));
x.AddFunction(@StrToBool, tbtstring('function _StrToBool(const S : String) : Boolean'));
x.AddFunction(@Random, tbtstring('function _Random(const ARange : Integer) : Integer'));
x.AddFunction(@FloatToStrF, tbtstring('function _FloatToStrF(Value : Extended; Format : TFloatFormat; Precision : Integer; Digits : Integer) : String'));
x.AddFunction(@Math.RandomRange, tbtstring('function _RandomRange(const AFrom : Integer; ATo : Integer) : Integer'));
x.AddFunction(@Randomize, tbtstring('procedure _Randomize'));
x.AddFunction(@FileExists, tbtstring('function _FileExists(FileName : String) : Boolean'));
x.AddFunction(@SysUtils.Beep, tbtstring('procedure _Beep'));
x.AddFunction(@Dialogs.ShowMessage, tbtstring('procedure _ShowMessage(const Msg : String)'));
x.AddFunction(@Math.Sign, tbtstring('function _Sign(const AValue : Integer) : ShortInt'));
x.AddFunction(@Dialogs.InputBox, tbtstring('function _InputBox(ACaption : String; APrompt : String; ADefault : String) : String'));
В чём-то другом проблема..Vizit0r wrote:проверяй сисжурнал стелса, там скорее всего ошибки при парсинге скрипта.snaiperr wrote:Запускаем стелс, через него открывает клиент УО, открываетсяч клиент и окно как инжа, открываем вкладку скрипты, Run function: поле не выводит скриптов
Code: Select all
program test;
procedure go();
begin
AddToSystemJournal('test');
end;
begin
go();
wait(1000);
end.