Автор |
Сообщение |
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 скачавших) |
|
|
|
|
BogDan707
RG Soft
Стаж: 7 лет 2 мес.
Сообщений: 303
Ratio: 1334.634
Поблагодарили: 56960
100%
|
1. Скачивает (1-2 мин.) в выбранную мной папку. 2. Запускает Dr.Web CureIt! (права администратора не потребовались). 3. Работает. Спасибо.
|
|
|
|
THA RASEL
Стаж: 10 лет 2 мес.
Сообщений: 137
Ratio: 1.236
Раздал: 156 GB
15.34%
|
Уважаемый вы через 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%
|
SlimRG писал(а): | THA RASEL писал(а): | Уважаемый вы через IDE софт создали, на каком языке ? |
Lazarus IDE - Pascal |
Весьма не плохо. Когда в колледже учился не знаю почему не нравился мне этот язык так как считаю устаревшим. Но похоже как говориться на вкус и цвет. Кстати ошибка в коде Обождите по моему правильнее Подождите. |
|
|
|
Santa84
Стаж: 13 лет 7 мес.
Сообщений: 76
Ratio: 9.102
2.77%
Откуда: З Вільної України
|
Автору спасибо за прогу (кому не нравится - советую попробовать "старшему поколению" по телефону пояснить где и как скачать/запустить антивирусник). П.с. личная просьба - можешь сделать украинский вариант? ! | Примечание от Eastoop: | Украинский вариант чего? Программы с четырьмя словами, два из которых английские, или украинский вариант того, что она скачивает? | |
|
|
|
transcend17
Стаж: 10 лет 10 мес.
Сообщений: 217
Ratio: 0.704
100%
|
Софтина подвисает, просьба добавьте прогрес бар загрузки |
|
|
|
Aleksey818181
Стаж: 11 лет 4 мес.
Сообщений: 757
Ratio: 1595.194
100%
|
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%
|
Запустил, указал место, через несколько секунд окно мигнуло, крестик в прав.верхн.углу получил красный фон.. потом окно вернулось в стартовый вид, на диске файл нулевой длины.. Повторы картинку не изменили.. ОС = 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%
|
интересно а в планировщик можно запихнуть на 7.00 утра ,пришел на работу а там уже свеженькая курятина )) |
|
|
|
AlexiSSG
Uploader 100+ Реставратор
Стаж: 13 лет 6 мес.
Сообщений: 8074
Ratio: 159.489
Поблагодарили: 13433
100%
|
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 утра ,пришел на работу а там уже свеженькая курятина )) |
Судя по исходнику в шапке, пока нет ... Т.к. работа с ключами командной строки не реализована, а одну из кнопочек выбрать таки надо ... |
Уже добавил в новую версию, скоро (как реализую ещё некоторые функции - выложу) |
|
|
|
|
|