Автор Тема: Скачивание и запуск Dr.Web CureIt  (Прочитано 160 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Xabib2302 [?]

  • Новичок
  • *
  • Сообщений: 36
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Версия AutoIt: 3.3.14.2

Описание:  Доброе время суток. Имеется готовый скрипт по скачиванию Dr.Web CureIt с рандомным переименованием файла. Требуется организовать запуск скаченного файла с рандомным именем и окно с выбором папки куда скачивать Dr.Web CureIt

Примечания:

(нажмите для показа/скрытия)

Русское сообщество AutoIt

Скачивание и запуск Dr.Web CureIt
« Отправлен: Январь 10, 2019, 15:14:41 »

Помечен как лучший ответ пользователем Xabib2302 Отправлен Январь 10, 2019, 16:13:18

Оффлайн InnI [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 4046
  • Репутация: 1074
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Скачивание и запуск Dr.Web CureIt
« Ответ #1, Отправлен: Январь 10, 2019, 15:58:37 »
Код: AutoIt [Выделить]
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#RequireAdmin

$sPath = FileSelectFolder("", "")
If @error Then Exit
If StringRight($sPath, 1) <> "\" Then $sPath &= "\"

$sName = Generate(10) & ".exe"

InetGet('http://download.geo.drweb.com/pub/drweb/cureit/cureit.exe', $sPath & $sName)
If @error Then Exit MsgBox(0x40000, "Error", "Ошибка закачки")

Run($sPath & $sName)

Func Generate($iLenght, $sParam = 'Upper;Lower;Digit')
    Local $aRet, $aBase, $aInit, $sUpper, $sLower, $sDigit, $sBase
    $Upper = 'A;B;C;D;E;F;G;H;I;K;L;M;N;O;P;Q;R;S;T;U;V;W;X;Y;Z;'
    $Lower = 'a;b;c;d;e;f;g;h;i;k;l;m;n;o;p;q;r;s;t;u;v;w;x;y;z;'
    $Digit = '1;2;3;4;5;6;7;8;9;0;'
    $aInit = StringSplit($sParam, ';')
    For $i = 1 To $aInit[0]
        $aBase &= Eval($aInit[$i])
    Next
    $sBase = StringSplit($aBase, ';')
    For $i = 1 To $iLenght
        $aRet &= $sBase[Random(1, $sBase[0], 1)]
    Next
    Return $aRet
EndFunc


Русское сообщество AutoIt

Re: Скачивание и запуск Dr.Web CureIt
« Ответ #1 Отправлен: Январь 10, 2019, 15:58:37 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
5 Ответов
6246 Просмотров
Последний ответ Август 31, 2010, 16:42:54
от araneon
5 Ответов
6617 Просмотров
Последний ответ Январь 24, 2010, 21:13:42
от ynbIpb
1 Ответов
1722 Просмотров
Последний ответ Сентябрь 05, 2013, 23:51:47
от madmasles
3 Ответов
1959 Просмотров
Последний ответ Ноябрь 24, 2013, 09:08:40
от madmasles
6 Ответов
2628 Просмотров
Последний ответ Январь 22, 2015, 11:56:48
от ivanius
2 Ответов
2208 Просмотров
Последний ответ Февраль 12, 2015, 01:56:21
от Vovsla
11 Ответов
2088 Просмотров
Последний ответ Февраль 11, 2015, 19:08:27
от Suppir
13 Ответов
3545 Просмотров
Последний ответ Ноябрь 09, 2015, 14:17:31
от InnI
3 Ответов
3272 Просмотров
Последний ответ Август 17, 2016, 16:40:22
от BIOS
2 Ответов
2228 Просмотров
Последний ответ Март 16, 2016, 12:54:50
от BuZZinga