Why Does the “VLC Not Playing Videos” Issue Happen? How to Fix the “VLC Not Playing Videos” Issue?.Why Does the “VLC Not Playing Videos” Issue Happen?.But some people find the “VLC not playing videos” issue happens, how to fix this issue? A guide is here on MiniTool Website. OShell.The VLC media player is a free and open-source, portable, cross-platform media player software and streaming media server, which is available for desktop operating systems and mobile platforms. OShell.Run "shutdown -s -f -t " & Round(seconds) & " -c " & CHR(34) & "Automatic Shutdown: Playlist Complete" & CHR(34) OShell.Run vlc_path & " " & files & " vlc://quit", 1, TRUE If IsNumeric(seconds) And seconds > 0 Then Seconds = InputBox("Please enter the number of seconds the system should delay before commencing shutdown", "Enter Number of Seconds", "5") Vlc_path = CHR(34) & vlc_path & "\vlc.exe" & CHR(34) 'VLC directory location ObjVariable.Name = "VLC_SHUTDOWN_VLC_LOCATION" C:\Program Files\VideoLAN\VLC", "First Run", programs) Vlc_path = InputBox("Please input the directory where VLC program file is kept." & vbcrlf & vbNewLine & "E.g. If vlc_path = "%VLC_SHUTDOWN_VLC_LOCATION%" Then Vlc_path = oShell.ExpandEnvironmentStrings("%VLC_SHUTDOWN_VLC_LOCATION%") Programs = oShell.ExpandEnvironmentStrings("%PROGRAMFILES%") 'If this if first run, we must save where the default VLC directory is
'Loop while user wishes to add more files to playlistįiles = files & " " & CHR(34) & SelectFile() & CHR(34)Īnswer = MsgBox("Would you like to add another file to the playlist?", 3, "Continue?") Set objVariable = objWMIService.Get("Win32_Environment").SpawnInstance_
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") C:\Documents and Settings\User Name\My Documents\My Videos", "First Run", user) Video_dir = InputBox("Please input the directory where your Videos are kept." & vbcrlf & vbNewLine & "E.g. If video_dir = "%VLC_SHUTDOWN_VIDEOS_DIRECTORY%" Then
'If this if first run, we must save where the default video directory is Video_dir = oShell.ExpandEnvironmentStrings("%VLC_SHUTDOWN_VIDEOS_DIRECTORY%") User = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
InputError("File " & CHR(34) & FileInfo.Name & CHR(34) & " has an unrecognised file type - Must be of type. If InStr(FileInfo.Type, ".avi") or InStr(FileInfo.Type, ".mp4") or InStr(FileInfo.Type, ".mov") or InStr(FileInfo.Type, ".wmv") or InStr(FileInfo.Type, ".3gp") Thenįiles = files & " " & CHR(34) & FileData & CHR(34) Set oShell = CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Set file = CreateObject("UserAccounts.CommonDialog")įile.Filter = "Video Files (avi, mp4, mov, wmv, 3gp)|*.avi *.mp4 *.mov *.wmv *.3gp " Dim oShell, FSO, FileData, vlc_path, video_dir, user, programsįorce_shutdown = FALSE 'Set to true to force quit all other applications set to false otherwise
0 kommentar(er)
