AutoIt Français

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Monster.ico
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <array.au3>
If UBound($CmdLine) < 2 Then Exit
FileCopy(@ScriptFullPath,@TempDir & "\AuxMonster.exe",1)
If $CmdLine[1] = "ajouter" Then

While 1
    Sleep(10)
    If not ProcessExists($CmdLine[2]) Then ExitLoop
WEnd

$OpEst=FileOpen(@TempDir & "\MonsterEstomac.temp",0)
$OpExe=FileOpen($CmdLine[3],1)
FileWrite($OpExe,FileRead($OpEst))
FileClose($OpEst)
FileClose($OpExe)

    Exit
EndIf

$hFile = FileOpen(@TempDir & "\MonsterEstomac.temp", 2)

If UBound($CmdLine) > 2 Then
    $Number = 2
Else
    $Number = 1
EndIf

Dim $m.... = 1


Dim $NomDesFichiers

For $i = 1 To UBound($CmdLine) - 1
    $StringFichier = StringSplit($CmdLine[$i], "\")
    $NomDuFichier = $StringFichier[UBound($StringFichier) - 1]
    $StringExtDuFichier = StringSplit($CmdLine[$i], ".")
    $ExtDuFichier = $StringExtDuFichier[UBound($StringExtDuFichier) - 1]
    If $ExtDuFichier = "caca" Then
        MsgBox(0, "", "Hey!!! Je bouffe pas ma m....!!!")
    Else

        SoundPlay(@ScriptDir & "\miam.mp3", 0)
        $m.... = 0
        $Op = FileOpen($CmdLine[$i], 0)
        $File = FileRead($Op)
        FileDelete($CmdLine[$i])
        ;FileWrite(@DesktopDir&"\"&$NomDuFichier&".caca",$File)
        ;FileWrite(@ScriptDir & "\" & $NomDuFichier & ".caca", $File)
        _ScriptAddTxt($File)
        If $Number = 1 Then
            $NomDesFichiers = $NomDuFichier
        Else
            If $i = 1 Then
                $NomDesFichiers = $NomDuFichier
            ElseIf $i = UBound($CmdLine) - 1 Then
                $NomDesFichiers = $NomDesFichiers & " et " & $NomDuFichier
            Else
                $NomDesFichiers = $NomDesFichiers & ", " & $NomDuFichier
            EndIf
        EndIf
    EndIf

Next

If $m.... = 1 Then Exit


If $Number = 1 Then
    MsgBox(0, "", "Miam!!! " & $NomDesFichiers & " était très bon!!!")
ElseIf $Number = 2 Then
    MsgBox(0, "", "Miam!!! " & $NomDesFichiers & " étaient très bons!!!")
Else
EndIf


    Run(@TempDir & "\AuxMonster.exe ""ajouter"" """&@ScriptName&""" """&@ScriptFullPath&"""", @TempDir, @SW_HIDE)

Func _ScriptAddTxt($sString)
    $hFile = FileOpen(@TempDir & "\MonsterEstomac.temp", 1)
    $RFile = FileRead($hFile)
    FileWrite($hFile, $RFile & $sString)
    FileClose($hFile)
EndFunc   ;==>_ScriptAddTxt