Como crear tu propio Reproductor de Música/Video

Hola amig@s de Taringa!

lo voy a explicar primero como hacer una máscara para poder aplicarla en el reproductor
en este caso vamos a tener que utilizar el Photoshop(cualquier versión) abrimos un nuevo documento en mi caso voy a utilizar 822px X 490px y solamente va a contener 2 colores blanco y negro....
y le daremos la forma que querramos hacer como en la imágen, El formato para guardar pueder ser PNG, BMP, JPG, GIF(sin efecto).

ahora una vez guardado vamos a crear la capa/base del reproductor de la misma forma que el anterior pero solamente utilizando la parte blanca y no el negro porque en el programa que utilizaremos el negro va a ser invisible, por lo tanto el blanco visible. asi como se muestra en la imágen.

ya terminado con las imágenes. Vamos a crear el reproductor y el programa que utilizaremos va a ser AutoPlay Media 7.
Abrimos el programa y nos va a aparecer así


ahora vamos a darle el tamaño que hemos elegido en las imágenes

ahora le vamos a aplicar la máscara

si le quieren poner un ICONO el cual les recomiendo hagan esto

Si le quieren poner quien lo hizo, su página, el año, o algo tienen que ir a la pestaña "Versión" y tildan la única opción que hay

y le dan aceptar.
y nos quedaría algo así

ahora damos doble clic en la parte blanca y nos saldrá este cuadro para aplicar la 2°máscara.

ahora agregaremos plugin(reproductor), listbox(lista para seleccionar)
-->Menú object y seleccionamos estas 2 opciones

una vez que hayan puesto el plugin del Reproductor directamente pongan Aceptar y lo acomodan al igual que la lista.
ahora vamos a colocar 4 botones el programa tiene botones ya predeterminado o pueden buscar y descargar.
1°) Botón Cerrar
2°) Botón Minimizar
3°) Botón Cargar Música...
4°) Botón Cargar Videos..

y seleccionamos las que mas nos gusten tendríamos este resultado

ahora lo que tenemos que hacer es ponerle los códigos para que esto pueda funcionar
El primer código: seleccionames el "plugin" del reproductor y damos "CTRL + ENTER" para entrar en las propiedades y nos saldrá este cuadro

y escribiremos esto
nCount ="";
nNext ="";
sFile ="";
nCount = ListBox.GetCount("ListBox1");
tSelected = ListBox.GetSelected("ListBox1");
if tSelected then
nSelected = tSelected[1];
nNext = nSelected;
    if nNext < nCount then
    nNext = nNext+1;
    ListBox.SelectItem("ListBox1", nNext);
    sFile = ListBox.GetItemData("ListBox1", nNext);
    MediaPlayer.Load("Plugin1", sFile);
    MediaPlayer.Play("Plugin1");
    elseif nNext == nCount then    
    ListBox.SelectItem("ListBox1", 1);
    sFile = ListBox.GetItemData("ListBox1", 1);
    MediaPlayer.Load("Plugin1r", sFile);
    MediaPlayer.Play("Plugin1");    
    end
end
y le damos Aceptar.
El segundo código: vamos a la lista el mismo paso anterior

y escribiremos esto
tSelected = ListBox.GetSelected("ListBox1");
if tSelected then
    sFile = ListBox.GetItemData("ListBox1", tSelected[1]);
    MediaPlayer.Load("Plugin1",sFile);
    MediaPlayer.Play("Plugin1");
end
ahora para los botones lo mismo

Este para el botón de Cargar Música..
-- Pick a default folder to start the browsing     
myfolder = Shell.GetFolder(SHF_MYDOCUMENTS);  
LB = "ListBox1";
--Disable listbox Updating  
ListBox.SetUpdate(LB, false);
-- Show the file browse dialog 
folder = Dialog.FolderBrowse("Open Folder", myfolder);  
if folder ~= "CANCEL" then
        ListBox.SetEnabled(LB, true);
    ListBox.DeleteItem(LB, -1);
    -- tbSearchFiles = {"*.doc", "*.ppt", "*.odt", "*.exe"}; set your own file types here
    tbSearchFiles = {"*.mp3","*.wav","*.wma","*.mid"};
    for index,type in tbSearchFiles do
       file = File.Find(folder, type, false, false, nil);
           if file ~= nil and file ~="CANCEL" then
              --do the following for each file:
              for j,file_path in file do
                     --add the item to the listbox, with the name visible and path as data
                     tbFilePath = String.SplitPath(file_path);
                     sFile = tbFilePath.Filename..tbFilePath.Extension;
                     ListBox.AddItem(LB, sFile, file_path);                                      
              end
           end
    end
end
--Allow the listbox to display the updated content
ListBox.SetUpdate(LB, true); 
Lo mismo para el botón Cargar Videos...
-- Pick a default folder to start the browsing     
myfolder = Shell.GetFolder(SHF_MYDOCUMENTS);  
LB = "ListBox1";
--Disable listbox Updating  
ListBox.SetUpdate(LB, false);
-- Show the file browse dialog 
folder = Dialog.FolderBrowse("Open Folder", myfolder);
if folder ~= "CANCEL" then
    ListBox.SetEnabled(LB, true);
    ListBox.DeleteItem(LB, -1);
    -- tbSearchFiles = {"*.doc", "*.ppt", "*.odt", "*.exe"}; set your own file types here
    tbSearchFiles = {"*.dat","*.avi","*.mpg","*.wmv","*.asf","*.mp4"};
    for index,type in tbSearchFiles do
       file = File.Find(folder, type, false, false, nil);  
           if file ~= nil and file ~="CANCEL" then
              --do the following for each file:
              for j,file_path in file do
                     --add the item to the listbox, with the name visible and path as data
                     tbFilePath = String.SplitPath(file_path);
                     sFile = tbFilePath.Filename..tbFilePath.Extension;
                     ListBox.AddItem(LB, sFile, file_path);                                      
              end
           end
    end
end
--Allow the listbox to display the updated content
ListBox.SetUpdate(LB, true);
en el boton para cerrar hacemos esto:

en boton para Minimizar hacemos esto:

y por último haremos esto:
Pueden precionar "F7"-->es igual al CD Dorado de la imagen