[Problem]Muzyka w skrypcie

[xman19999]

Witam mam problem z jednym skryptem, kiedy odpala mi się wpisany już wcześniej skrypt KODA a zaraz po nim moja własnoręcznie dodana piosenka to cały skrypt zacina się a piosenka leci dalej...Chyba odcina się dopiero po ukończeniu nuty, prosiłbym o pomoc naprawienia tego

 

DO ZAMKNIĘCIA

[Zkumeku]

Może byś pokazał jak to masz zrobione, a nie wszyscy mają strzelać i Ci pomóc.

[hehe7]

Nie wiem jak jest z funkcją odtwarzania ale to działa tak że jeśli każesz mu "robić - odtwarzać" to on to robi, i zacznie robić coś innego dopiero jak skończy to wcześniejsze. Najlepiej pokaż kod, ewentualnie użyć AdlibRegister (nie używam tego więc nie pytaj) lub odpalić drugi skrypt który TYLKO włączy muzykę.

[xman19999]

Pokaże tylko ułamek żeby się za bardzo nie zdradzić

Dałem cały skrypt z muzyką do includa, ale nadal jest to samo :/

MsgBox(0, "Bunnyhop Bot", "Witaj w bocie by Rzadal :)")
MsgBox(0, "Piosenka", "Uwaga, do programu dodana jest nuta :D")
#include <Sound.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Bunnyhop BOT", 381, 202, 327, 253)
$Label1 = GUICtrlCreateLabel("Bot by Rzadal", 304, 176, 70, 17)
$Button1 = GUICtrlCreateButton("Wyjscie", 296, 16, 73, 137)
$Pic1 = GUICtrlCreatePic(@DesktopDir&"\lol.jpg", 381,202,327, 253)
$Label2 = GUICtrlCreateLabel("Bunnyhop BOT", 12, 16, 277, 52)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("F5 uruchomienie bota", 8, 80, 163, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("F6 wylaczenie programu", 8, 112, 184, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Informacje dodatkowe", 8, 144, 193, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ##

Local $aSound = _SoundOpen(@DesktopDir & "\Downloads\Rudebrat - Lunar VIP.mp3")
If @error = 2 Then
    MsgBox(0, "Error", "The file does not exist")
    Exit
ElseIf @extended <> 0 Then
    Local $iExtended = @extended ; Assign because @extended will be set after DllCall.
    Local $tText = DllStructCreate("char[128]")
    DllCall("winmm.dll", "short", "mciGetErrorStringA", "str", $iExtended, "ptr", DllStructGetPtr($tText), "int", 128)
    MsgBox(0, "Error", "The open failed." & @CRLF & "Error Number: " & $iExtended & @CRLF & "Error Description: " & DllStructGetData($tText, 1) & @CRLF & "Please Note: The sound may still play correctly.")

EndIf

_SoundPlay($aSound, 1)

_SoundClose($aSound)

[Amfetaminek]

_soundplay($aSound,0)

i to tyle co musisz zmienić

 

poza tym ctrl+c ctrl+v
wystarczy

#include <Sound.au3>

Local $aSound = (@WindowsDir & "\media\tada.wav")
_SoundPlay($aSound, 0)


while 1
	wend