Классический форум-трекер
canvas not supported
Нас вместе: 4 231 972

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


Страницы:  1, 2, 3  След. 
 
RSS
Начать новую тему   Ответить на тему    Торрент-трекер NNM-Club -> Архив торрентов -> Архив Программ
Автор Сообщение
SlimRG ®
 
Стаж: 10 лет 10 мес.
Сообщений: 234
Ratio: 6.327
Поблагодарили: 1505
100%
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 (Голосов: 209)
 Поблагодарили:   632
 Проверка:   Оформление проверено модератором 23 Янв 2017 23:51:37
Как cкачать  ·  Как раздать  ·  Правильно оформить  ·  Поднять ратио!  
BogDan707
RG Soft
Стаж: 7 лет 2 мес.
Сообщений: 303
Ratio: 1334.634
Поблагодарили: 56960
100%
nnm-club.gif
1. Скачивает (1-2 мин.) в выбранную мной папку.
2. Запускает Dr.Web CureIt! (права администратора не потребовались).
3. Работает. Спасибо.

THA RASEL
Стаж: 10 лет 2 мес.
Сообщений: 137
Ratio: 1.236
Раздал: 156 GB
15.34%
poland.gif
Уважаемый вы через IDE софт создали, на каком языке ?
SlimRG ®
 
Стаж: 10 лет 10 мес.
Сообщений: 234
Ratio: 6.327
Поблагодарили: 1505
100%
THA RASEL писал(а): Перейти к сообщению
Уважаемый вы через IDE софт создали, на каком языке ?

Lazarus IDE - Pascal
THA RASEL
Стаж: 10 лет 2 мес.
Сообщений: 137
Ratio: 1.236
Раздал: 156 GB
15.34%
poland.gif
SlimRG писал(а): Перейти к сообщению
THA RASEL писал(а): Перейти к сообщению
Уважаемый вы через IDE софт создали, на каком языке ?

Lazarus IDE - Pascal

Весьма не плохо. Когда в колледже учился не знаю почему не нравился мне этот язык так как считаю устаревшим.
Но похоже как говориться на вкус и цвет.
Кстати ошибка в коде Обождите по моему правильнее Подождите.
Santa84
Стаж: 13 лет 7 мес.
Сообщений: 76
Ratio: 9.102
2.77%
Откуда: З Вільної України
ukraine.gif
Автору спасибо за прогу (кому не нравится - советую попробовать "старшему поколению" по телефону пояснить где и как скачать/запустить антивирусник).

П.с. личная просьба - можешь сделать украинский вариант?
 !  Примечание от Eastoop:
Украинский вариант чего? Программы с четырьмя словами, два из которых английские, или украинский вариант того, что она скачивает?
transcend17
Стаж: 10 лет 10 мес.
Сообщений: 217
Ratio: 0.704
100%
ukraine.gif
Софтина подвисает, просьба добавьте прогрес бар загрузки
Aleksey818181
Стаж: 11 лет 4 мес.
Сообщений: 757
Ratio: 1595.194
100%
ussr.gif
transcend17 писал(а): Перейти к сообщению
Софтина подвисает, просьба добавьте прогрес бар загрузки

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

_________________
ASRock 960GM-GS3 FX, AMD FX 4300, 8GB Dual-channel, AMD Radeon HD 7770, 256GB Intel 545s, 1TB WD10EZEX, W7HP x64, 100 Mbps
Grigorich1
Стаж: 9 лет 5 мес.
Сообщений: 70
Ratio: 27.505
65.82%
Сегодня в 7:40 вышла новая верия
nRnm
Стаж: 12 лет 9 мес.
Сообщений: 353
Ratio: 4.774
100%
belarus.gif
Запустил, указал место, через несколько секунд окно мигнуло, крестик в прав.верхн.углу получил красный фон.. потом окно вернулось в стартовый вид, на диске файл нулевой длины.. Повторы картинку не изменили..
ОС = v10 b.1607..
.. И с версией от 07:40 та же петрушка... Где я поспешил?
bludscar
Стаж: 9 лет 9 мес.
Сообщений: 15
Ratio: 6.081
2.31%
Еще бы и для KVRT (Kaspersky Virus Removal Tool) такую программу
Strelomoln
Стаж: 12 лет 1 мес.
Сообщений: 138
Ratio: 6.877
100%
Всё работает! У меня,с утра запустил-глюков не было.
goga8686
Стаж: 11 лет 3 мес.
Сообщений: 297
Ratio: 21.297
Раздал: 92.85 TB
Поблагодарили: 1
2.82%
russia.gif
интересно а в планировщик можно запихнуть на 7.00 утра ,пришел на работу а там уже свеженькая курятина ))
AlexiSSG
Uploader 100+ Реставратор
 
Стаж: 13 лет 6 мес.
Сообщений: 8074
Ratio: 159.489
Поблагодарили: 13433
100%
ussr.gif
goga8686 писал(а): Перейти к сообщению
интересно а в планировщик можно запихнуть на 7.00 утра ,пришел на работу а там уже свеженькая курятина ))
Судя по исходнику в шапке, пока нет ... Т.к. работа с ключами командной строки не реализована, а одну из кнопочек выбрать таки надо ...
SlimRG ®
 
Стаж: 10 лет 10 мес.
Сообщений: 234
Ratio: 6.327
Поблагодарили: 1505
100%
THA RASEL писал(а): Перейти к сообщению
Кстати ошибка в коде Обождите по моему правильнее Подождите.
:смех: Вы нашли пасхалку к первому WoW (тот, который был для PSX (самой первой Play Station))
Santa84 писал(а): Перейти к сообщению
П.с. личная просьба - можешь сделать украинский вариант?
Могу, но не знаю украинский
Если сделаете перевод - добавлю "флажки стран" для выбора локализации помощника
nRnm писал(а): Перейти к сообщению
Запустил, указал место, через несколько секунд окно мигнуло, крестик в прав.верхн.углу получил красный фон.. потом окно вернулось в стартовый вид, на диске файл нулевой длины.. Повторы картинку не изменили..
ОС = v10 b.1607..
.. И с версией от 07:40 та же петрушка... Где я поспешил?
Очень странно, у Вас с UAC все впорядке?
Возможно разработчики обновляли файл, не знаю.... но учту в будущей версии

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