Jump to content

Say Goodbye To amp 3

DirtDBaK

By DirtDBaK,
in AutoIt Example Scripts

 Share

Recommended Posts

  • 2 weeks later...
  • Replies 73
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

DirtDBaK Universalist

DirtDBaK

Posted
  • Author
Posted (edited)

btw i didnt say i was lame i said the player was lame...

Now if you go to the search and type 'top ' and a number it will list off your most listened to songs

ex. top 15 thus giving me the 15 songs with the highest play count in descending order

Also NEW AWESOME skin and lots of changes in the GUI

Take a look

Also made many speed improvements..

ALSO

made all the source easier to find and put all of them on it..

Enjoy

Edited by DBak

[center][/center]

Link to comment
Share on other sites
DirtDBaK Universalist

DirtDBaK

Posted
  • Author
Posted

I am planning another update.

I know the media player thing is getting burnt out around here but I still need people to test it out. Tommorrow I will be realeasing a updated version of AMP 3, and the Database.exe therefore adding music to your library should be much faster.

Thanks to all

[center][/center]

Link to comment
Share on other sites
DirtDBaK Universalist

DirtDBaK

Posted
  • Author
Posted

Thanks well as for adding 1500 it's still fairly quick but Pascal257 was recomending that I should do something about it.

Also the library is made with INI so it will may not work after the 32kb limit, but I think with the way I wrote my functions I can bypass that.

but you wont be able to add more thatn 3999 items becuase the listview would crash...

[center][/center]

Link to comment
Share on other sites
  • 3 weeks later...
DirtDBaK Universalist

DirtDBaK

Posted
  • Author
Posted

AMP 3.1

Search is now 18.75 times faster

New features like queue tricks

now has an installer

installer will install the source code for you

type 'top ' and any number to see your top x songs!

7.07mb in size

Get the installer in the first post!

[center][/center]

Link to comment
Share on other sites
  • 2 weeks later...
Achilles Universalist

Achilles

Posted
Posted (edited)

:) I'm still getting the array subscript error...

---------------------------

AutoIt Error

---------------------------

Line -1:

Error: Subscript used with non-Array variable.

---------------------------

OK

---------------------------

Edited by Piano_Man
My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list]
Link to comment
Share on other sites
Swift Universalist

Swift

Posted
Posted (edited)

Hey DBak, Very Very Awesome...I Found A Extremely Small Bug :) :)

Well...If your using the ListView then scroll down using your Down arrow...It will have a extra line where there is no number or song name etc...but using ONLY down...will it work :)

Hey DBak...I want to make an Uninstaller for your Amp3 or help you with it...Ive done this many times...So it shouldnt be too hard...PM Me Soon!

