Автор |
Сообщение |
SlimRG ®
Стаж: 10 лет 11 мес.
Сообщений: 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 скачавших) |
|
|
|
|
nRnm
Стаж: 12 лет 10 мес.
Сообщений: 353
Ratio: 4.744
100%
|
SlimRG ®, ставил ОС со стандартными параметрами, всё патчено от МСофт - сам удивляюсь.. Да, а как будет реагировать прога, если у провайдера DNS пошаливает? Точнее, не прога даже, а связь с ДрВеб-сайтом на старте закачки.. |
|
|
|
Winnkor
Uploader 100+
Стаж: 13 лет 3 мес.
Сообщений: 2614
Ratio: 2729.397
Раздал: 116.1 TB
Поблагодарили: 1
100%
|
SlimRG писал(а): | Santa84 писал(а): | П.с. личная просьба - можешь сделать украинский вариант? |
Могу, но не знаю украинский | Или дайте файл для локализации. |
_________________ Нужен TV, радио плейлист? Обращайтесь в ЛС.
|
|
|
Dark_АрхАнгел
Стаж: 14 лет 3 мес.
Сообщений: 22
Ratio: 1.714
2.47%
|
Неплохая программа. Но пока пользуюсь Dr.Web CureIt Downloader из-за наличия настройки прокси |
|
|
|
Mazahaka_lab
Стаж: 12 лет 9 мес.
Сообщений: 3744
Ratio: 5.32
Поблагодарили: 10898
15.34%
|
SlimRG, чтобы не зависала нужно использовать потоки Добавь в поток и решишь проблему с зависанием |
|
|
|
SlimRG ®
Стаж: 10 лет 11 мес.
Сообщений: 234
Ratio: 6.327
Поблагодарили: 1505
100%
|
nRnm писал(а): | Да, а как будет реагировать прога, если у провайдера DNS пошаливает? |
Synapse GetBinary попробует несколько раз скачать файл - поле создаст файл нулевого веса... Добавлено спустя 1 минуту 15 секунд:WinnkorПросто фраза - перевод, дальше я сам все подставлю Добавлено спустя 59 секунд: Mazahaka_lab писал(а): | SlimRG, чтобы не зависала нужно использовать потоки |
Огромное спасибо |
|
|
|
Mazahaka_lab
Стаж: 12 лет 9 мес.
Сообщений: 3744
Ratio: 5.32
Поблагодарили: 10898
15.34%
|
SlimRG, написал с использованием потока. Нужен будет исходник ,вышлю . |
|
|
|
SlimRG ®
Стаж: 10 лет 11 мес.
Сообщений: 234
Ratio: 6.327
Поблагодарили: 1505
100%
|
Mazahaka_lab писал(а): | SlimRG, написал с использованием потока. Нужен будет исходник ,вышлю . |
Не - не нужен, когда я писал "Огромное спасибо - у меня уже был готов прототип программы с потоками" Сейчас работаю над локализацией и прокси |
|
|
|
anonym-79
Стаж: 9 лет 1 мес.
Сообщений: 40
Ratio: 0.706
100%
|
Доброго времени суток всем! Хорошая и удобная програмулина для загрузки сканера скачал проверил всё норм загружает из сайта обновлённый Dr.Web CureIt! спасибо. |
|
|
|
SlimRG ®
Стаж: 10 лет 11 мес.
Сообщений: 234
Ratio: 6.327
Поблагодарили: 1505
100%
|
|
|
shaman767
Стаж: 15 лет
Сообщений: 197
Ratio: 24.509
Раздал: 41.33 TB
Поблагодарили: 10
26.49%
|
|
|
SlimRG ®
Стаж: 10 лет 11 мес.
Сообщений: 234
Ratio: 6.327
Поблагодарили: 1505
100%
|
Рассчитываю выложить новую версию уже вечером Гуглите DWAKU |
|
|
|
SlimRG ®
Стаж: 10 лет 11 мес.
Сообщений: 234
Ratio: 6.327
Поблагодарили: 1505
100%
|
|
|
MaxZus
Стаж: 10 лет 11 мес.
Сообщений: 1334
Ratio: 21.048
Поблагодарили: 99
100%
|
SlimRG Смогу Вашей сборкой просканить Вин2000. Выхода с винды в инет нет. |
|
|
|
SlimRG ®
Стаж: 10 лет 11 мес.
Сообщений: 234
Ratio: 6.327
Поблагодарили: 1505
100%
|
MaxZus писал(а): | SlimRG Смогу Вашей сборкой просканить Вин2000. Выхода с винды в инет нет. |
Скорее всего нет - не сможете |
|
|
|
Henry0071
Стаж: 5 лет 7 мес.
Сообщений: 1
Ratio: 2.572
2.22%
|
|
|
|
|