How to create a video player without knowing any code with Autoplay Media Studio.
Write this code for MENUBAR
if e_ID1 then
elseif e_ID2 then
video = Dialog.FileBrowse(true, “Load Videos”, “”, “”, “”, “”, true, true);
Video.Load(”Video1″, video[video_count], true, false);
elseif e_ID3 then
Audio.Load(CHANNEL_EFFECTS, “AutoPlay\\Audio\\Cling.ogg”, true, false);
Window.Minimize(Application.GetWndHandle());
elseif e_ID4 then
Audio.Load(CHANNEL_EFFECTS, “AutoPlay\\Audio\\Cling.ogg”, true, false);
Application.Exit();
elseif e_ID9 then Audio.Load(CHANNEL_EFFECTS, “AutoPlay\\Audio\\Cling.ogg”, true, false);
if (Video.GetFilename(”Video1″) “”) then
Dialog.Message(”No File Loaded”, “Please click on the Load button to choose a video file”);
else
Video.Seek(”Video1″, SEEK_BACKWARD, 5);
end
elseif e_ID10 then
Audio.Load(CHANNEL_EFFECTS, “AutoPlay\\Audio\\Cling.ogg”, true, false);
if (Video.GetFilename(”Video1″) “”) then
Dialog.Message(”No File Loaded”, “Please click on the Load button to choose a video file”);
else
Video.Seek(”Video1″, SEEK_FORWARD, 5)
end
elseif e_ID8 then
Audio.Load(CHANNEL_EFFECTS, “AutoPlay\\Audio\\Cling.ogg”, true, false);
if (Video.GetFilename(”Video1″) “”) then
Dialog.Message(”No File Loaded”, “Please click on the Load button to choose a video file”);
else
Video.Stop(”Video1″);
end
elseif e_ID7 then
Audio.Load(CHANNEL_EFFECTS, “AutoPlay\\Audio\\Cling.ogg”, true, false);
if (Video.GetFilename(”Video1″) “”) then
Dialog.Message(”No File Loaded”, “Please click on the Load button to choose a video file”);
else
Video.Pause(”Video1″);
end
elseif e_ID6 then
Audio.Load(CHANNEL_EFFECTS, “AutoPlay\\Audio\\Cling.ogg”, true, false);
if (Video.GetFilename(”Video1″) “”) then
Dialog.Message(”No File Loaded”, “Please click on the Load button to choose a video file”);
else
Video.Play(”Video1″);
end
elseif e_ID13 then
Audio.Load(CHANNEL_EFFECTS, “AutoPlay\\Audio\\Cling.ogg”, true, false);
File.Open(”AutoPlay\\Docs\\manual.chm”, “”, SW_SHOWNORMAL);
elseif e_ID14 then
Lines = “This Video Player was created with AutoPlay Media.\nJust for Fun.\nBy: R Karim.”;
Dialog.Message(”Karim’s Media Player.”, Lines);
elseif e_ID11 then
Audio.Load(CHANNEL_EFFECTS, “AutoPlay\\Audio\\Cling.ogg”, true, false);
if (Video.GetFilename(”Video1″) “”) then
Dialog.Message(”No File Loaded”, “Please click on the Load button to choose a video file”);
else
Video.SetFullScreen(”Video1″, true);
end
end
Duration : 0:10:31
(more…)
Technorati Tags: Autoplay, Media, movie, Player, video