noveek

А что до этого хлопали ? Брось игра унылое говно с которой уже 5 лет ничего не делают не в плане баланса техники не в плане дизайна карт, а ещё и применяют упоротые решения что то вроде переставить респы на карте Топь одна команда появляется в говне простите в воде другая никуда разъехаться не успевает решение уровня интелекта обезьяны !

Никакой конфиденциальной информации не содержится в данном скриншоте ! Как раз и расчёт на то чтобы ВГ увидели.

Это что за синтаксис Дельфи ?

Кнопку то как кликнуть в Delphi ? код кнопки указал выше сайт не мой если вы об этом !

Куда ? .click("Новая Тема")'; это имеешь ввиду ?

Всё равно EAccess Violation.. Вот код кнопки: <a data-bind=" css: modificators, click: onButtonClicked, buttonWaiting: waiting, attr: {title: hint, href: link}, event: { mouseover: _.bind(onMouseOver, $component), mouseout: _.bind(onMouseOut, $component) }, style: { visibility: visible() ? '' : 'hidden' } " class="button button__inline" title="Новая Тема">

document.getElementById ? Это и есть Jquery ? А главное java компилятор ругается на скобки в конце .click JavaScript error: Uncaught TypeError: document.querySelectorAll(...).click is not a function on line 2

JSCode := 'document.getElementsByName("Новая Тема").click()'; Спасибо конечно всё равно не помогло =(

Получаю ошибку при попытке кликнуть программно на кнопку в открытой странице браузера procedure Button1Click(Sender: TObject); var JSCode:String; begin JSCode := 'document.getElementsByName("Новая Тема").click'; // кнопка с title="Новая Тема" Chromium1.Browser.MainFrame.ExecuteJavaScript(JSCode,'about:blank',0); // Ошибка end; end.

Нет моя другая программа с потоком составления листа Login:pass работает быстро ! На 5 млн записей уходит 2-3 минуты ты наверное сам путаешь с чем то потоки

Да что ты со своим S2 привязался если файл с дубликатами грузится в S1, а S2 только сохраняет в файл unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; CheckBox1: TCheckBox; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; //Ïîòîê 1 TMyThread = class(TThread) private { Private declarations } protected procedure Update; procedure Execute; override; end; var Form1: TForm1; MyThread: TMyThread; implementation {$R *.dfm} procedure TMyThread.Execute; begin Synchronize(Update); end; procedure TMyThread.Update; var i:integer; s1, s2: TStringList; begin s1 := TStringList.Create; s1.LoadFromFile('dup.txt'); s2 := TStringList.Create; s2.Sorted := True; s2.Duplicates := dupIgnore; s2.BeginUpdate; for i :=0 to s1.Count-1 do s2.add(s1[i]); s2.EndUpdate; s2.SaveToFile('nodup.txt'); s1.Free; s2.Free; Showmessage('True'); end; procedure TForm1.Button1Click(Sender: TObject); begin MyThread:=TMyThread.Create(false); MyThread.Priority:=tpNormal; end; end. Работает только такое ощущение что опять в один поток уж как то долго. Вариант без синхронизации тоже долгий !

Не помогло ! unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; CheckBox1: TCheckBox; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; //Ïîòîê 1 TMyThread = class(TThread) private { Private declarations } protected procedure Update; procedure Execute; override; end; var Form1: TForm1; MyThread: TMyThread; implementation {$R *.dfm} procedure TMyThread.Execute; begin Synchronize(Update); end; procedure TMyThread.Update; var i:integer; s1: TStringList; s2:TStringList; begin S1 := TStringList.Create; S2 := TStringList.Create; S1.LoadFromFile('dup.txt'); s1.Sorted := True; for i :=0 to s1.Count-1 do begin s1.Duplicates := dupIgnore; s2.add(s1[i]); end; S2.SaveToFile('nodup.txt'); Showmessage('True'); end; procedure TForm1.Button1Click(Sender: TObject); begin MyThread:=TMyThread.Create(false); MyThread.Priority:=tpNormal; end; end.

Главное в твоём коде весь смысл многопоточности приложения теряется =)

Ну попробуй сам сначала

Нет ! И дело не в этом S2 лишь добавляет в свой лист уже отсортированные и без дубликатов S1

Не понимаю почему отказывается удалять дубликаты строк в потоке хотя строки всё таки пересортировывает нормально ! Подскажите что делаю не правильно ? unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; CheckBox1: TCheckBox; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; //Поток 1 TMyThread = class(TThread) private { Private declarations } protected procedure Execute; override; end; var Form1: TForm1; MyThread: TMyThread; s1: TStringList; s2:TStringList; implementation {$R *.dfm} procedure TMyThread.Execute; var i:integer; begin S1.LoadFromFile('dup.txt'); s1.Sorted := True; s1.Duplicates := dupIgnore; for i :=0 to s1.Count-1 do begin s2.add(s1[i]); end; S2.SaveToFile('nodup.txt'); Showmessage('True'); end; procedure TForm1.Button1Click(Sender: TObject); begin S2 := TStringList.Create(); S1 := TStringList.Create(); MyThread:=TMyThread.Create(false); MyThread.Priority:=tpNormal; end; end.

Нет, я не отступлюсь от своей идеи даже если придётся выучить за неделю все языки программирования

Мне вообщем просто нужен такой мод забанят меня или нет за расстрел "Петухов" для меня это не имеет значения !

Не совсем если вся команда сделает по выстрелу в один танк то всех не перебанят, а если в списке будет не у одного этот ник "петуха" значит уже несколько человек настроены против одного. И причин чтобы его не убить сразу после отсчёта в союзной команде станет меньше ! Опять же повторюсь вряд ли в этот список опять же попадут нормальные игроки, но такой мод можно будет использовать и так: Например известные Vod'оделы стримят и мод оповестит (выделив ник) что вы попали в телевизор ну или там привет передать можно будет ! Так что этот мод может служить не только во зло, но честно я его буду использовать именно по назначению "Злопамятный" так как меня за*бали убивать на тесте, а я их буду лупить уже на основе и мне уже глубоко всё равно, что вычтут кредиты и дадут 0 опыта я просто не дам больше играть "Петухам" которые затаскивают брелки или убивают или тролят тем самым вынуждают произвести выстрелы по ним или тех школотварей которые оскорбляют родителей ! И после использования такого мода разработчики наконец догадаются совсем отключить союзный огонь, как это было сделано уже далеко не в одной, не отсталой игре !

Во первых не очко такое любят а MERCY, а во вторых нормальному игроку и бояться нечего !

Нет мой вариант проще и лучше можно как дополнительно добавить чтобы мод ещё помечал союзную цель и писал в чате что то вроде: Внимание Петух в Команде но это можно настроить и через настраиваемое боевое меню

Хочешь сказать он есть ?

Не всегда мой друг не всегда ! Так же можно использовать список при оскорблении родителей !

Итак смысл такого мода вот в чём: Те игроки которые убивают своих заносятся в блокнот, и если вы попадайте в одну команду с теми кто есть в списке то их выделяет специальным цветом (красный, жёлтый) ! И далее такие игроки больше нормально никогда не поиграют их будут убивать сразу ещё в начале боя. Донат за этот мод лично от меня будет 200 рублей