Открыть программу на других компьютерах

Question

Я хочу сделать партию игр, которые я могу отправить своим друзьям. Одна из вещей, которая работает на моем компьютере, - открытие звуковых файлов, чтобы музыка могла играть в определенных областях игры. Дело в том, что вы должны ввести путь к файлу, чтобы активировать программу с помощью команды start. Итак, если я пришлю своих друзей в игру, у них не будет звука. Есть ли способ добавить активы в игру, которая работает на других компьютерах?

Answer 1

Пример для воспроизведения музыки из Интернета: DJ_Batch_Music_Player.bat

@echo off 
Rem DJ Batch Music Player.bat by Hackoo 
setlocal enabledelayedexpansion 
Set vbsfile=%temp%\Intro.vbs 
Set URL=http://hackoo.alwaysdata.net/Intro_DJ.mp3 
Call:Play %URL% %vbsfile% 
Start %vbsfile% 
Set MyFile=%~f0 
Set ShorcutName=DJ Batch Music Player 
(
echo Call Shortcut("%MyFile%","%ShorcutName%"^) 
echo ^'**********************************************************************************************^) 
echo Sub Shortcut(CheminApplication,Nom^) 
echo Dim objShell,DesktopPath,objShortCut,MyTab 
echo Set objShell = CreateObject("WScript.Shell"^) 
echo MyTab = Split(CheminApplication,"\"^) 
echo If Nom = "" Then 
echo Nom = MyTab(UBound(MyTab^)^) 
echo End if 
echo DesktopPath = objShell.SpecialFolders("Desktop"^) 
echo Set objShortCut = objShell.CreateShortcut(DesktopPath ^& "\" ^& Nom ^& ".lnk"^) 
echo objShortCut.TargetPath = Dblquote(CheminApplication^) 
echo ObjShortCut.IconLocation = "Winver.exe,0" 
echo objShortCut.Save 
echo End Sub 
echo ^'********************************************************************************************** 
echo ^'Fonction pour ajouter les doubles quotes dans une variable 
echo Function DblQuote(Str^) 
echo DblQuote = Chr(34^) ^& Str ^& Chr(34^) 
echo End Function 
echo ^'********************************************************************************************** 
) > %temp%\Shortcutme.vbs 
Start /Wait %temp%\Shortcutme.vbs 
Del %temp%\Shortcutme.vbs 
::**************************************************************************************************** 
Title DJ Batch Music Player by Hackoo 2015 
:menuLOOP 
Color 0A & Mode con cols=78 lines=25 
echo(
echo  =============================================================== 
echo  "/ |/|     /|       "; 
echo  "$$ | $$ | ______ _______ $$ | __ ______ ______ "; 
echo  "$$ |__$$ |/ \/  |$$ |/|/ \/ \ "; 
echo  "$$ $$ | $$$$$$ |/$$$$$$$/ $$ |_/$$/ /$$$$$$ |/$$$$$$ |"; 
echo  "$$$$$$$$ |/ $$ |$$ |  $$ $$< $$ | $$ |$$ | $$ |"; 
echo  "$$ | $$ |/$$$$$$$ |$$ \_____ $$$$$$ \ $$ \__$$ |$$ \__$$ |"; 
echo  "$$ | $$ |$$ $$ |$$  |$$ | $$ |$$ $$/ $$ $$/ "; 
echo  "$$/ $$/ $$$$$$$/ $$$$$$$/ $$/ $$/ $$$$$$/ $$$$$$/ "; 
echo  "               "; 
echo  "               "; 
echo(  =============================Menu============================== 
echo(
for /f "tokens=2* delims=_ " %%A in ('"findstr /b /c:":menu_" "%~f0""') do echo       %%A %%B 
echo(
echo(  =============================================================== 
set choice= 
echo(& set /p choice=Make a choice or hit ENTER to quit: || GOTO :EOF 
echo(& call :menu_[%choice%] 
GOTO:menuLOOP 
::******************************************************************************************** 
:menu_[1] Play DJ Buzz Radio 
cls & color 0A 
Call:SkipLine 10 
Call:Tab 3 
echo %x% Please Wait for a while .. Launching DJ Buzz Radio ... 
Taskkill /IM "wscript.exe" /F >nul 2>&1 
Set vbsfile=%temp%\DJBuzzRadio.vbs 
Set URL=http://www.chocradios.ch/djbuzzradio_windows.mp3.asx 
Call:Play %URL% %vbsfile% 
Start %vbsfile% 
TimeOut /T 1 /NoBreak>nul 
GOTO:menuLOOP 
::******************************************************************************************** 
:menu_[2] Play David Guetta Mix 
cls & color 0A 
Call:SkipLine 10 
Call:Tab 3 
echo %x% Please Wait for a while .. Launching David Guetta Mix ... 
Taskkill /IM "wscript.exe" /F >nul 2>&1 
Set vbsfile=%temp%\David_Guetta_Miami.vbs 
Set URL=http://hackoo.alwaysdata.net/David_Guetta_Miami_2014.mp3 
Call:Play %URL% %vbsfile% 
Start %vbsfile% 
TimeOut /T 1 /NoBreak>nul 
GOTO:menuLOOP 
::******************************************************************************************** 
:menu_[3] Play Ibiza Mix 
cls & color 0A 
Call:SkipLine 10 
Call:Tab 3 
echo %x% Please Wait for a while .. Launching Ibiza Mix ... 
Taskkill /IM "wscript.exe" /F >nul 2>&1 
Set vbsfile=%temp%\IbizaMix.vbs 
Set URL=http://hackoo.alwaysdata.net/IbizaMix.mp3 
Call:Play %URL% %vbsfile% 
Start %vbsfile% 
TimeOut /T 1 /NoBreak>nul 
GOTO:menuLOOP 
::******************************************************************************************** 
:menu_[4] Play Avicii Mega Mix 
cls & color 0A 
Call:SkipLine 10 
Call:Tab 3 
echo %x% Please Wait for a while .. Launching Avicii Megamix ... 
Taskkill /IM "wscript.exe" /F >nul 2>&1 
Set vbsfile=%temp%\IbizaMix.vbs 
Set URL="http://hackoo.alwaysdata.net/Best of Avicii Megamix 2014.mp3" 
Call:Play %URL% %vbsfile% 
Start %vbsfile% 
TimeOut /T 1 /NoBreak>nul 
GOTO:menuLOOP 
::******************************************************************************************** 
:menu_[5] Play Mega Mix 90 
cls & color 0A 
Call:SkipLine 10 
Call:Tab 3 
echo %x% Please Wait for a while .. Launching Mega Mix 90 ... 
Taskkill /IM "wscript.exe" /F >nul 2>&1 
Set vbsfile=%temp%\IbizaMix.vbs 
Set URL="http://hackoo.alwaysdata.net/Megamix 90.mp3" 
Call:Play %URL% %vbsfile% 
Start %vbsfile% 
TimeOut /T 1 /NoBreak>nul 
GOTO:menuLOOP 
::******************************************************************************************** 
:menu_[6] Stop the music 
cls & color 0C 
Call:SkipLine 10 
Call:Tab 3 
echo %x% Please Wait for a while .. Stopping the music ... 
Taskkill /IM "wscript.exe" /F >nul 2>&1 
TimeOut /T 1 /NoBreak>nul 
GOTO:menuLOOP 
::******************************************************************************************** 
:Play 
(
echo Play "%~1" 
echo Sub Play(URL^) 
echo Dim Sound 
echo Set Sound = CreateObject("WMPlayer.OCX"^) 
echo Sound.URL = URL 
echo Sound.settings.volume = 100 
echo Sound.Controls.play 
echo do while Sound.currentmedia.duration = 0 
echo  wscript.sleep 100 
echo loop 
echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000 
echo End Sub 
)>%~2 
::********************************************************************************************* 
:Tab 
set "x=" 
For /L %%I In (1,1,%1) Do Set "x=!x! " 
REM         ^-- this is a TAB 
goto :eof 
::********************************************************************************************* 
:SkipLine 
    For /L %%I In (1,1,%1) Do Echo(
    Goto:Eof 
:EOF 
EXIT 
::*********************************************************************************************