zaini Posted June 3, 2008 Posted June 3, 2008 1. I try to do what limiter player do...but i have an error when i want to play next music. 2. perhaps L|M|TER will forgive me because i use their coding... 3. Please help me... expandcollapse popup#NoTrayIcon #Region;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=..\software box\logo.ico #AutoIt3Wrapper_outfile=MP3 Mini Player.exe #AutoIt3Wrapper_Res_Comment=Mini tray mp3 player... #AutoIt3Wrapper_Res_Description=Play all your music in mini icon. #AutoIt3Wrapper_Res_Fileversion=1.6.5.9 #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y #AutoIt3Wrapper_Res_LegalCopyright=@z.a.z.a collection software #EndRegion;**** Directives created by AutoIt3Wrapper_GUI **** #include <GUIConstants.au3> #include "ModernMenuRaw.au3" #include <WinAPI.au3> #include "png.au3" #include "Recursive.au3" #include <Misc.au3> #include <ExtProp.au3> #include <Constants.au3> #include <File.au3> #include <GuiStatusBar.au3> #include "Audio.au3" #include <ie.au3> #include "ani.au3" AutoItSetOption("TrayMenuMode", 1) TraySetClick(8) _GDIPlus_Startup() $pngSrc = @ScriptDir & "\icon\zaza banner1.png" $hImage = _GDIPlus_ImageLoadFromFile($pngSrc) $width = _GDIPlus_ImageGetWidth($hImage) $height = _GDIPlus_ImageGetHeight($hImage) $GUI = GUICreate("Loading...", $width, $height, -1, -1, $WS_POPUP, $WS_EX_LAYERED) SetBitMap($GUI, $hImage, 255) GUISetState() WinSetOnTop($GUI, "", 1) $controlGui = GUICreate("ControlGUI", $width, $height, 0, 0, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $GUI) GUICtrlCreatePic(@ScriptDir & "\grey.gif", 0, 0, $width, $height) GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlCreateLabel("Loading....", 250, 95) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetColor(-1, 0xFFFFFF) GUISetState() Sleep(1500) ;setting $inipath = @ScriptDir & "\Mini\mini.ini" If FileExists($inipath) = 0 Then DirCreate(@ScriptDir & "\Mini\") IniWriteSection($inipath, "Auto-Update", "Enabled=1") IniWriteSection($inipath, "Minimize To Tray", "Enabled=1") IniWriteSection($inipath, "Playlist-Hide", "Enabled=1") IniWriteSection($inipath, "Random", "Enabled=1") IniWriteSection($inipath, "Playlist-Save", "Enabled=1") IniWriteSection($inipath, "Playlist-Open", "Enabled=1") IniWriteSection($inipath, "Language", "Lang=ENG") EndIf GUICtrlCreateLabel("Reading Data", 300, 95) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetColor(-1, 0xFFFFFF) GUISetState() Sleep(3000) GUIDelete($GUI) _GDIPlus_Shutdown() Sleep(500) $inipath = @ScriptDir & "\Mini\mini.ini" If _Singleton("Mini Player", 1) = 0 Then MsgBox(32, "Mini Player", "MP3 Mini Player is already running !" & @CRLF & "You cannot run multiple instances of MP3 Mini Player.") Exit EndIf ;tray icon $nTrayIcon1 = _TrayIconCreate("MP3 mini Player v.1.0.0 created by Z.A.Z.A", "shell32.dll", -138) _TrayIconSetClick(-1, 16) _TrayIconSetState(); Show the tray icon _TrayTip($nTrayIcon1, "Info", " You can also control MP3 Mini Player " & @CRLF & " with right click this icon ", 6, 1) $TrayCalc = _TrayCreateItem(-1, "Show Playlist") _TrayItemSetIcon(-1, "", 0) $MenuTools = _TrayCreateMenu(-1, "Tools") _TrayItemSetIcon(-1, "shell32.dll", -166) $About = _TrayCreateItem(-1, "About", $MenuTools) _TrayItemSetIcon(-1, "", 0) $lib = _TrayCreateMenu(-1, "Library", $MenuTools) _TrayItemSetIcon(-1, "shell32.dll", -129) $T = _TrayCreateItem(-1, "Not have any library", $lib) _TrayItemSetIcon(-1, "", 0) _TrayCreateItem(-1, "") _TrayItemSetIcon(-1, "", 0) $fldr = _TrayCreateItem(-1, "Add Folder's") _TrayItemSetIcon(-1, "icon\mini.icl", -7) $Opn = _TrayCreateItem(-1, "Add File's") _TrayItemSetIcon(-1, "icon\mini.icl", -6) $Ply = _TrayCreateItem(-1, "Play") _TrayItemSetIcon(-1, "icon\mini.icl", -1) $Stp = _TrayCreateItem(-1, "Stop") _TrayItemSetIcon(-1, "icon\mini.icl", -4) $Fwd = _TrayCreateItem(-1, "Next") _TrayItemSetIcon(-1, "icon\mini.icl", -3) $clr = _TrayCreateItem(-1, "Clear All") _TrayItemSetIcon(-1, "icon\mini.icl", -5) _TrayCreateItem(-1, "") _TrayItemSetIcon(-1, "", 0) $TrayExit = _TrayCreateItem(-1, "Exit") _TrayItemSetIcon(-1, "shell32.dll", -28) ;menu color _SetTrayBkColor(0x000000) _SetTrayIconBkColor(0x000000) _SetTraySelectBkColor(0xBBCC88) _SetTraySelectTextColor(0xFFFFFF) _SetTrayTextColor(0xFFFFFF) Global $WM_DROPFILES = 0x233 Global $gaDropFiles[1], $str = "" GUIRegisterMsg($WM_DROPFILES, "WM_DROPFILES_FUNC"); drag 'n drop function $GuiList = GUICreate(" Player Mini V.1.6.5", 316, 323, -1, -1, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE,$WS_EX_ACCEPTFILES)) GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY") GUISetFont(6, 400, 0, "MS Sans Serif") GUISetBkColor(0x9DB9EB) $playlist = GUICtrlCreateListView("Artist|Title|Album|Path", 8, 96, 297, 193, BitOR($LVS_REPORT,$LVS_SINGLESEL,$LVS_SHOWSELALWAYS,$LVS_SORTASCENDING,$LVS_AUTOARRANGE)) GUICtrlSendMsg(-1, 0x101E, 0, 80) GUICtrlSendMsg(-1, 0x101E, 1, 80) GUICtrlSendMsg(-1, 0x101E, 2, 80) GUICtrlSendMsg(-1, 0x101E, 3, 180) GUICtrlSetColor(-1, 0x000000) GUISetState(@SW_SHOW) $Pic1 = GUICtrlCreatePic(@ScriptDir & "\icon\logo.bmp", 24, 8, 259, 117, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS)) GUISetState(@SW_SHOW) HotKeySet("^a", "add") HotKeySet("^f", "AddFile") ;;;file menu start SetBlueMenuColors() $FileMenu = GUICtrlCreateMenu("&File") $OpenFolder = _GUICtrlCreateODMenuItem("&Open Folder" & @Tab & "Ctrl+A", $FileMenu) _GUICtrlODMenuItemSetIcon(-1, "icon\mini.icl", -7) $OpenFile = _GUICtrlCreateODMenuItem("Open File" & @Tab & "Ctrl+F", $FileMenu) _GUICtrlODMenuItemSetSelIcon(-1, "icon\mini.icl", -6) _GUICtrlCreateODMenuItem("", $FileMenu); Separator $ExitItem = _GUICtrlCreateODMenuItem("E&xit", $FileMenu, "shell32.dll", -28) ; Help-Menu $HelpMenu = GUICtrlCreateMenu("&?") $HelpItem = _GUICtrlCreateODMenuItem("Help Topics" & @Tab & "F1", $HelpMenu, "shell32.dll", -24) _GUICtrlCreateODMenuItem("", $HelpMenu); Separator $AboutItem = _GUICtrlCreateODMenuItem("About...", $HelpMenu) ; You can also the same things on context menus $GUIContextMenu = GUICtrlCreateContextMenu(-1) $ConAboutItem = _GUICtrlCreateODMenuItem("About...", $GUIContextMenu, "explorer.exe", -8) _GUICtrlCreateODMenuItem("", $GUIContextMenu); Separator $ConExitItem = _GUICtrlCreateODMenuItem("Exit", $GUIContextMenu, "shell32.dll", -28) ;;;file menu end $menu1 = GUICtrlCreateContextMenu($playlist) $RCaddfile = _GUICtrlCreateODMenuItem("Add File", $menu1, "icon\mini.icl", -6) _GUICtrlCreateODMenuItem("", $menu1) $RCplay = _GUICtrlCreateODMenuItem("Play", $menu1, "icon\mini.icl", -1) $RCpause = _GUICtrlCreateODMenuItem("Pause", $menu1, "icon\mini.icl", -2) $RCstop = _GUICtrlCreateODMenuItem("Stop", $menu1, "icon\mini.icl", -4) $RCfwd = _GUICtrlCreateODMenuItem("Next", $menu1, "icon\mini.icl", -3) $RCdlt = _GUICtrlCreateODMenuItem("Delete", $menu1, "icon\mini.icl", -5) $statusbar = _GUICtrlStatusBar_Create($GuiList) Dim $statusbar_PartsWidth[2] = [150, 200] _GUICtrlStatusBar_SetParts($statusbar, $statusbar_PartsWidth) _GUICtrlStatusBar_SetText($statusbar, "Loading : None", 0) $hIcons = _WinAPI_LoadShell32Icon(23) _GUICtrlStatusBar_SetIcon($statusbar, 0, $hIcons) Dim $nTrayIcon2 = 0 Dim $media Dim $var, $hour, $min, $sec $filep = "" $pcdir = "" $playlistsong = "" $playlistsong1 = "" $bitrate = "" $tracknr = "" $ttime = "" $comments = "" $protected = "" $copyright = "" $author = "" $genre = "" $year = "" $album = "" $title = "" $artist = "" $remove = "" $status = "" $1b = "" $DoubleClicked = False If FileReadLine($inipath, 12) = "Enabled=1" Then plsopen() _ReduceMemory(@AutoItPID) While 1 $Msg = GUIGetMsg() Switch $Msg Case $TrayExit, $ExitItem;,$RCext If FileReadLine($inipath, 10) = "Enabled=1" Then plssave() _SoundClose($playlistsong) ExitLoop Case $GUI_EVENT_CLOSE GUISetState(@SW_HIDE, $GuiList) Case $Opn, $RCaddfile, $OpenFile AddFile() Case $fldr, $OpenFolder;, $RCaddfldr add() Case $Ply, $RCplay play() Case $Stp, $RCstop stop() Case $Fwd, $RCfwd nexts() Case $RCpause pause() Case $RCdlt remove() Case $AboutItem;, $About about() Case $TrayCalc GUISetState(@SW_SHOW, $GuiList) Case $clr removeall() EndSwitch If $DoubleClicked Then DoubleClickFunc() $DoubleClicked = False EndIf $1a = _SoundPos($playlistsong, 2) $1b = _SoundLength($playlistsong, 2) If $1a = $1b Then _SoundStop($playlistsong) Sleep(10) EndIf If $1a = $1b And _SoundStatus($playlistsong) = "stopped" Then $pls = GUICtrlGetHandle($playlist) $max = _GUICtrlListView_GetItemCount($pls) $rand = Random(1, $max) $next = _GUICtrlListView_GetItemTextArray($pls, $rand) $playlistsong1 = $next[4] start($playlistsong1) EndIf WEnd Func play() Local $hIcons = _WinAPI_LoadShell32Icon(168) If _SoundStatus($playlistsong) = "playing" Then _SoundStop($playlistsong) $dbclick1 = GUICtrlRead(GUICtrlRead($playlist)) $dbclick2 = StringTrimRight($dbclick1, 1) $dbclick3 = StringSplit($dbclick2, "|") If $dbclick3[0] <> 1 Then $playlistsong1 = $dbclick3[4] $playlistsong = _SoundOpen($playlistsong1) _SoundPlay($playlistsong) _GUICtrlStatusBar_SetText($statusbar, "Artist : " & _GetExtProperty($playlistsong1, 16), 1) _GUICtrlStatusBar_SetIcon($statusbar, 0, $hIcons) EndIf EndFunc ;==>play Func stop() _SoundStop($playlistsong) EndFunc ;==>stop Func plssave() $pls2 = GUICtrlGetHandle($playlist) $max2 = _GUICtrlListView_GetItemCount($pls2) $plsloc1 = @ScriptDir & "\playlist.mini" If FileExists($plsloc1) = 0 Then _FileCreate($plsloc1) $plsloc = FileOpen($plsloc1, 2) For $i = 0 To $max2 $plsfile = _GUICtrlListView_GetItemTextArray($pls2, $i) FileWrite($plsloc, $plsfile[4] & @CRLF) Next FileClose($plsloc) EndFunc ;==>plssave Func pause() If _SoundStatus($playlistsong) = "playing" Then _SoundPause($playlistsong) Else _SoundResume($playlistsong) EndIf EndFunc ;==>pause Func plsopen() $plsloc2 = @ScriptDir & "\playlist.mini" $plsloc3 = FileOpen($plsloc2, 0) $pls3 = GUICtrlGetHandle($playlist) $max3 = _FileCountLines($plsloc2) - 1 ConsoleWrite("$max3 = " & $max3 & @CRLF) ConsoleWrite("@error = " & @error & @CRLF) GUIProgressCreate() For $i = 1 To $max3 _GUICtrlStatusBar_SetText($statusbar, "Playlist : " & $i & " of " & $max3, 0) $path = FileReadLine($plsloc3, $i) $artist1 = _GetExtProperty($path, 16) & "|" $title1 = _GetExtProperty($path, 10) & "|" $album1 = _GetExtProperty($path, 17) & "|" GUICtrlCreateListViewItem($artist1 & $title1 & $album1 & $path, $playlist) Next GUIProgressDelete() EndFunc ;==>plsopen Func start($playlistsong1) endgui() Sleep(500) Local $hIcons = _WinAPI_LoadShell32Icon(168) $playlistsong = _SoundOpen($playlistsong1) _SoundPlay($playlistsong) $artist2 = _GetExtProperty($playlistsong1, 16) $title2 = _GetExtProperty($playlistsong1, 10) $album2 = _GetExtProperty($playlistsong1, 17) $duration2 = _GetExtProperty($playlistsong1, 21) _GUICtrlStatusBar_SetText($statusbar, "Artist : " & _GetExtProperty($playlistsong1, 16), 1) _GUICtrlStatusBar_SetIcon($statusbar, 0, $hIcons) pop($artist2, $title2, $album2, $duration2) dancer($title2) EndFunc ;==>start Func nexts() If _SoundStatus($playlistsong) = "playing" Then _SoundStop($playlistsong) $pls1 = GUICtrlGetHandle($playlist) $max1 = _GUICtrlListView_GetItemCount($pls1) $rand1 = Random(1, $max1) $next1 = _GUICtrlListView_GetItemTextArray($pls1, $rand1) $iY1 = _GUICtrlListView_GetItemPositionY($pls1, $rand1 - 2) _GUICtrlListView_Scroll($pls1, 0, $iY1) _GUICtrlListView_SetItemFocused($pls1, $rand1) _GUICtrlListView_SetItemSelected($pls1, $rand1) $playlistsong1 = $next1[4] start($playlistsong1) EndFunc ;==>nexts Func remove() $hplaylist = GUICtrlGetHandle($playlist) _GUICtrlListView_DeleteItemsSelected($hplaylist) EndFunc ;==>remove Func removeall() $hplaylist = GUICtrlGetHandle($playlist) _GUICtrlListView_DeleteAllItems($hplaylist) EndFunc ;==>removeall Func WM_NOTIFY($hWnd, $MsgID, $wParam, $lParam) Local $tagNMHDR, $event, $hwndFrom, $code $tagNMHDR = DllStructCreate("int;int;int", $lParam) If @error Then Return 0 $code = DllStructGetData($tagNMHDR, 3) If $wParam = $playlist And $code = -3 Then $DoubleClicked = True Return $GUI_RUNDEFMSG EndFunc ;==>WM_NOTIFY Func DoubleClickFunc() If _SoundStatus($playlistsong) = "playing" Then _SoundStop($playlistsong) $dbclick1 = GUICtrlRead(GUICtrlRead($playlist)) $dbclick2 = StringTrimRight($dbclick1, 1) $dbclick3 = StringSplit($dbclick2, "|") If $dbclick3[0] <> 1 Then $playlistsong1 = $dbclick3[4] start($playlistsong1) EndIf EndFunc ;==>DoubleClickFunc Func AddFile() $sFile = FileOpenDialog("Open File", "", "Audio Files (*.mp3;*.wav)") If FileExists($sFile) Then $path = $sFile $artist1 = _GetExtProperty($path, 16) & "|" $title1 = _GetExtProperty($path, 10) & "|" $album1 = _GetExtProperty($path, 17) & "|" GUICtrlCreateListViewItem($artist1 & $title1 & $album1 & $path, $playlist) Else MsgBox(48, "MP3 Mini Player", "Please select a file to add !") EndIf EndFunc ;==>AddFile Func pop($artst, $sng, $albm, $durtion) $Wpop = GUICreate("LMP", 269, 146, @DesktopWidth - 280, @DesktopHeight - 170, $WS_POPUP, $WS_EX_TOOLWINDOW) GUISetBkColor(0xD8E4F8) DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Wpop, "int", 300, "long", 0x00040008);slide-in from bottom $Label132 = GUICtrlCreateLabel("MP3 Mini Player" & @CRLF & "Now Playing :", 8, 8, 200, 34) GUICtrlSetColor(-1, 0x9A3416) $data1 = GUICtrlCreateLabel("", 8, 42, 200, 58) GUICtrlSetData($data1, $artst & @CRLF & $sng) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Labelx = GUICtrlCreateLabel("x", 250, 2, 7, 12) GUICtrlSetCursor(-1, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x9A3416) $data2 = GUICtrlCreateLabel("", 8, 102, 200, 17) GUICtrlSetData($data2, "Album : " & $albm) $data3 = GUICtrlCreateLabel("", 8, 118, 200, 17) GUICtrlSetData($data3, "Duration : " & $durtion) WinSetTrans("LMP", "", 200) GUISetState(@SW_SHOW) _GuiRoundCorners($Wpop, 0, 0, 20, 20);<= Patent GUI Glass style $tmr = TimerInit() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE, $Labelx DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Wpop, "int", 300, "long", 0x00050004) GUIDelete($Wpop) ExitLoop EndSwitch If TimerDiff($tmr) >= 4000 Then DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Wpop, "int", 300, "long", 0x00050004) GUIDelete($Wpop) ExitLoop EndIf WEnd EndFunc ;==>pop Func _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3);==>_GuiRoundCorners Dim $pos, $ret, $ret2 $pos = WinGetPos($h_win) $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3) If $ret[0] Then $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1) If $ret2[0] Then Return 1 Else Return 0 EndIf Else Return 0 EndIf EndFunc ;==>_GuiRoundCorners #EndRegion Func License() $license = FileRead(@ScriptDir & "\icon\License.txt") $aform = GUICreate("License", 410, 344, 286, 220) $Edit_1 = GUICtrlCreateEdit("", 16, 16, 377, 273, BitOR($ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL)) GUICtrlSetData($Edit_1, $license, 1) $Button1 = GUICtrlCreateButton("Accept Terms", 120, 304, 169, 25, 0) GUISetState(@SW_SHOW) While 1 $Msg = GUIGetMsg() Select Case $Msg = $GUI_EVENT_CLOSE GUIDelete($aform) ExitLoop Case $Msg = $Button1 MsgBox(0, "Thank You", "We appreciate your kindness") GUIDelete($aform) ExitLoop EndSelect WEnd EndFunc ;==>License Func add() $pcdir = FileSelectFolder("Select Folder", @HomeDrive) If @error = 1 Then MsgBox(48, "MP3 Mini Player", "Please select a folder !") ElseIf $pcdir = "" Then MsgBox(48, "MP3 Mini Player", "Please select a folder !") Else Call("pcdir") EndIf EndFunc ;==>add Func pcdir() If FileReadLine($inipath, 6) = "Enabled=1" Then GUICtrlSetState($playlist, $GUI_HIDE) $filesArray = RecursiveFileSearch($pcdir, "(?i)\.(mp3|wav)") GUIProgressCreate() For $i = 1 To $filesArray[0] _GUICtrlStatusBar_SetText($statusbar, "Adding " & $i & " of " & $filesArray[0], 0) $path = $filesArray[$i] $artist1 = _GetExtProperty($path, 16) & "|" $title1 = _GetExtProperty($path, 10) & "|" $album1 = _GetExtProperty($path, 17) & "|" GUICtrlCreateListViewItem($artist1 & $title1 & $album1 & $path, $playlist) Next If FileReadLine($inipath, 6) = "Enabled=1" Then GUICtrlSetState($playlist, $GUI_SHOW) _GUICtrlStatusBar_SetText($statusbar, "Ready", 0) GUIProgressDelete() EndFunc ;==>pcdir Func WM_DROPFILES_FUNC($hWnd, $MsgID, $wParam, $lParam) Local $nSize, $pFileName Local $nAmt = DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", 0xFFFFFFFF, "ptr", 0, "int", 255) For $i = 0 To $nAmt[0] - 1 $nSize = DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", $i, "ptr", 0, "int", 0) $nSize = $nSize[0] + 1 $pFileName = DllStructCreate("char[" & $nSize & "]") DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", $i, "ptr", DllStructGetPtr($pFileName), "int", $nSize) ReDim $gaDropFiles[$i + 1] $gaDropFiles[$i] = DllStructGetData($pFileName, 1) $pFileName = 0 Next GetDroppedFiles() EndFunc ;==>WM_DROPFILES_FUNC Func GetDroppedFiles() Local $nbrFiles Local $i $nbrFiles = UBound($gaDropFiles) - 1; -- global For $i = 0 To $nbrFiles _GUICtrlStatusBar_SetText($statusbar, "Adding file ( " & $i & " of " & $nbrFiles & " )", 0) If FileExists($gaDropFiles[$i]) Then $path = $gaDropFiles[$i] $artist1 = _GetExtProperty($path, 16) & "|" $title1 = _GetExtProperty($path, 10) & "|" $album1 = _GetExtProperty($path, 17) & "|" GUICtrlCreateListViewItem($artist1 & $title1 & $album1 & $path, $playlist) EndIf Next EndFunc ;==>GetDroppedFiles Func _ReduceMemory($i_PID = -1) If $i_PID <> - 1 Then Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID) Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0]) DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0]) Else Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1) EndIf Return $ai_Return[0] EndFunc ;==>_ReduceMemory Func about() $Ab = GUICreate("About Us", 267, 303, 386, 220) $Pic1 = GUICtrlCreatePic(@ScriptDir & "\icon\Image00001.jpg", 8, 8, 247, 63, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) $Group1 = GUICtrlCreateGroup("About Us", 12, 80, 241, 65, $WS_CLIPSIBLINGS) $Label1 = GUICtrlCreateLabel("Product Name:", 49, 104, 75, 17) $Label2 = GUICtrlCreateLabel("Version:", 82, 121, 42, 17) $Label3 = GUICtrlCreateLabel("MP3 Mini Player", 136, 104, 80, 17) $Label4 = GUICtrlCreateLabel("1.6.5", 136, 122, 28, 17) GUICtrlCreateGroup("", -99, -99, 1, 1) $Edit1 = GUICtrlCreateEdit("", 13, 152, 241, 113, BitOR($ES_CENTER, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL)) GUICtrlSetData(-1, StringFormat(".: Special Thanks :.\r\nAutoit Forum\r\nL|M|TER MEDIA PLAYER\r\n\r\n.: Personal Site :.\r\nwww.myspace.com\\zainiafzan\r\n\r\n.: Author :.\r\n?Z.A.Z.A Collection Software 2008\r\n")) $But = GUICtrlCreateButton("License", 72, 272, 113, 17, 0) GUISetState(@SW_SHOW) #EndRegion While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUIDelete($Ab) ExitLoop Case $But GUIDelete($Ab) Call("License") ExitLoop EndSwitch WEnd EndFunc ;==>about Func GUIProgressCreate() ; shows progress bar GUICreate("Loading playlist", 180, 60, -1, -1, $DS_MODALFRAME, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST) GUISetBkColor(0x000000) GUICtrlSetState(GUICtrlCreateAvi(@ScriptDir & "\icon\progress.avi", -1, 78, 5), 1) GUICtrlCreateLabel("In progress", 12, 10) GUICtrlSetColor(-1, 0xFFFFFF) GUISetState() EndFunc ;==>GUIProgressCreate Func GUIProgressDelete() GUIDelete() EndFunc ;==>GUIProgressDelete Func dancer($artist) $guiID = GUICreate("Dancer Mini", 102, 208,@DesktopWidth -188, @DesktopHeight - 238 , $DS_MODALFRAME, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST) GUISetBkColor(0x0000000) $hAniGif2 = AniGif_CreateControl($guiID, 4, 4, 88, 128) AniGif_LoadGifFromFile($hAniGif2, @ScriptDir & "\icon\avatar_ani_128.gif") AniGif_SetBkColor($hAniGif2, 0xFFFFFF) $Label4 = GUICtrlCreateLabel("Title Song:", 4, 134, 80, 27) GUICtrlSetColor(-1, 0x2FEC1A) $Ltitle = GUICtrlCreateLabel("", 4, 150, 100, 27) GUICtrlSetData($Ltitle, $artist) GUICtrlSetColor(-1, 0x2FEC1A) GUISetState(@SW_SHOW) $1a = _SoundPos($playlistsong, 2) $1b = _SoundLength($playlistsong, 2) If $1a = $1b Then _SoundStop($playlistsong) AniGif_DestroyControl($hAniGif2) EndIf EndFunc ;==>dancer Func endgui() GUIDelete() EndFunc ;==>endgui Func SetBlueMenuColors() _SetMenuBkColor(0xFFB8B8) _SetMenuIconBkColor(0xBB8877) _SetMenuSelectBkColor(0x662222) _SetMenuSelectRectColor(0x4477AA) _SetMenuSelectTextColor(0x66FFFF) _SetMenuTextColor(0x000000) EndFunc
Airwolf Posted June 5, 2008 Posted June 5, 2008 1. I try to do what limiter player do...but i have an error when i want to play next music.What is the error? Certifications: A+, Network+, Security+, Linux+, LPIC-1, MCSA | Languages: AutoIt, C, SQL, .NETBooks: AutoIt v3: Your Quick Guide - $7.99 - O'Reilly Media - September 2007-------->[u]AutoIt v3 Development - newbie to g33k[/u] - Coming Soon - Fate Publishing - Spring 2013UDF Libraries: SkypeCOM UDF Library | ADUC Computers OU Cleanup | Find PixelChecksumExamples: Skype COM Examples - Skype4COMLib Examples converted from VBS to AutoIt
zaini Posted June 13, 2008 Author Posted June 13, 2008 What is the error? the error is when i hide the application in the tray, the "Next" function is to play the animation for the music dancer but it can not do so.. why??? here is my script... mini_mp3.zip
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now