ملف مفتوح بعنوان pass

local sURL = Dialog.Input("إضافة رابط", "URL أدخل عنوان :", "http://chicago.discovertrance.com:9214/", MB_ICONNONE);
if ( sURL ~= "" and sURL ~= "CANCEL" ) then
PlayBassURL(_SourceFolder.."\\bass.dll", sURL);
end

PlayBassURL = function (nDllFile, nURL)
DLL.CallFunction("kernel32.dll", "LoadLibraryA", "\""..nDllFile.."\"", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
DLL.CallFunction(nDllFile, "BASS_Init", "-1,44100,0,0,0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
DLL.CallFunction(nDllFile, "BASS_Start", "", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
DLL.CallFunction(nDllFile, "BASS_PluginLoad", "bass_aac.dll", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
local nStream = DLL.CallFunction(nDllFile, "BASS_StreamCreateURL", "\""..nURL.."\", 0, 0, 0, 0,", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
DLL.CallFunction(nDllFile, "BASS_ChannelPlay", nStream..",1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
end