网络音乐播放器

网络音乐播放器

注意：系统中必须要装了Mplayer，否则不能播放。支持 http:// 网络歌曲地址播放。最简单的播放器了。音乐地址请在源码中修改

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_Res_Comment=上海徐高科技
#AutoIt3Wrapper_Res_Description=AU3编写的简单在线音乐播放器
#AutoIt3Wrapper_Res_Fileversion=V1.0
#AutoIt3Wrapper_Res_LegalCopyright=上海徐高科技
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <GuiConstants.au3>

#region Object
$oMyError = ObjEvent("AutoIt.Error","Quit")
$oMediaplayer = ObjCreate("WMPlayer.OCX.7")    

If Not IsObj($oMediaplayer) Then Exit

$oMediaplayer.Enabled = true
$oMediaplayer.WindowlessVideo= true
$oMediaPlayer.UImode="invisible"
$oMediaPlayer.URL="http://vxp.xugaocn.com/music/爱大了受伤了.mp3"
$oMediaPlayControl=$oMediaPlayer.Controls
$oMediaPlaySettings=$oMediaPlayer.Settings


#endregion

#region GUI
GuiCreate("音乐播放器", 215, 100,(@DesktopWidth-215)/2, (@DesktopHeight-100)/2, -1)

GuiCtrlCreateLabel("音乐播放器", 10, 10, 200, 20)
$Volume = GuiCtrlCreateSlider(20, 30, 180, 20)
GuiCtrlCreateLabel("音量", 85, 50, 40, 20)
GUICtrlSetData($Volume, 100)
$Play = GuiCtrlCreateButton("播放", 30, 60, 50, 30)
$Stop = GuiCtrlCreateButton("停止", 120, 60, 50, 30)

GuiSetState()
$VolLevel = 100
HotKeySet("{F8}", "Hide")
HotKeySet("{F9}", "Show")
While 1
   $msg = GuiGetMsg()
   Select
   Case $msg = $GUI_EVENT_CLOSE
       ExitLoop
   Case $msg = $Play
       $oMediaPlayControl.Play
   Case $msg = $Stop
       $oMediaPlayControl.Stop
   Case Else
       If GUICtrlread($Volume) <> $VolLevel Then
           $oMediaPlaySettings.Volume = GUICtrlRead($Volume)
           $VolLevel = GUICtrlRead($Volume)
       EndIf
   EndSelect
WEnd
Exit
#endregion

#region functions
Func Quit()
   $oMediaPlayControl.Stop
   Exit
EndFunc

Func Hide()
   GUISetState(@SW_HIDE)
EndFunc

Func Show()
   GUISetState(@SW_SHOW)
EndFunc
#endregion

转自 上海网管联盟