哪位大侠给个MP3播放器的代码

caodongchun

不要皮肤
不要外链
本地能运行的，我想插入html文件中

3mile

#include <GUIConstants.au3>
#include <Sound.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


#NoTrayIcon



#Region ### START Koda GUI section ### 
Global $Form1 = GUICreate("muh's mp3 player", 366, 315, 372, 229)
GUISetBkColor(0xA6CAF0)
$Button1 = GUICtrlCreateButton("Play", 192, 24, 57, 33, 0)
$Button2 = GUICtrlCreateButton("Stop", 296, 24, 57, 33, 0)
$Button3 = GUICtrlCreateButton("Player repeat mode", 224, 80, 89, 41, $BS_MULTILINE)
$Slider1 = GUICtrlCreateSlider(184, 168, 169, 25)
GUICtrlsetBkColor(-1, 0xA6CAF0)
GUICtrlSetData(-1, 100)
$Label1 = GUICtrlCreateLabel("Volume", 240, 144, 58, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\pic.jpg", 8, 8, 169, 241, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label2 = GUICtrlCreateLabel("File selected: ", 8, 264, 387, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$MenuItem3 = GUICtrlCreateMenu("&File")
$MenuItem4 = GUICtrlCreateMenuItem("Load file", $MenuItem3)
$MenuItem2 = GUICtrlCreateMenu("&Settings")
$MenuItem5 = GUICtrlCreateMenuItem("Exit", $MenuItem2)
$MenuItem1 = GUICtrlCreateMenu("&Help")
$MenuItem6 = GUICtrlCreateMenuItem("About us", $MenuItem1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



Global $snd=""
Global $rpd=True; true - repeat song, false - dont repeat
Global $poss[21]
Global $len="a"
SoundSetWaveVolume(100)
Global $fp="a"
While 1
    $nMsg = GUIGetMsg()
    $pos=_SoundPos($snd, 2) ;_SoundLength didn't work for me so here I check if the song has finished to play it again
    If $pos>0 And $pos==$len Then
      _SoundStop($snd)
      If $rpd==True Then
          _SoundPlay($snd)
        EndIf
    EndIf
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            _SoundClose($snd)
            Exit
        Case $MenuItem4
            $fp=FileOpenDialog("Music file", @ScriptDir, "MP3 Files (*.mp3)")
            $snd=_SoundOpen($fp)
            GUICtrlSetData($Label2, "File selected: " & $fp)
        Case $Button1
            _SoundPlay($snd)
            $len=_SoundLength($snd, 2)
        Case $Button2
            _SoundStop($snd)
        Case $Slider1
            $vm=GUICtrlRead($Slider1)
            SoundSetWaveVolume($vm)
        Case $MenuItem5
            _SoundStop($snd)
            Exit
        Case $MenuItem6
            MsgBox(0, "About us", "This is my first MP3 player yeeeeeey")
        Case $Button3
            $rpd=Not $rpd
        
    EndSwitch
WEnd

261869247

3mile 发表于 2010-9-6 09:38

    弱弱的问一下 你们发的代码怎么有彩色的 我发的就黑白的 OUTING.。。

123

3mile

回复 3# 261869247

高亮显示，代码较长时输入字母，如：“1”

261869247

回复  261869247
3mile 发表于 2010-9-6 10:42

    我刚看了 我们会员那里没有那个A2的选项！

Soul

#include <winapi.au3>
;测试一下...

的确会员以下没有"A2"，但可以直接输入

来高亮显示。

caodongchun

thanks 我需要的找到了：
<object height="64" width="260" classid="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6" align="center" border="0"><param name="AutoStart" value="0"><param name="Balance" value="0"><param name="enabled" value="-1"><param name="EnableContextMenu" value="-1"><param name="url" value="{1}"><param name="PlayCount" value="1"><param name="rate" value="1"><param name="currentPosition" value="0"><param name="currentMarker" value="0"><param name="defaultFrame" value=""><param name="invokeURLs" value="0"><param name="baseURL" value=""><param name="stretchToFit" value="0"><param name="volume" value="100"><param name="mute" value="0"><param name="uiMode" value="mini"><param name="windowlessVideo" value="-1"><param name="fullScreen" value="0"><param name="enableErrorDialogs" value="-1"><param name="SAMIStyle" value><param name="SAMILang" value><param name="SAMIFilename" value><param name="captioningID" value></object>