MP3播放器源码

MP3播放器源码

#Region

#AutoIt3Wrapper_icon=HoneyTao.ico

#AutoIt3Wrapper_Compression=4

#AutoIt3Wrapper_Res_Description=WinXP & Win7

#AutoIt3Wrapper_Res_LegalCopyright=K丶Q 製作。

#AutoIt3Wrapper_Res_Field=产品版本|1.0.0.0

#AutoIt3Wrapper_Res_Field=产品名称|PeachPlayer

#AutoIt3Wrapper_Res_Field=公司|K丶Q

#AutoIt3Wrapper_Res_Field=内部名称|cALl Me ＫＱ。

#AutoIt3Wrapper_Res_Fileversion=1.0.0.0

#AutoIt3Wrapper_Res_Field=源文件名|PeachPlayer.exe #EndRegion

#include

#include

#Include

#include

#include

#include

#include

#include "Bass.au3"

#include "GUIEnhance.au3"

Local $ProcessList = ProcessList(@ScriptName)

If $ProcessList[0][0] > 1 Then

MsgBox(0+16,"错误","请勿多次运行本程序")

Exit

EndIf

Global $Happy1 = @TempDir & "\Happy1.jpg",$Happy2 = @TempDir &

"\Happy2.jpg",$Peach1 = @TempDir & "\Peach1.jpg",$Peach2 = @TempDir & "\Peach2.jpg",$BassDll = @ScriptDir & "\bass.dll",$Icon = @TempDir &

"\HoneyTao.dll",$SkinDll = @ScriptDir & "\SkinCrafterDll.dll",$Skin = @ScriptDir & "\Style.skf",$Dll,$MusicHandle,$Pic

FileInstall("Happy1.jpg",$Happy1,1)

FileInstall("Happy2.jpg",$Happy2,1)

FileInstall("Peach1.jpg",$Peach1,1)

FileInstall("Peach2.jpg",$Peach2,1)

FileInstall("HoneyTao.dll",$Icon,1)

_BASS_Startup("bass.dll")

_BASS_Init(0, -1, 44100, 0, "")

If @error Then Exit

$Gui = GUICreate("", 500, 395, -1, -1)

_SkinGUI($SkinDll,$Skin,$Gui)

$Pic = GUICtrlCreatePic("", 0, 0, 500, 331)

If @MON & @MDAY = "1201" Then

GUICtrlSetImage($Pic,$Happy1)

Else

GUICtrlSetImage($Pic,$Peach1)

EndIf

$Combo = GUICtrlCreateCombo("", 10, 340, 276, 25)

_GUICtrlComboBox_SetDroppedWidth($Combo, 495)

File(@ScriptDir)

$Progress = GUICtrlCreateProgress(10, 366, 276, 20)

$Stop = GUICtrlCreateIcon($Icon, 2, 295, 340, 48, 48)

GUICtrlSetTip(-1,"停止")

GUICtrlSetCursor (-1, 0)

$First = GUICtrlCreateIcon($Icon, 3, 345, 340, 48, 48)

GUICtrlSetTip(-1,"上一张图片")

GUICtrlSetCursor (-1, 0)

$Play = GUICtrlCreateIcon($Icon, 1, 395, 340, 48, 48)

GUICtrlSetTip(-1,"播放")

GUICtrlSetCursor (-1, 0)

$Second = GUICtrlCreateIcon($Icon, 4, 445, 340, 48, 48)

GUICtrlSetTip(-1,"下一张图片")

GUICtrlSetCursor (-1, 0)

_GUIEnhanceAnimateWin($Gui,1000,$GUI_EN_ANI_FADEIN) GUISetState(@SW_SHOW)

If @MON & @MDAY = "1201" Then

_GUIEnhanceAnimateTitle($Gui,"桃桃,祝妳生日快乐",$GUI_EN_TITLE_DROP) Else

_GUIEnhanceAnimateTitle($Gui,"PeachPlayer",$GUI_EN_TITLE_DROP) EndIf

While 1

$Msg = GUIGetMsg()

Switch $Msg

Case $GUI_EVENT_CLOSE

Quit()

Case $Combo

PlayMusic()

Case $Stop

StopMusic()

Case $First

If @MON & @MDAY = "1201" Then

GUICtrlSetImage($Pic,$Happy2)

Else

GUICtrlSetImage($Pic,$Peach2)

EndIf

Case $Play

PlayMusic()

Case $Second

If @MON & @MDAY = "1201" Then

GUICtrlSetImage($Pic,$Happy1)

Else

GUICtrlSetImage($Pic,$Peach1)

EndIf

EndSwitch

WEnd

Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle)

$Dll = DllOpen($SkincrafterDll)

DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "SKINCRAFTER", "wstr", "https://www.360docs.net/doc/ef14737959.html,", "wstr", "support@https://www.360docs.net/doc/ef14737959.html,", "wstr", "DEMOSKINCRAFTERLICENCE")

