seraph00 Posted January 18, 2005 Share Posted January 18, 2005 I've read through the great guide posted here for how to replace the startup image used during an XP install. I've got a quite neat Voltron theme in the process of being put together. I am curious though, is there any way to get the Windows XP installer to cue up and play a sound file like a .wav or .mp3 during the gui part of the installation that makes use of the new image? If so, i'd really appreciate a guide as to how to go about doing this. It would be too sweet to be able to get the install to not only show my Voltron theme but also to play the theme music from the original cartoon during the installation.Also, I was curious if anyone knows of a way to change the default theme for XP? Meaning is there a way to update it or replace it so the default theme you get after every install is something better than the eyesore bliss theme? If so, i'd appreciate info on how to do that as well. Thanks! Link to comment Share on other sites More sharing options...
Astalavista Posted January 18, 2005 Share Posted January 18, 2005 First Welcome to MSFNSecond, u will hear this alot so let me the first.USE the Search Function.If u are thinking of it, There is a very high probability that it has alreadybeen asked before. With hundreds of members, u will find a wealth of information at MSFN.look here First Link to comment Share on other sites More sharing options...
tjhart85 Posted January 18, 2005 Share Posted January 18, 2005 [shell] CustomDefaultThemeFile = "%WinDir%\Resources\Themes\MyTheme.theme"This option sets the default theme that windows will use, this can be a custom theme or another default theme included with Windows XP. This will mean that XP will not boot up using the default Luna theme, but with a theme you set in this option.MSFN Unattended - WINNT.SIFPS - Astalavista is correct, you really should search. All I typed in to find that was "CHANGE DEFAULT THEME" and it was the first thing that popped up. The search button is your best friend around here. Link to comment Share on other sites More sharing options...
alkmie Posted February 11, 2005 Share Posted February 11, 2005 I think u guys are miss reading his question i dont think he means change themes he means add sound to the install part of the gui i could be wrong but what i think he is asking for ps sorry im a newbie myself not much help Link to comment Share on other sites More sharing options...
Alanoll Posted February 11, 2005 Share Posted February 11, 2005 http://www.msfn.org/board/index.php?showto...ched+Program%22http://www.msfn.org/board/index.php?showto...5&hl=play+musicOne of those should get you started. Both of which brought up with a search@alkmieRead his second paragraph Link to comment Share on other sites More sharing options...
jamesas Posted February 12, 2005 Share Posted February 12, 2005 there is a piece of software made by biohazard and its a very easy player to configure Link to comment Share on other sites More sharing options...
gunsmokingman Posted February 12, 2005 Share Posted February 12, 2005 (edited) Here Some That Will Make This The Cmd And Cmdline.txt For A UaHere Is The Codedim RT, Shell, AP, UP, SD, SP, Wd, fso, fV = VbcrlfRT = BrowseForFile("Please Select The Location Of The Music File:" & V & "This Passes The Location Back To The Script!", "Select File")Function BrowseForFile(strPrompt, strTitle)On Error Resume NextIf Instr(TypeName(CreateObject("Shell.Application")), "Shell") = 0 ThenBrowseForFile = InputBox(strPrompt, strTitle, WScript.ScriptFullName)ELSEBrowseForFile = BrowseForFile_Shell(strPrompt)End IfEnd FunctionFunction BrowseForFile_Shell(strPrompt)Dim sh, fol, fs, lngView, strPathSet sh = CreateObject("Shell.Application")Set fs = CreateObject("Scripting.FileSystemObject")lngView = SFVVO_SHOWALLOBJECTS Or SFVVO_SHOWEXTENSIONS Or SFVVO_SHOWFILESstrPath = ""Set fol = sh.BrowseForFolder(&0, strPrompt, lngView, ssfDRIVES)On Error Resume NextstrPath = fol.ParentFolder.ParseName(fol.Title).PathIf strPath = "" ThenstrPath = fol.TitleSet fol = fol.ParentFolderstrPath = fs.BuildPath(fol.ParentFolder.ParseName(fol.Title).Path, strPath)End IfBrowseForFile_Shell = strPathEnd Functionmsgbox RT ,0+ 64, "Gsm Ua Music"User1= Inputbox("Type In The Name Of The Music File" & V & "This Can Be Any Music File Suppoted" & V & "By Windows Media Player" & V &_"So Music List Will Play .MP3, .WMA, .m3u")on error resume nextSet Shell = WScript.CreateObject("WScript.Shell")AP = Shell.ExpandEnvironmentStrings("%AllUsersProfile%")UP = Shell.ExpandEnvironmentStrings("%UserProfile%")SD = Shell.ExpandEnvironmentStrings("%SystemDrive%")SP = Shell.ExpandEnvironmentStrings("%SystemDrive%\Program Files")WD = Shell.ExpandEnvironmentStrings("%Windir%\") Set fso = CreateObject("Scripting.FileSystemObject") Set sh = CreateObject("WScript.Shell") Set fs = CreateObject("Scripting.FileSystemObject") Set objFSO = CreateObject("Scripting.FileSystemObject")Set fs = CreateObject("Scripting.FileSystemObject") strFileName = fs.BuildPath(Wscript.ScriptFullName & "\..", SD & "\UaMusic.CMD") strFileName = fs.GetAbsolutePathName(strFileName) Set ts = fs.OpenTextFile(SD & "\UaMusic.CMD", 2, True) ts.WriteLine "ECHO OFF"ts.WriteLine "CLS && mode 55,3 && color 3f"ts.WriteLine "Title Gsm Play Music"ts.WriteLine "Echo."ts.WriteLine "echo Playing User Selected Music" ts.WriteLine "start mplayer2.exe " & RT & "\" & User1ts.WriteLine "ping -n 2 127.0.0.1>nul"ts.WriteLine "exit" ts.Close sh.run (SD & "\UaMusic.CMD") Set fs = CreateObject("Scripting.FileSystemObject") strFileName = fs.BuildPath(Wscript.ScriptFullName & "\..", SD & "\cmdlines.txt") strFileName = fs.GetAbsolutePathName(strFileName) Set tq = fs.OpenTextFile(SD & "\cmdlines.txt", 2, True) tq.WriteLine "[COMMANDS]"tq.WriteLine """UaMusic.CMD"""tq.Close On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") Set fso = CreateObject("Scripting.FileSystemObject") set objShell = CreateObject("Shell.Application") set objFolder = objShell.NameSpace(UP & "\Desktop") Wscript.sleep 300 if not objFolder is nothing then objFolder.CopyHere(SD & "\UaMusic.CMD") objFolder.CopyHere(SD & "\cmdlines.txt") end if set objShell = nothing set objFolder = nothing Wscript.sleep 300 msgbox "The UaMusic.CMD And Cmdlines.txt" & V & "Is Located On Your Desktop", 0 + 64,"Gsm Says Thank You!" fso.DeleteFile( SD & "\UaMusic.CMD") fso.DeleteFile( SD & "\cmdlines.txt") fso.DeleteFile( SD & "\GsmUaPlayMusic.vbs") Edited July 18, 2005 by gunsmokingman Link to comment Share on other sites More sharing options...
SaintLaur Posted March 29, 2005 Share Posted March 29, 2005 What comand or what I must to do , to start media player minimized or invisible ? Link to comment Share on other sites More sharing options...
jacksont123 Posted April 2, 2005 Share Posted April 2, 2005 (edited) What comand or what I must to do , to start media player minimized or invisible ?<{POST_SNAPBACK}>i would also like to know that tooalso what does ping -n 2 127.0.0.1>nul mean? Edited April 2, 2005 by jacksont123 Link to comment Share on other sites More sharing options...
gunsmokingman Posted April 3, 2005 Share Posted April 3, 2005 (edited) I Could Only Get Winamp To Start Min Ping Is A Way To Pause The Script For X Seconds.I use Ping.exe Instead Of Sleep.exe Because Sleep.exe Is Not Part Of XP And Must BeDown Loaded.Here Is A Updated Version No More Typing In The File NameIt Will Open Only These File ExtentionsWMA File|*.wma|MP3 File|*.mp3|Playlist Type1|*.m3u|PlayList Type2|*.wplIf Anyone Can Suggest More Music File Types I Will Add Them.This Also Clean Up Your Tmp Files.Here Is The CodeDim Act, Loc, Mx1, X1, X2, X3, VV = Vbcrlf ''''''CREATING THE VARIOUS THINGS NEEDED Dim Ws : Set Ws=Wscript Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject") Dim Acr : Set Act = WScript.CreateObject("WScript.shell") Dim Shell : Set Shell = CreateObject("UserAccounts.CommonDialog") ''''''THIS IS ARRAY TO SET VARIOUS LOCATIONS ''''''%AllUsersProfile% = Loc(0) %UserProfile% = Loc(1) %SystemDrive% = Loc(2) ETC ''''''THIS ARRAY GOES FROM Loc(0) TO Loc(7) Loc = Array (Act.ExpandEnvironmentStrings("%AllUsersProfile%") ,Act.ExpandEnvironmentStrings("%UserProfile%") ,_ Act.ExpandEnvironmentStrings("%SystemDrive%") ,Act.ExpandEnvironmentStrings("%ProgramFiles%") ,_ Act.ExpandEnvironmentStrings("%CommonProgramFiles%") ,Act.ExpandEnvironmentStrings("%SystemRoot%") ,_ Act.ExpandEnvironmentStrings("%UserProfile%\Local Settings\Temp"),Act.ExpandEnvironmentStrings("%ComputerName%") ) ''''''MESSAGE BOX WITH WHAT YOU SELECTED function recall X2=Shell.FileName Mx1 = "Gsm RunApp" Ws.sleep 55 Act.popup X2, 3, Mx1, 0 + 64 end function ''''''THIS IS THE CANCEL BOX FOR THE BROW FOR FILE function NotThere X3="No File Was Selected" & Vbcrlf & "Preparing To Quit" Mx1 = "Gsm RunApp" Mx1 = Mx1 & ", Exiting Script" Ws.sleep 55 Act.popup X3, 3, Mx1,0 + 64 end function ''''''THIS IS THE CMD MADE TO USE IN THE UA AT THE CMDLINES.TXT SETUP Function MakeCmd strFileName = Fso.BuildPath(Wscript.ScriptFullName & "\..", Loc(2) & "\UaMusic.CMD") strFileName = Fso.GetAbsolutePathName(strFileName) Set ts = Fso.OpenTextFile(Loc(2) & "\UaMusic.CMD", 2, True) ts.WriteLine "ECHO OFF" ts.WriteLine "CLS && mode 55,3 && color 3f" ts.WriteLine "Title Gsm Play Music" ts.WriteLine "Echo." ts.WriteLine "echo Playing User Selected Music" ts.WriteLine "start mplayer2.exe " & (Chr(34) & Shell.FileName & Chr(34)) ''''''PING IS USED TO PAUSE THE SCRIPT IT LIKE SLEEP.EXE ts.WriteLine "ping -n 2 127.0.0.1>nul" ts.WriteLine "exit" ts.Close End Function ''''''THIS MAKE THE CMDLINES.TXT FOR THE UA Function MakeCmdLTxt Set tq = Fso.OpenTextFile(Loc(2) & "\cmdlines.txt", 2, True) tq.WriteLine "[COMMANDS]" tq.WriteLine """UaMusic.CMD""" tq.Close End Function ''''''PLACES THE FILES ON THE DESKTOP FOR YOU Function PlaceF On Error Resume Next Set Shell = CreateObject("Scripting.FileSystemObject") Set Fsoo = CreateObject("Scripting.FileSystemObject") set objAct = CreateObject("Act.Application") set objFolder = objAct.NameSpace(Loc(1) & "\Desktop") Wscript.sleep 300 if not objFolder is nothing then objFolder.CopyHere(Loc(2) & "\UaMusic.CMD") objFolder.CopyHere(Loc(2) & "\cmdlines.txt") end if set objAct = nothing set objFolder = nothing Ws.sleep 300 Act.popup "The UaMusic.CMD And Cmdlines.txt" & V &_ "Is Located On Your Desktop", 5,"Gsm Says Thank You!", 0 + 64 End Function ''''''CLEANS UP THE MESS Function CleanUp On error Resume Next Fso.DeleteFile( Loc(2) & "\UaMusic.CMD") Fso.DeleteFile( Loc(2) & "\cmdlines.txt") Fso.DeleteFile( Loc(2) & "\GsmUaPlayMusicV2.vbs") Fso.Deletefile (Loc(6) & "\*.*") Fso.deleteFolder (Loc(6) & "\*") Fso.deletefolder ( Loc(6) & "\*.tmp") End Function ''''''WHERE WE WILL RUN ALL THE ABOVE FUNCTION Function GsmGetFile Shell.Filter ="WMA File|*.wma|MP3 File|*.mp3|Playlist Type1|*.m3u|PlayList Type2|*.wpl" InitFsoO = Shell.ShowOpen If InitFsoO = False Then NotThere Set Act = nothing Set Shell = nothing Wscript.Quit Else X2=Shell.FileName recall GQuest = Act.popup ("Would You Like To Run The File" & V & "Yes To Run The File" & V &_ "No To Just Finish The Script" & V & "And Not Run The File" & V & "Defualt Time Is 10 Seconds" & V &_ "Then It WilL Use Yes Reply Actions!", 10, "Gsm To Run Or Not To Run?", 4 + 32) '''' The Yes Reply If GQuest = 6 Then ''''''THIS IS WHERE WE RUN FUNCTION MakeCmd And MakeCmdLTxt MakeCmd Ws.sleep 50 MakeCmdLTxt PlaceF ''''''PLACES THE FILE IN THE NEEDED SPOT X1 = Act.run (Chr(34) & X2 & Chr(34),2,true) CleanUp ''''''DELETES ANY FILES MADE FROM THE SCRIPT End If '''' The No Reply If GQuest = 7 Then MakeCmd Ws.sleep 50 MakeCmdLTxt PlaceF '''''PLACES THE FILE IN THE NEEDED SPOT CleanUp ''''''DELETES ANY FILES MADE FROM THE SCRIPT End If '''' Time Out Function If GQuest = -1 Then MakeCmd Ws.sleep 50 MakeCmdLTxt PlaceF ''''''PLACES THE FILE IN THE NEEDED SPOT X1 = Act.run (Chr(34) & X2 & Chr(34),2,true) CleanUp ''''''DELETES ANY FILES MADE FROM THE SCRIPT End If Set Act = nothing Set Shell = nothing Wscript.Quit End If End Function '''''' THIS IS WHERE WE START THE SCRIPT AND ALL FUNCTION GsmGetFile ''''''HERE WE MAKE SURE WE SET IS NOW NOTHING Set Fso = Nothing Set Act = Nothing Set Shell = Nothing Edited July 18, 2005 by gunsmokingman Link to comment Share on other sites More sharing options...
jacksont123 Posted April 3, 2005 Share Posted April 3, 2005 thanks Link to comment Share on other sites More sharing options...
lilweirddude Posted April 3, 2005 Share Posted April 3, 2005 nice script, thanks Link to comment Share on other sites More sharing options...
gunsmokingman Posted April 3, 2005 Share Posted April 3, 2005 Thanks For The Compliments This seems to start WMP10 Min And Hidden SometimesExample When Testing It would WMP10 open and i wouldmin it to task bar. Then Later After I Posted It Here, When I ran the scriptand choosed a .wpl It would start hidden. Link to comment Share on other sites More sharing options...
Powerhouse Posted April 3, 2005 Share Posted April 3, 2005 I have a few questions on this script. First, this is what happens If I run GsmUaPlayMusicV2.exe. I have to answer the questions you posted screen shots above, then it copies two files to the desktop (UaMusic.CMD and cmdlines.txt) and then the music I have selected starts playing and the player is hidden from view. This is great, however I don't want to have to answer the questions, I would just like to play the music with the player hidden. How can you do this?If I just run UaMusic.CMD (which I plan to do in Runonce.CMD), It will play the music, but the player isn't hidden. So I'm guessing you have something in your VBS script that tells the player to run hidden. Is this correct? If so, can this be added to UaMusic.CMD?Any help would be appreciated.Thanks Link to comment Share on other sites More sharing options...
SaintLaur Posted April 3, 2005 Share Posted April 3, 2005 Can be used this in T-39 (Detached Program) with another command lines in UaMusic.cmd for integrating and a sound driver before (for example) or disabling some components ? (offcourse including and devcon)Well, something like this : cmdow @ /HIDECHO OFFdevcon disable ACPI\PNP0401devcon disable ACPI\PNP0700devcon [-r]update C:\OEM\WDM\wdma_emu.inf "PCI\VEN_1102&DEV_0004&CC_040100"devcon [-r] update C:\OEM\WDM\ctljystk.inf "PCI\VEN_1102&DEV_7002&SUBSYS_00201102"devcon [-r] update C:\OEM\WDM\ctgame2k.inf "PCI\VEN_1102&DEV_7003&SUBSYS_00401102"echo.CLS && mode 55,3 && color 3fTitle Gsm Play MusicEcho.echo Playing User Selected Musicstart /wait mplayer2.exe C:\music\list.m3uping -n 2 127.0.0.1>nulexitIf, it is something wrong, can someone lighting my way ? Thank You ! Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now