AutoIt Français

Code : Tout sélectionner

run("notepad.exe")
WinWaitActive("Sans titre - Bloc-Notes")
send("[$CmdLine[0]]") ;je voudrais mettre une variable pour tester...mais je ne sais pas faire alors je re-edite et re-compile.
Exit

Code : Tout sélectionner

If WinExists("[CLASS:SubtitleWorkshop]", "") Then
WinActivate("[CLASS:SubtitleWorkshop]", "")
send("^p")             ; ouvrir un film
send("$CmdLine[0]") ; la il devrai y avoir un changement ;)
send("{ENTER}")      
send("^n")             ; nouveau sous-titres blanc
Exit
ElseIf
run("subtitleworkshop.exe")
WinWaitActive("[CLASS:SubtitleWorkshop]", "")
send("^p")
send("$CmdLine[0]")  ; ca aussi ca marche pas ;)
send("{ENTER}")
send("^n")
Exit
EndIf
Exit

Code : Tout sélectionner

If WinExists("[CLASS:SubtitleWorkshop]", "") Then
 ; au cas ou un dossier Subtitle Workshop serait ouvert...
WinActivate("[CLASS:SubtitleWorkshop]", "")
send("^p") ; jeter un coup d'œil au nom du fichier vidéo en cours ( fenetre "ouvrir" choix "ouvrir un film".
send("^c") ; le copier, donc...
send("{ESCAPE}") ; on ferme 
send("^a") ; on sélectionne toutes les lignes de ss titres
send("^+e") ; on agrandit la durée des sous titres (il faut régler la durée max a 9999999 et cocher la case "empêcher les chevauchements de sous titres" dans le menu Edition-"timing"-"augmenter la durée des sous titres"
send("^+s") ; on enregistre
send("{DOWN}")         ; la fenêtre est complexe 
send("{ENTER}")         ;il faut sélectionner le bon format de sous titres on peu convertir avec ce soft d'ailleurs
send("^v")                 ;on colle le nom que l'on a pioché tout en haut
send("{BS 4}")           ; on supprime l'extension a adapter si l'extension contient 4 caracteres.
send("{ENTER}")         ; voila ça enregistre a ce stade

ElseIf                        ; la y'a rien a faire...
Exit

EndIf

Exit

 

Code : Tout sélectionner

If $CMDLINE[0] Then
        MsgBox(64, "Le fichier envoyer en paramètre est : ", $CMDLINE[1])
EndIf

Code : Tout sélectionner

Shellexecute("C:\Program Files\SubtitleWorkshop\SubtitleWorkshop.exe", $CMDLINE[1])

Code : Tout sélectionner

; Définition du chemin de l'application SubtitleWorkshop.
$SWrks = @ProgramFilesDir & "\SubtitleWorkshop\SubtitleWorkshop.exe"

If $CMDLINE[0] Then  ; On regarde si il y a au moins un argument.
    
    ; Dans la circonstance, nous nous occupons que du premier paramètre.
    ; Mais il est possible d'en gérer plusieurs.
    
    ; Il est bien de controler que le fichier envoyé en paramètre est bien un fichier vidéo.
    
    ; Je regarde les 3 derniers caractère du paramètre 1 :
    $Res = StringRight($CMDLINE[1], 3)
    ; Si $Res est bien une extension vidéo 
    If $Res = "avi" Or $Res = "mpg" Then
        ; On lance le fichier paramètre 1 avec SubtitleWorkshop
        Shellexecute($SWrks, $CMDLINE[1])
    Else
        ; Message d'erreur puis sortie.
        MsgBox(16,"Erreur", "Le fichier " & @CRLF & $CMDLINE[1] & @CRLF & "n'est pas un fichier vidéo.")
        Exit
    EndIf
        
    
Else  ; Sinon 
    
    ; Boite de dialogue d'ouverture de fichier.
    $var = FileOpenDialog("Veuillez choisir un fichier video :", "", "Videos (*.avi;*.mpg)", 1)
    
    If @error Then  ; Si il n'y à pas eu de sélection on sort.
        Exit
    Else  ; Sinon on lance $var
        Shellexecute($SWrks, $var)
    EndIf
    
EndIf

Code : Tout sélectionner

; Définition du chemin de l'application SubtitleWorkshop.
$SWrks = @ProgramFilesDir & "\URUSOFT\Subtitle Workshop\SubtitleWorkshop.exe"
ClipPut($CmdLineRaw) ; on rentre dans le presse papier le chemin du ficher video

If $CMDLINE[0] Then  ; On regarde si il y a au moins un argument.
   
    ; On controle que le fichier envoyé en paramètre est bien un fichier vidéo.
  
    ; Je regarde les 3 derniers caractère du paramètre 1 :
    $Res = StringRight($CMDLINE[1], 3)
    ; Si $Res est bien une extension vidéo
    If $Res = "avi" Or $Res = "mpg" Then
        ; On lance le fichier avec SubtitleWorkshop
        If WinExists("[CLASS:SubtitleWorkshop]", "") Then ; au cas ou Subtitle Workshop serait ouvert...
            WinActivate("[CLASS:SubtitleWorkshop]", "")
        Else
            ShellExecute($SWrks)  ; voir ligne 2
            WinWaitActive("[CLASS:SubtitleWorkshop]", "")
            send("^p") ; Ouvrir un fichier video
            send("^v") ; Coller le contenu du presse papier (voir 3eme ligne)
            send("{ENTER}")
        EndIf   
    Else
        ; Message d'erreur
        MsgBox(16,"Erreur", "Le fichier " & @CRLF & $CMDLINE[1] & @CRLF & "n'est pas un fichier vidéo.")
    EndIf

Else  ; pour le cas ou on a pas d'argument (par ex. sans passer par "ouvrir avec" )
      ; Boite de dialogue d'ouverture de fichier.
    $var = FileOpenDialog("Veuillez choisir un fichier video :", "", "Videos (*.avi;*.mpg)", 1)
   
    If @error Then  ; Si il n'y à pas eu de sélection on sort.
        Exit
    Else  ; Sinon on lance SubWS avec $var comme fichier video
        If WinExists("[CLASS:SubtitleWorkshop]", "") Then ; au cas ou Subtitle Workshop serait ouvert...
            WinActivate("[CLASS:SubtitleWorkshop]", "")
        Else
            ClipPut($var) ; On rentre le resultat dans le presse papier
            Shellexecute($SWrks)  ; voir ligne 2
            WinWaitActive("[CLASS:SubtitleWorkshop]", "")
            send("^p") ; Ouvrir un fichier video
            send("^v") ; Coller le chemin et le nom du fichier demandé ci dessus et copié dans le presse papier
            send("{ENTER}")
        EndIf
    EndIf
EndIf
    send("^n")  ;Nouveau ss titre blanc dans la foulée
    Exit        ; Terminé