Интеллигентный торрент-трекер
canvas not supported
Нас вместе: 4 343 736

Dr.Web CureIt! Updater 21.01.2017 by SlimRG [Ru]


Страницы:  1, 2  След. 
 
RSS
Начать новую тему   Ответить на тему    Торрент-трекер NNM-Club -> Безопасность -> Разное (остальные программы по безопасности)
Автор Сообщение
SlimRG ®
Стаж: 3 года 11 мес.
Сообщений: 134
Ratio: 1,581
Поблагодарили: 500
47.47%
Dr.Web CureIt! Updater 21.01.2017 by SlimRG [Ru]
Версия программы: 21.01.2017
Официальный сайт: For NoNaMe ONLY
Язык интерфейса: Русский

Лечение: не требуется

Системные требования:
  • Windows XP/Vista/7/8/10 x32/x64


Описание:
Надоело искать новые версии программы Dr.Web CureIt? Мне тоже, потому я и создал эту программу.
-- а) Скачивать самую новую Dr.Web CureIt! в нужную вам папку
-- б) Сразу (без скачивания)* запускать программу

* Сам .exe она скачивает с офф. сайта, НО во временную папку
** Программа может подвисать, - это нормально, просто ждите, она не зависла!
*** Самой программе НЕ нужны права администратора, а вот для запуска Dr.Web - она попросит
Код: выделить все

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ComCtrls, httpsend, ShellApi, Windows;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    ProgressBar1: TProgressBar;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  Adr: String;
  Stre: TMemoryStream;
implementation

{$R *.lfm}

{ TForm1 }

function RunAsAdmin(const Handle: Hwnd; const Path, Params: string): Boolean;
var
  sei: TShellExecuteInfoA;
begin
  FillChar(sei, SizeOf(sei), 0);
  sei.cbSize := SizeOf(sei);
  sei.Wnd := Handle;
  sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;
  sei.lpVerb := 'runas';
  sei.lpFile := PAnsiChar(Path);
  sei.lpParameters := PAnsiChar(Params);
  sei.nShow := SW_SHOWNORMAL;
  Result := ShellExecuteExA(@sei);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  application.processmessages;
  Form1.Label1.Caption:='Обождите...';
  if saveDialog1.Execute
  then   begin
  Form1.ProgressBar1.Visible:=True;
  Form1.ProgressBar1.Position:=75;
  Form1.Button1.Enabled:=False;
  Form1.Button2.Enabled:=False;
  Form1.Update;
  Adr:= SaveDialog1.FileName;
  Stre:=TMemoryStream.Create;
  HttpGetBinary('http://download.geo.drweb.com/pub/drweb/cureit/cureit.exe',Stre);
  Stre.SaveToFile(Adr);
  Stre.Free;
  Adr:='';
  Form1.ProgressBar1.Visible:=False;
  Form1.ProgressBar1.Position:=0;
  Form1.Button1.Enabled:=True;
  Form1.Button2.Enabled:=True;
  end
  else
  ShowMessage('Ошибка');
  Form1.Label1.Caption:='Made by SlimRG';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  application.processmessages;
  Form1.Label1.Caption:='Загрузка...';
  Form1.ProgressBar1.Visible:=True;
  Form1.ProgressBar1.Position:=75;
  Form1.Button1.Enabled:=False;
  Form1.Button2.Enabled:=False;
  Form1.Update;
  Stre:=TMemoryStream.Create;
  HttpGetBinary('http://download.geo.drweb.com/pub/drweb/cureit/cureit.exe',Stre);
  Stre.SaveToFile(SysUtils.GetEnvironmentVariable('TMP')+'\cureit.exe');
  Stre.Free;
  Adr:='';
  Form1.Label1.Caption:='ЗАПУСК!!!';
  Form1.Update;
  RunAsAdmin(Handle, (SysUtils.GetEnvironmentVariable('TMP')+'\cureit.exe'), '');
  Form1.ProgressBar1.Visible:=False;
  Form1.ProgressBar1.Position:=0;
  Form1.Button1.Enabled:=True;
  Form1.Button2.Enabled:=True;
  Form1.Label1.Caption:='Made by SlimRG';
  Form1.Update;
end;

end.
Появился более совершенный преемник: DWAKU

Скриншоты:

Время раздачи: Пока могу - 24/7 (до появления первых 3-5 скачавших)
[NNMClub.to]_Dr.Web CureIt! Updater 21.01.2017 by SlimRG.torrent
 Торрент: Платиновая раздача  Зарегистрирован
 
Примагнититься

