AutoIt Français

Code : Tout sélectionner

#include <Clipboard.au3>

$Clip = CreerFileClip(FileOpenDialog("","","(*.*)"))
_ClipBoard_SetData($Clip, $CF_HDROP)

Func CreerFileClip($Chemin)
    Local $NULL =   StringLeft(BinaryToString(0), 1)
    Local $Clip =   Chr(20) & $NULL & $NULL & $NULL & $NULL & $NULL & $NULL & $NULL & $NULL & $NULL & $NULL & $NULL & $NULL & $NULL & $NULL & $NULL & Chr(1) & _
                    $NULL & $NULL & $NULL

    For $i = 1 To StringLen($Chemin)
        $Clip &= StringMid($Chemin, $i, 1) & $NULL
    Next
    $Clip &= $NULL & $NULL & $NULL & $NULL
    Return $Clip
EndFunc

 

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Simple copieur", 513, 176, 192, 124)
Global $Label1 = GUICtrlCreateLabel("data", 48, 112, 250, 17)
Global $Progress1 = GUICtrlCreateProgress(24, 32, 257, 41)
Global $Button1 = GUICtrlCreateButton("copier", 354, 16, 129, 57)
Global $Button2 = GUICtrlCreateButton("arreter", 354, 90, 129, 57)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Opt('TrayAutoPause', 0)


Global Const $PROGRESS_CONTINUE = 0, $PROGRESS_CANCEL = 1
Global $hProgressProc = DllCallbackRegister('_ProgressProc', 'dword', 'uint64;uint64;uint64;uint64;dword;dword;ptr;ptr;long_ptr')


While 1
 Global $nMsg = GUIGetMsg()
 Switch $nMsg
    Case $GUI_EVENT_CLOSE
        Exit

    case $Button1
        $file_a_copier = FileOpenDialog('Select file',@ScriptDir,'All files (*.*)')
        $destination = FileSaveDialog('Save your files',@ScriptDir,'All files(*.*)')
        _WinAPI_CopyFileEx($file_a_copier, $destination, 0, DllCallBackGetPtr($hProgressProc))
        DllCallbackFree($hProgressProc)

EndSwitch
WEnd

        Func _ProgressProc($iTotalFileSize, $iTotalBytesTransferred, $iStreamSize, $iStreamBytesTransferred, $iStreamNumber, $iCallbackReason, $hSourceFile, $hDestinationFile, $iData)

            Local $Percent = Round($iTotalBytesTransferred / $iTotalFileSize * 100)
                GUICtrlSetData($Label1,"Data: "& $Percent&" / 100% => "&$iTotalBytesTransferred&" octect sur "&$iTotalFileSize&" octects" )
                GUICtrlSetData($Progress1,$Percent)
            If $nMsg = $Button2 Then;si esc est appuyé
                Return $PROGRESS_CANCEL
            Else
                Return $PROGRESS_CONTINUE
            EndIf
        EndFunc   ;==>_ProgressProc

        Func _IsPressed($sHexKey, $vDLL = 'user32.dll')
            Local $a_R = DllCall($vDLL, "short", "GetAsyncKeyState", "int", '0x' & $sHexKey)
            If @error Then Return SetError(@error, @extended, False)
            Return BitAND($a_R[0], 0x8000) <> 0
        EndFunc   ;==>_IsPressed

        Func _WinAPI_CopyFileEx($sExistingFile, $sNewFile, $iFlags = 0, $pProgressProc = 0, $pData = 0)

            Local $Ret = DllCall('kernel32.dll', 'int', 'CopyFileExW', 'wstr', $sExistingFile, 'wstr', $sNewFile, 'ptr', $pProgressProc, 'long_ptr', $pData, 'ptr', 0, 'dword', $iFlags)

            If (@error) Or (Not $Ret[0]) Then
                Return SetError(1, 0, 0)
            EndIf
            Return 1
        EndFunc   ;==>_WinAPI_CopyFileEx