[EX] Mon script glouton

[L4crymal]

Ça fait vraiment longtemps que j'ai pas posté ici =)

Puis j'ai eu une idée TERRRRIIIIIBLE:

C'est un fichier exécutable qui manger d'autres fichiers pour ensuite les crotter juste après =D !!!
Pour lui donner un fichier, glisser le sur l'exécutable et hop il sera digéré =)

Voici le code:

► Afficher le texte

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

 

Les fichiers auxiliaires sont fournis dans le fichier joint.

Je vais vite l'améliorer:

- L'exécutable grossira en fonction des fichiers ingurgités [MAJ : 1.1]
- L'exécutable aura des préférences de fichier
- L'exécutable pourra tomber malade en fonction des fichiers ingurgités
- L'exécutable pourra s'accoupler et avoir des petits ( by pop45 )
- D'autre à venir

MAJ:

1.1 : 21/11/2010
1.0 : 21/11/2010

Donnez moi vos idées =D

[sablier94]

Hello,

C'est marrant , bravo pour l'idée !

[pop45]

Qu'il fasse des petit!
Sinon c'est sympa

[L4crymal]

Qu'il fasse des petit!
Sinon c'est sympa

Ya moyen si on le copie colle puis qu'on le glisse dessus :p

[SrBelial]

lol, c'est complètement inutile .... et donc totalement indispensable !!
à voir j'ai pas regardé en détail, mais j'espère qu'il y a des mécanismes de sécurité permettant de récupérer les fichiers ingérés quelque soit l'endroit ou le script puisse être interrompu !

en tout cas plutôt sympa le kiff !!

sinon autre idée : faire évoluer le script de façon plus ou moins aléatoire avec des paramètres de personnalisation qui évolueraient et lui permettraient de se distinguer de ses congénères (un nom, un age, une couleur, une forme, des qualités, des trucs comme ça ...)

[Jerome]

J'adoreeeeee, lol.

Comme la dit mon collegue d'au dessus, c'est tellement inutile que sa en devient indispensable xD.


Merci pour le partage anyway.

[pop45]

Tamagochi version autoit?

[Jerome]

Petit bug report, il dit qu'il mange le dossier, mais que néni

[Yogui]

Mode MODO :

C'EST QUOI CE TITRE !!

Code : Tout sélectionner

Mettez un titre CLAIR et précis.

MODE YOGUI

Je suis tout à fait d'accord avec SrBelial J'adore l'idée lol Bravo je vais suivre ce topic

[L4crymal]

Euh, ya pas vraiment de titre adéquat à ce script, mais j'attends vos propositions pour le titre aussi :p

Merci pour les encouragements, je vais corriger le problème du dossier et mettre quelques amélioration en ligne ce week end.

[Christelle10]

J'ai essayé votre programme et je le trouve plutôt marrant mais après avoir manger mon fichier que devient il ?

[Tlem]

Mise à jour du titre du sujet (Il y à sans doute plus original, mais c'est le plus proche du sujet ).

[pop45]

J'ai essayé votre programme et je le trouve plutôt marrant mais après avoir manger mon fichier que devient il ?

Le programme fait caca ^^
Enfait dans le dossier du programme, vous allez voir un nouveau fichier apparaitre appeller "[le nom du fichier que vous lui avez donnée].caca"

[zeshrek]

Chez moi ca marche pas.
J'ai pris l'exe, je l'ai posé sur le bureau, et je lui a filé qq fichiers et dossiers. Il les a bien éffacés, mais il ne m'a rien restitué !
Du coup j'envisage plutot de l'utiliser comme corbeille !