Что нового

Скачивание и запуск Dr.Web CureIt

Сообщения
95
Репутация
-1
Версия AutoIt: 3.3.14.2

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

Примечания:

Код:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
InetGet('http://download.geo.drweb.com/pub/drweb/cureit/cureit.exe', @ScriptDir & '\Download\' & Generate(10) & '.exe')
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
 

InnI

AutoIT Гуру
Сообщения
4,912
Репутация
1,429
Код:
#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
 
Верх