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