![]() 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?") ObjVariable.Name = "VLC_SHUTDOWN_VIDEOS_DIRECTORY" 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 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |