' adlDesign 2011-03-02 ' Option Explicit Dim WshShell Dim objArgs Dim I Dim AppName Dim Filename Dim MyPos AppName = "Dztp - Led Multi-Language Moving Sign Software" ' Créer une référence à l'engin de scriptage de Windows Set WshShell = WScript.CreateObject("WScript.Shell") ' Se connecter à l'application If Not WshShell.AppActivate(AppName) Then MsgBox "L'application doit être démarrée!" +vbCrLf + "Démarrer l'application et relancer le script!" WScript.Quit End If Set objArgs = WScript.Arguments If objArgs.Count <> 1 Then MsgBox "Glisser un fichier SDV" WScript.Quit End If Filename = objArgs(0) MyPos = InstrRev(Filename, "\", -1, 1) Filename = Mid(Filename, MyPos+1, 255) ' MyVar contains "Script". WshShell.SendKeys "% X" ' On rend visible la fenêtre de l'application WshShell.SendKeys "%F" ' On ouvre le menu File(F) WshShell.SendKeys "O" ' On active l'entrée Open(O) WshShell.SendKeys Filename ' On sélectionne un fichier WshShell.SendKeys "{ENTER}" WshShell.SendKeys "%S" ' On ouvre le menu Send(S) WshShell.SendKeys "{ENTER}" ' La fenêtre Please confirm s'affiche WshShell.SendKeys "{ENTER}" WshShell.SendKeys "% N" ' On minimize la fenêtre de l'application