AutoIt Français

Code : Tout sélectionner

#include <File.au3>
#include <Array.au3>
#include <Misc.au3>

Run("C:\Program Files\Adobe\Adobe Flash CS3\Flash.exe", "", @SW_MINIMIZE)

While 1 = 1

    $FileList = _FileListToArray("C:\Documents and Settings\--\Bureau\Fichier_F8")

    If $FileList = "" Then
        Sleep(1000)
    Else
        $File = StringLeft($FileList[1], StringLen($FileList[1]) - 4)
        WinWait("[CLASS:Flash9]")
        ControlSend("[CLASS:Flash9]", "", "", "^o")
        WinWait("Ouvrir")
        ControlCommand("Ouvrir", "", "Edit1", "EditPaste", "C:\Documents and Settings\--\Bureau\Fichier_F8\" & $FileList[1])
        ControlSend("Ouvrir", "", "", "{ENTER}")
        WinWait("[CLASS:Flash9]")
        ControlSend("[CLASS:Flash9]", "", "", "^+{F12}")
        WinWait("Paramètres de publication")
        ControlClick("Paramètres de publication", "", "Button1")
        ControlSend("Paramètres de publication", "", "", "i")
        WinWait("Importer un profil")
        ControlSend("Importer un profil", "", "", "UnProfil")
        ControlSend("Importer un profil", "", "", "{ENTER}")

        If ControlCommand("Paramètres de publication", "", "SysTabControl321", "CurrentTab", "") == 2 Then
            ControlCommand("Paramètres de publication", "", "SysTabControl321", "TabLeft")
        EndIf
        
        WinWait("Paramètres de publication")
        ControlClick("Paramètres de publication", "", "Edit1", "left", 2)
        ControlCommand("Paramètres de publication", "", "Edit1", "EditPaste", "C:\Documents and Settings\--\Bureau\Fichiers_SWF_CS3\" & $FileList[1])
        ControlSend("Paramètres de publication", "", "", "{ENTER}")
        WinWait("[CLASS:Flash9]")
        ControlSend("[CLASS:Flash9]", "", "", "+{F12}");Send("+{F12}")
        WinWait("[CLASS:Flash9]")
        ControlSend("[CLASS:Flash9]", "", "", "^w")
        ControlSend("[CLASS:Flash9]", "", "", "!n")
        Sleep(1000)
        FileDelete("C:\Documents and Settings\--\Bureau\Fichier_F8\" & $FileList[1])
    EndIf
WEnd

Code : Tout sélectionner

#include<file.au3>
#include<array.au3>
Opt("WinWaitDelay", 0)
Opt("WinTitleMatchMode", 3)




$adobe = "Adobe Flash CS3 Professional"
$start = 0



While 1

    $fla = _FileListToArray(@ScriptDir, "*.fla", 1)
    If @error = 4 Then
        Dim $fla[1]
        $fla[0] = 0
    EndIf

    If Not ProcessExists("Flash.exe") Then
        $flash = Run("M:\Program Files\Adobe\Adobe Flash CS3\Flash.exe")
        ProcessWait($flash)

        WinWaitActive($adobe, "")
        Send("{F4}")

        $handle = WinGetHandle($adobe, "")
        
        WinSetTrans($handle, "", 0)
        WinSetState($handle, "", @SW_HIDE)
    EndIf

    If $fla[0] > 0 Then
        BlockInput(1)
        For $I = 1 To $fla[0]
            $nom = StringTrimRight($fla[$I], 4)
            ShellExecute($fla[$I])
            WinWait($adobe & " - [" & $fla[$I] & "]")
            Sleep(300)
            Send("^{Enter}")
            WinWait($nom & ".swf", "")
            Send("^w")
            WinWaitActive($adobe & " - [" & $fla[$I] & "]")
            Send("^w")
            
            
            
            
            
            
            
            
            
        Next




        Sleep(1000)

        For $I = 1 To $fla[0]

            FileDelete(@ScriptDir & "\" & $fla[$I])

        Next

        WinSetState($handle, "", @SW_HIDE)
        BlockInput(0)
    EndIf





    Sleep(1000)
    If $start = 0 Then
        WinSetState($handle, "", @SW_HIDE)
        $start = 1
    EndIf
WEnd



Func OnAutoItExit()
    If ProcessExists("flash.exe") Then
        ProcessClose("flash.exe")
    EndIf
EndFunc   ;==>OnAutoItExit