EDIT: Made an Uninstaller For DBak:

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Amp 3 Uninstaller", 286, 230, 191, 125, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE))
$Label1 = GUICtrlCreateLabel("Welcome To The Amp 3 Uninstaller", 0, 8, 284, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("This Program Will Uninstall Amp3 Off Your Computer", 16, 32, 249, 17)
$Button1 = GUICtrlCreateButton("Cancel", 0, 200, 97, 25, 0)
$Button2 = GUICtrlCreateButton("Uninstall", 184, 200, 97, 25, 0)
$Label3 = GUICtrlCreateLabel("It Is Recommended That You Shutdown All Other", 24, 56, 237, 17)
$Label4 = GUICtrlCreateLabel("Applications While Uninstalling.", 56, 72, 151, 17)
$Checkbox1 = GUICtrlCreateCheckbox("Delete Everything Having To Do With Amp 3", 24, 168, 249, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Exit
        Case $Button2
            $s = MsgBox(4, "Uninstall?", "Are You Sure You Want To Uninstall Amp 3?")
    If $s = 6 Then
        _Uninstall()
    Else
        Exit
    EndIf
    EndSwitch
WEnd

Func _Uninstall()
DirRemove(@ProgramFilesDir & "\Amp 3\", 1)
DirRemove(@StartMenuDir & "\Amp 3\", 1)
DirRemove(@StartMenuDir & "\Programs\Amp 3\", 1)
FileDelete(@DesktopDir & "\Amp 3.ink")
MsgBox(0, "Amp3 Uninstall", "Amp 3 Was Successfully Uninstalled!")
EndFunc

DBak, If you would like me to compile since you use earlyier versions...lol...I will.

Edited by Swift
Link to comment
Share on other sites
Swift Universalist

Swift

Posted
Posted (edited)

@DBak: I couldn't find the source code for the updater... Did I miss it? I'm planning on making Multiple Desktops automatically update and would like to learn from what you did...

Yay Piano_Man! Put my idea to work! :) Hey Piano_Man...It should be with Amp 3 When You Install It...if Im not mistaken...Lemme check :)

Found It: Hope DBak Wont Get Mad At Me For Posting It...But Here It Is:

#NoTrayIcon
#Region;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=download_server.ico
#AutoIt3Wrapper_Res_Comment=Donwload Updates from the AMP 3 Server
#AutoIt3Wrapper_Res_Description=Stay Updated!
#AutoIt3Wrapper_Res_Fileversion=1.0.0.4
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=None
#AutoIt3Wrapper_Res_Language=1033
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****
;_Singleton( "AMP 3.exe" )
$drv='abc'
If $CmdLine[0] > 0 Then
If $CmdLine[1] <> @ScriptName Then
$DRV=$CmdLine[1]
Else
MsgBox( 64, "Fatal Error", "No Command Sent!")  
Exit
Endif
Endif
;DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
#include <File.au3>
#include <GUIConstants.au3>
#include <inet.au3>
Global $err = 0
Global $err2 = 0
$Cur_ver = IniRead( @scriptdir & "\Version2.ddb", "Core", "CoreVersion", "2.9.9.9" )

;MsgBox(0,'',$cur_ver)
;MsgBox(0,'',$cur_ver)
$fhand = FileOpen( @ScriptDir & "\src.txt", 0 )
$myip = FileRead( $fhand )
FileClose( $fhand )
if $myip = '' Then $myip = '65.31.38.216'
;MsgBox(0,'',$myip)
$new_ver = _INetGetSource( "http://"&$myip&"/amp3/version.txt" ) 
if $new_ver = '' then $new_ver = '3.0.0.0'
$result = _VersionCompareX( $Cur_ver, $new_ver )
;MsgBox(0, $result, $new_ver)
If $result = -1 Then 
;If $DRV = "DispMsg" Then 
$ans = Msgbox(0x4, "New update found", "Install now?", 10 )
If $ans = 7 then exit
;Endif  
DirCreate( @scriptdir & "\Updates\"&$new_ver )
$c = 0
$t = 9
If $DRV <> "DispMsg" and ProcessExists( "Amp 3.exe" ) Then ProcessClose("Amp 3.exe") 
BuildGui()
Donwload(InetGet( "Http://"&$myip&"/Amp3/Database.exe", @Scriptdir & "\Updates\"&$new_ver&"\Database.exe",1 ),'database.exe')
Donwload(InetGet( "Http://"&$myip&"/Amp3/Top15.exe", @Scriptdir & "\Updates\"&$new_ver&"\Top15.exe",1 ),'top15.exe')
Donwload(InetGet( "Http://"&$myip&"/Amp3/AMP3.exe", @Scriptdir & "\Updates\"&$new_ver&"\AMP 3.exe",1 ),'amp 3.exe')
Donwload(InetGet( "Http://"&$myip&"/Amp3/AuthMod.exe", @Scriptdir & "\Updates\"&$new_ver&"\AuthMod.exe",1 ), 'authmod.exe')
Donwload(InetGet( "Http://"&$myip&"/Amp3/About_Skin.exe", @Scriptdir & "\Updates\"&$new_ver&"\AboutSkin.exe",1 ), 'aboutskin.exe')
Donwload(InetGet( "Http://"&$myip&"/Amp3/About.exe", @Scriptdir & "\Updates\"&$new_ver&"\About.exe",1 ), 'about.exe')
Donwload(InetGet( "Http://"&$myip&"/Amp3/amp3help.chm", @Scriptdir & "\Updates\"&$new_ver&"\Amp3help.chm",1 ), 'amp3help.chm')
Donwload(InetGet( "Http://"&$myip&"/Amp3/ToDo.exe", @Scriptdir & "\Updates\"&$new_ver&"\ToDo.exe",1 ), 'todo.exe')
Donwload(InetGet( "Http://"&$myip&"/Amp3/ToDo.Ini", @Scriptdir & "\Updates\"&$new_ver&"\ToDo.ini",1 ), 'todo.ini')
;Donwload(InetGet( "Http://"&$myip&"/Amp3/Update_core.exe", @Scriptdir & "\Updates\"&$new_ver&"\Update_Core.exe" ), 'update_core.exe')
;Donwload(InetGet( "Http://"&$myip&"/Amp3/Update_Opt.exe", @Scriptdir & "\Updates\"&$new_ver&"\Update_Opt.exe" ), 'update_opt.exe')
If $err <> 0 Then MsgBox(16, "Error Updating Amp 3", "You encountered "&$err&" errors when downloading from server "&$myip&"!"&@CRLF&"Please Try to update at a later time!"&@CRLf&"You downloaded "&round((100-(($err/9)*100)),0) & "% of the update" )
If $err = 0 then GUICtrlSetImage( $pic1, @Scriptdir & "\enable_server.bmp" )
If $err = 0 Then Install()
If $err2 = 1 Then MsgBox( 16, "Error Installing AMP", "One or more donwloaded component(s) was not able to be installed!" )
GUIDelete($form1)
If $err2 = 0 and $err = 0 then IniWrite( @scriptdir & "\Version2.ddb", "Core", "CoreVersion", $new_ver )
;if $drv = "_Run" then ShellExecute(@ScriptDir&"\..\Amp 3.exe")
;MsgBox(0,'',$new_ver)
else 
If $DRV = "DispMsg" Then Msgbox(64, "Update Check", "There are no new updates at this time! Check back later!", 10 )
Exit
Endif
Func BuildGui()
    
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("AMP 3 Updater", 459, 140)
GUISetBkColor( 0x03a307)
Global $Progress1 = GUICtrlCreateProgress(144, 8, 310, 17, $PBS_SMOOTH)
GuictrlSetBkColor( -1, 0x06b61f)
Guictrlsetcolor(-1, 0x00ff00)
Global $Edit1 = GUICtrlCreateEdit("", 136, 32, 321, 97, BitOR($ES_AUTOVSCROLL,$ES_READONLY,$WS_VSCROLL))
GUICtrlSetBkColor( $edit1, 0x03a307)
GUICtrlSetData(-1, "Checking for newer version of AMP 3..."&@crlf&"Stand by...")
Global $Pic1 = GUICtrlCreatePic(@ScriptDir&"\download_server.bmp",  8, 0, 128, 128, BitOR($SS_NOTIFY,$WS_GROUP))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Endfunc
func Donwload($type,$file = 'NOT DECLARED')
    If $type = 0 then
        GUICtrlSetData($edit1,"Error: Can't Download File Http://"&$myip&"/amp3/"&$File&@CRLF&GuiCtrlRead($edit1))
        $err = $err + 1
    Else
        GUICtrlSetData($edit1,"Sucess: Downloaded Http://"&$myip&"/amp3/"&$File&@CRLF&GuiCtrlRead($edit1))
    endif
$c = $c+1
Sleep(100)
GuiCtrlSetData( $progress1, ($c/$t)*100 )
endfunc 
Func _VersionCompareX($sOne, $sTwo)
    Local $returnValue = 0
    Local $tempOne = StringSplit($sOne, "."), $tempTwo = StringSplit($sTwo, ".")
    Local $numPositions = $tempOne[0]
    If $tempTwo[0] > $tempOne[0] Then $numPositions = $tempTwo[0]
    Dim $arrayOne[$numPositions], $arrayTwo[$numPositions]
    For $X = 0 to $numPositions - 1
        $arrayOne[$X] = 0
        $arrayTwo[$X] = 0
    Next
    For $X = 1 to $tempOne[0]
        If $X > $numPositions Then ExitLoop
        $stripped = StringRegExpReplace ($tempOne[$X], "^0+", "")
        If $stripped <> "" Then $arrayOne[$X - 1] = $stripped
    Next
    For $X = 1 to $tempTwo[0]
        If $X > $numPositions Then ExitLoop
        $stripped = StringRegExpReplace ($tempTwo[$X], "^0+", "")
       
        If $stripped <> "" Then $arrayTwo[$X - 1] = $stripped    
    Next
    For $X = 0 to $numPositions - 1
        Switch StringCompare ($arrayOne[$X],$arrayTwo[$X])
            Case 0
                $returnValue = 0
            Case -1
                $returnValue = -1
                ExitLoop
            Case 1
                $returnValue = 1
                ExitLoop
        EndSwitch
    Next
    Return $returnValue
EndFunc
Func Install()
    GUICtrlSetData($progress1, 0)
    GUICtrlSetData($edit1,GuiCtrlRead($edit1)&@CRLF&"---Now installing updates---")
    Global $b = 0
    Global $n = 9
    IF ProcessExists( "amp 3.exe" ) then ProcessWaitClose( "Amp 3.exe" )
    Cpy(FileCopy( @Scriptdir & "\updates\"&$new_ver&"\Amp 3.exe", @ScriptDir & "\..\Amp 3.exe", 9 ),'Amp 3.exe')
    If ProcessExists( "database.exe" ) then ProcessWaitClose( "database.exe")
    Cpy(FileMove( @Scriptdir & "\updates\"&$new_ver&"\database.exe", @ScriptDir & "\..\Database\Database.exe",9 ), 'database.exe')
    If ProcessExists( "To Do.exe" ) Then ProcessClose( "To Do.exe" )
    Cpy(FileMove( @Scriptdir & "\updates\"&$new_ver&"\ToDo.exe", @ScriptDir & "\..\To_DO\To Do.exe",9 ), 'To Do.exe' )
    Cpy(FileMove( @Scriptdir & "\updates\"&$new_ver&"\ToDo.ini", @ScriptDir & "\..\To_DO\To_Do.ini",9 ), 'To Do.ini' )
    Cpy(FileMove( @Scriptdir & "\updates\"&$new_ver&"\amp3help.chm", @ScriptDir & "\..\Help\amp3help.chm",9 ), 'amp3help.chn')
    Cpy(FileMove( @Scriptdir & "\updates\"&$new_ver&"\About.exe", @ScriptDir & "\..\Help\About.exe",9 ), 'About.exe')
    Cpy(FileMove( @Scriptdir & "\updates\"&$new_ver&"\AboutSkin.exe", @ScriptDir & "\..\Components\About_Skin.exe",9 ), 'About_Skin.exe' )
    Cpy(FileMove( @Scriptdir & "\updates\"&$new_ver&"\AuthMod.exe", @ScriptDir & "\..\Installer\AuthMod.exe",9 ), 'AuthMod.exe' )
EndFunc
Func Cpy( $ret, $file )
$b = $b+1
GuiCtrlSetData( $progress1, ($b/$n)*100 )   
    If $ret = 0 then
        GUICtrlSetData($edit1,"Error: Can't Install File: " &$File &@CRLF& GuiCtrlRead($edit1))
        $err2 = 1
    Else
        GUICtrlSetData($edit1,"Success: File Installed: "&$File&@CRLF&GuiCtrlRead($edit1))
    endif   
Sleep(100)  
EndFunc
Edited by Swift
Link to comment
Share on other sites
Guest
This topic is now closed to further replies.
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...