Скачать
 Зарегистрирован:   23 Янв 2017 06:19:54
 Размер:   2,01 MB  (
 Рейтинг:   4,9 (Голосов: 113)
 Поблагодарили:   351
 Проверка:   Оформление проверено модератором 23 Янв 2017 23:51:37
Как cкачать  ·  Как раздать  ·  Правильно оформить  ·  Поднять ратио!  
Загрузка...
BogDan707
Стаж: 3 мес. 24 дня
Сообщений: 20
Ratio: 816,959
100%
nnm-club.gif
1. Скачивает (1-2 мин.) в выбранную мной папку.
2. Запускает Dr.Web CureIt! (права администратора не потребовались).
3. Работает. Спасибо.

THA RASEL
Стаж: 3 года 3 мес.
Сообщений: 104
Ratio: 1,439
Раздал: 113 GB
12.32%
germany.gif
Уважаемый вы через IDE софт создали, на каком языке ?
SlimRG ®
Стаж: 3 года 11 мес.
Сообщений: 134
Ratio: 1,581
Поблагодарили: 500
47.47%
THA RASEL писал(а): Перейти к сообщению
Уважаемый вы через IDE софт создали, на каком языке ?

Lazarus IDE - Pascal
THA RASEL
Стаж: 3 года 3 мес.
Сообщений: 104
Ratio: 1,439
Раздал: 113 GB
12.32%
germany.gif
SlimRG писал(а): Перейти к сообщению
THA RASEL писал(а): Перейти к сообщению
Уважаемый вы через IDE софт создали, на каком языке ?

Lazarus IDE - Pascal

Весьма не плохо. Когда в колледже учился не знаю почему не нравился мне этот язык так как считаю устаревшим.
Но похоже как говориться на вкус и цвет.
Кстати ошибка в коде Обождите по моему правильнее Подождите.
Santa84
Стаж: 6 лет 8 мес.
Сообщений: 49
Ratio: 15,089
1.01%
ukraine.gif
Автору спасибо за прогу (кому не нравится - советую попробовать "старшему поколению" по телефону пояснить где и как скачать/запустить антивирусник).

П.с. личная просьба - можешь сделать украинский вариант?
 !  Примечание от Eastoop:
Украинский вариант чего? Программы с четырьмя словами, два из которых английские, или украинский вариант того, что она скачивает?
trans​cend1​7​
Стаж: 3 года 11 мес.
Сообщений: 175
Ratio: 1,08
100%
ukraine.gif
Софтина подвисает, просьба добавьте прогрес бар загрузки

_________________
Не ждите чудес - чудите сами!
Aleks​ey818​181​
Стаж: 4 года 5 мес.
Сообщений: 609
Ratio: 390,148
100%
ussr.gif
transcend17 писал(а): Перейти к сообщению
Софтина подвисает, просьба добавьте прогрес бар загрузки

ничего там не подвисает. это у него прогрессбар отображается как надпись "Не отвечает" =)

_________________
ASRock 960GM-GS3 FX, AMD FX 4300, 8GB Dual-channel, AMD Radeon HD 7770, ST1000DM003 - W7HP x64, 100 Mbps
Grigorich1
Стаж: 2 года 6 мес.
Сообщений: 4
Ratio: 91,659
29.17%
Сегодня в 7:40 вышла новая верия
nRnm
Стаж: 5 лет 10 мес.
Сообщений: 274
Ratio: 1,404
94.55%
belarus.gif
Запустил, указал место, через несколько секунд окно мигнуло, крестик в прав.верхн.углу получил красный фон.. потом окно вернулось в стартовый вид, на диске файл нулевой длины.. Повторы картинку не изменили..
ОС = v10 b.1607..
.. И с версией от 07:40 та же петрушка... Где я поспешил?
bludscar
Стаж: 2 года 10 мес.
Сообщений: 3
Ratio: 16,296
4.36%
Еще бы и для KVRT (Kaspersky Virus Removal Tool) такую программу
Strelomoln
Стаж: 5 лет 2 мес.
Сообщений: 83
Ratio: 8,143
72.87%
Всё работает! У меня,с утра запустил-глюков не было.
goga8686
Стаж: 4 года 4 мес.
Сообщений: 68
Ratio: 1,939
8.6%
russia.gif
интересно а в планировщик можно запихнуть на 7.00 утра ,пришел на работу а там уже свеженькая курятина ))
AlexiSSG
 
Стаж: 6 лет 7 мес.
Сообщений: 1577
Ratio: 84,721
100%
ussr.gif
goga8686 писал(а): Перейти к сообщению
интересно а в планировщик можно запихнуть на 7.00 утра ,пришел на работу а там уже свеженькая курятина ))
Судя по исходнику в шапке, пока нет ... Т.к. работа с ключами командной строки не реализована, а одну из кнопочек выбрать таки надо ...
SlimRG ®
Стаж: 3 года 11 мес.
Сообщений: 134
Ratio: 1,581
Поблагодарили: 500
47.47%
THA RASEL писал(а): Перейти к сообщению
Кстати ошибка в коде Обождите по моему правильнее Подождите.
:смех: Вы нашли пасхалку к первому WoW (тот, который был для PSX (самой первой Play Station))
Santa84 писал(а): Перейти к сообщению
П.с. личная просьба - можешь сделать украинский вариант?
Могу, но не знаю украинский
Если сделаете перевод - добавлю "флажки стран" для выбора локализации помощника
nRnm писал(а): Перейти к сообщению
Запустил, указал место, через несколько секунд окно мигнуло, крестик в прав.верхн.углу получил красный фон.. потом окно вернулось в стартовый вид, на диске файл нулевой длины.. Повторы картинку не изменили..
ОС = v10 b.1607..
.. И с версией от 07:40 та же петрушка... Где я поспешил?
Очень странно, у Вас с UAC все впорядке?
Возможно разработчики обновляли файл, не знаю.... но учту в будущей версии

Спасибо за комментарий, он очень мне важен!
AlexiSSG писал(а): Перейти к сообщению
goga8686 писал(а): Перейти к сообщению
интересно а в планировщик можно запихнуть на 7.00 утра ,пришел на работу а там уже свеженькая курятина ))
Судя по исходнику в шапке, пока нет ... Т.к. работа с ключами командной строки не реализована, а одну из кнопочек выбрать таки надо ...
Уже добавил в новую версию, скоро (как реализую ещё некоторые функции - выложу)
Показать сообщения:   
Начать новую тему   Ответить на тему    Торрент-трекер NNM-Club -> Безопасность -> Разное (остальные программы по безопасности) Часовой пояс: GMT + 3
Страницы:  1, 2  След.
Страница 1 из 2

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

Желаем Вам много улыбок и хорошего настроения в этот день!
С Уважением, администрация NNM-Club :)