Jump to content

installation music?


 Share

Recommended Posts

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


[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.SIF

PS - 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

  • 4 weeks later...

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

Here Some That Will Make This The Cmd And Cmdline.txt For A Ua

Ua-Music.PNG

Here Is The Code

dim RT, Shell, AP, UP, SD, SP, Wd, fso, f

V = Vbcrlf

RT = 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 Next

If Instr(TypeName(CreateObject("Shell.Application")), "Shell") = 0 Then

BrowseForFile = InputBox(strPrompt, strTitle, WScript.ScriptFullName)

ELSE

BrowseForFile = BrowseForFile_Shell(strPrompt)

End If

End Function

Function BrowseForFile_Shell(strPrompt)

Dim sh, fol, fs, lngView, strPath

Set sh = CreateObject("Shell.Application")

Set fs = CreateObject("Scripting.FileSystemObject")

lngView = SFVVO_SHOWALLOBJECTS Or SFVVO_SHOWEXTENSIONS Or SFVVO_SHOWFILES

strPath = ""

Set fol = sh.BrowseForFolder(&0, strPrompt, lngView, ssfDRIVES)

On Error Resume Next

strPath = fol.ParentFolder.ParseName(fol.Title).Path

If strPath = "" Then

strPath = fol.Title

Set fol = fol.ParentFolder

strPath = fs.BuildPath(fol.ParentFolder.ParseName(fol.Title).Path, strPath)

End If

BrowseForFile_Shell = strPath

End Function

msgbox 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 next

Set 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 & "\" & User1

ts.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 by gunsmokingman
Link to comment
Share on other sites

  • 1 month later...

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 Be

Down Loaded.

Here Is A Updated Version

No More Typing In The File Name

It Will Open Only These File Extentions

WMA File|*.wma|MP3 File|*.mp3|Playlist Type1|*.m3u|PlayList Type2|*.wpl

If Anyone Can Suggest More Music File Types I Will Add Them.

This Also Clean Up Your Tmp Files.

Here Is The Code

Dim Act, Loc, Mx1, X1, X2, X3, V

V = 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 by gunsmokingman
Link to comment
Share on other sites

Thanks For The Compliments :thumbup

This seems to start WMP10 Min And Hidden Sometimes

Example When Testing It would WMP10 open and i would

min it to task bar.

Then Later After I Posted It Here, When I ran the script

and choosed a .wpl It would start hidden.

Link to comment
Share on other sites

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

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 @ /HID

ECHO OFF

devcon disable ACPI\PNP0401

devcon disable ACPI\PNP0700

devcon [-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 3f

Title Gsm Play Music

Echo.

echo Playing User Selected Music

start /wait mplayer2.exe C:\music\list.m3u

ping -n 2 127.0.0.1>nul

exit

If, it is something wrong, can someone lighting my way ? :lol:

Thank You !

Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.


×
×
  • Create New...