網(wǎng)絡(luò)音樂播放器

注意：系統(tǒng)中必須要裝了Mplayer，否則不能播放。支持 http:// 網(wǎng)絡(luò)歌曲地址播放。最簡單的播放器了。音樂地址請在源碼中修改

#Region ;**** 參數(shù)創(chuàng)建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_Res_Comment=上海徐高科技
#AutoIt3Wrapper_Res_Description=AU3編寫的簡單在線音樂播放器
#AutoIt3Wrapper_Res_Fileversion=V1.0
#AutoIt3Wrapper_Res_LegalCopyright=上海徐高科技
#EndRegion ;**** 參數(shù)創(chuàng)建于 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

轉(zhuǎn)自 上海網(wǎng)管聯(lián)盟