AutoIt Français

Code : Tout sélectionner

#RequireAdmin
if Not IsAdmin() Then
    MsgBox(0x10,"Erreur","Vous ne pouvez pas continuer")
    Exit
EndIf

$Destination = "C:\Test.exe"
$MonFichier = FileOpenDialog("selectionner votre fichier", @WindowsDir & "\", "Exe (*.exe)", 1 + 4 )

If @error Then
    MsgBox(4096,"","Aucun fichier selectionné")
Else
    $MonFichier= StringReplace($MonFichier, "|", @CRLF)
EndIf

$bin=LectureBinaire ($MonFichier)
EcritureBinaireMode2($Destination,$bin&"0000000000000000")

Func LectureBinaire ($monfichier)
    $open = FileOpen ($monfichier,0+16)
    If $open = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
    Exit
    EndIf
    $lecture = FileRead ($open)
    FileClose ($open)
    Return $lecture
EndFunc

Func EcritureBinaireMode2 ($monfichier,$binaire)
    $open = FileOpen ($monfichier,2+16)
    If $open = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier !")
    Exit
    EndIf
    $lecture = FileWrite ($open,$binaire)
    FileClose ($open)
EndFunc