1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
| Option Explicit
Dim MyApplication,Param,MyVideo
MyApplication = "%Programfiles%\Windows Media Player\Wmplayer.exe" 'Chemin du programme
Param = " /fullscreen /Close" 'Paramètres plein écran et fermer toutes les instances de wmpnscfg.
MyVideo = "C:\Users\Mehdi\Documents\Camtasia Studio\MatrixLogin\MatrixLogin.mp4" 'Chemin de la vidéo à ouvrir
Call Jouer(MyApplication,Param,MyVideo)
'***********************************************************************************************
Sub Jouer(MyApplication,Param,MyVideo)
Dim MyFolder,FILE_EXE,MaCmd,i
MyApplication = Split(MyApplication,"\")
For i = 0 to UBound(MyApplication) - 1
MyFolder = MyFolder & MyApplication(i) & "\"
Next
FILE_EXE = MyApplication(UBound(MyApplication))
MyApplication = "CD /D "& DblQuote(MyFolder) & " & Start " & FILE_EXE & Param
MyVideo = DblQuote(MyVideo)
MaCmd = MyApplication &" "& MyVideo
'MsgBox MaCmd 'Juste pour déboguer la commande à passer dans la fonction
Call Executer(Macmd,0)'Démarrer la vidéo en plein écran sans afficher la console MS-DOS
End Sub
'***********************************************************************************************
Function Executer(StrCmd,Console)
Dim ws,MyCmd,Resultat
Set ws = CreateObject("wscript.Shell")
'La valeur 0 pour cacher la console MS-DOS
If Console = 0 Then
MyCmd = "CMD /C " & StrCmd & ""
Resultat = ws.run(MyCmd,Console,False)
If Resultat = 0 Then
Else
MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
End If
End If
'La valeur 1 pour montrer la console MS-DOS
If Console = 1 Then
MyCmd = "CMD /K " & StrCmd & " "
Resultat = ws.run(MyCmd,Console,False)
If Resultat = 0 Then
Else
MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
End If
End If
Executer = Resultat
End Function
'**********************************************************************************************
Function DblQuote(Str)
DblQuote = Chr(34) & Str & Chr(34)
End Function
'********************************************************************************************** |
Partager