DllCall($Dll, "int:cdecl", "InitDecoration", "int", 1)

DllCall($Dll, "int:cdecl", "LoadSkinFromFile", "wstr", $SkincrafterSkin) DllCall($Dll, "int:cdecl", "DecorateAs", "int", $Handle, "int", 25)

DllCall($Dll, "int:cdecl", "ApplySkin")

EndFunc

Func File($SearchDir)

$FFArchiveFile = FileFindFirstFile($SearchDir & "\*.*")

If $FFArchiveFile = -1 Then Return -1

While 1

$FNArchiveFile = FileFindNextFile($FFArchiveFile)

If @error = 1 Then

FileClose($FFArchiveFile)

Return 0

ElseIf $FNArchiveFile = "." Or $FNArchiveFile = ".." Then

ContinueLoop

ElseIf StringInStr(FileGetAttrib($SearchDir & "\" & $FNArchiveFile),"D") Then

File($SearchDir & "\" & $FNArchiveFile)

EndIf

If StringRight($FNArchiveFile,4) = ".mp3" Then

If $FNArchiveFile = "Happy Birthday To You.mp3" Then

GUICtrlSetData($Combo,$SearchDir & "\" & $FNArchiveFile,$SearchDir & "\" & $FNArchiveFile)

Else

GUICtrlSetData($Combo,$SearchDir & "\" & $FNArchiveFile)

EndIf

EndIf

WEnd

EndFunc ;==>File

Func ProgressStatus()

Local $Pos = _BASS_ChannelGetPosition($MusicHandle,$BASS_POS_BYTE),$Length = _BASS_ChannelGetLength($MusicHandle,$BASS_POS_BYTE)

If ($Pos >= $Length And $Length > 0) Or _BASS_ChannelIsActive($MusicHandle) = 0 Then

_BASS_ChannelStop($MusicHandle)

GUICtrlSetData($Progress,0)

GUICtrlSetImage($Play,$Icon,1)

GUICtrlSetTip($Play,"播放")

AdlibUnRegister("ProgressStatus")

Else

GUICtrlSetData($Progress,Int($Pos / $Length * 100))

EndIf

EndFunc ;==>ProgressStatus

Func PlayMusic()

Local $MusicFile = GUICtrlRead($Combo)

If _BASS_ChannelIsActive($MusicHandle) = 0 Then ;当没有播放时则播放音乐

$MusicHandle = _BASS_StreamCreateFile(False,$MusicFile,0,0,0)

_BASS_ChannelPlay($MusicHandle,1)

GUICtrlSetImage($Play,$Icon,5)

GUICtrlSetTip($Play,"暂停")

ElseIf _BASS_ChannelIsActive($MusicHandle) = 1 Then ;当返回状态为1,即正在播放时

$InFo = _BASS_ChannelGetInfo($MusicHandle)

If $InFo[7] <> $MusicFile Then ;正在播放的音乐名与所选的文件不相同的话,即当前播放新文件

If _BASS_ChannelStop($MusicHandle) Then

$MusicHandle = _BASS_StreamCreateFile(False,$MusicFile,0,0,0)

_BASS_ChannelPlay($MusicHandle,1)

GUICtrlSetImage($Play,$Icon,5)

GUICtrlSetTip($Play,"暂停")

EndIf

Else ;此时判断为暂停

_BASS_ChannelPause($MusicHandle)

GUICtrlSetImage($Play,$Icon,1)

GUICtrlSetTip($Play,"播放")

EndIf

ElseIf _BASS_ChannelIsActive($MusicHandle) = 3 Then ;当返回状态为3,即暂停播放时

_BASS_ChannelPlay($MusicHandle,0)

GUICtrlSetImage($Play,$Icon,5)

GUICtrlSetTip($Play,"暂停")

EndIf

AdlibRegister("ProgressStatus", 100)

ProgressStatus()

EndFunc ;==>PlayMusic

Func StopMusic()

_BASS_ChannelStop($MusicHandle) GUICtrlSetData($Progress,0)

GUICtrlSetImage($Play,$Icon,1)

GUICtrlSetTip($Play,"播放")

EndFunc ;==>StopMusic

Func Quit()

GUISetState(@SW_HIDE)

_Bass_Free()

If FileExists($Happy1) = 1 Then FileDelete($Happy1) If FileExists($Happy2) = 1 Then FileDelete($Happy2) If FileExists($Peach1) = 1 Then FileDelete($Peach1) If FileExists($Peach2) = 1 Then FileDelete($Peach2) If FileExists($Icon) = 1 Then FileDelete($Icon) DllCall($Dll, "int:cdecl", "DeInitDecoration")

DllCall($Dll, "int:cdecl", "RemoveSkin")

DllClose($Dll)

Exit

EndFunc ;==>Quit