Sign in to follow this  
Followers 0
Swift

Best Programs Of '07 GUI!

38 posts in this topic

#1 ·  Posted (edited)

Ok, well, i've been working on this for the past week getting the bugs out etc.

What Is It? Well, Its a program downloader. It has some of the cool AutoIt scripts and also some security programs. Of course, fun and games!

Will I Use It? Of Course, I think you should It comes with nice programs and will keep you up-to-date because I will have updated with new programs for it.

What It Does: If you dont have the program listed, The button will be normal, If you do, It will be $GUI_DISABLE, Disabling the button. Once you click the button of the program you want it will download it from its source...Not any redirector etc. Download it with a progress bar, and then download it your desktop, it will then run it, you complete the installer, and it will $GUI_DISABLE it, and go on to the next one.

I Need Suggestions!! Well, I want to make this program good, so I need your input. If you want me to add a Best Program Of '07 Program, tell me!! Please!! I will add it too the list and update it.

Does It Have Bugs? I would like to know!

What version do I need to run this script? AutoIt .10 RELEASE

*If you dont have this version, I will compile an .exe for you.*

Am I releasing the source code? Yep.

The Code Is Below. Only One Request: Post your comments if you download it!!

Code:

#include <GuiConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <GUIConstants.au3>
#include <File.au3>
#NoTrayIcon
$Debug_SB = False

;=====CREATE GUI=====;
_Main()
;=====CREATE GUI=====;

Func _Main();===> Main
#Region STARTUPFUNCTIONS
    Local $aParts[4] = [140, 180, 320, 340]
    $hGUI = GUICreate("Loading...", 400, 300)
    $hStatus = _GUICtrlStatusBar_Create ($hGUI)
    _GUICtrlStatusBar_SetMinHeight ($hStatus, 20)
    GUISetState()
    _GUICtrlStatusBar_SetParts ($hStatus, $aParts)
    _GUICtrlStatusBar_SetText ($hStatus, "Loading...")
    If @OSTYPE = "WIN32_WINDOWS" Then
    $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
    $hProgress = GUICtrlGetHandle($progress)
    _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
    Else
    $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE)
    $hProgress = GUICtrlGetHandle($progress)
    _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
    _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200)
    EndIf
#EndRegion STARTUPFUNCTIONS
#Region BUTTONS=ANIMATEBUTTONS
GUICtrlCreateLabel("*NOTE* If You Cannot Click On The Button, You Have That Program", 125, 1, 200, 45)
GUICtrlCreateLabel("*NOTE* All These Programs Are Unmodified, And Virus Free!", 125, 50, 200, 45)
GUICtrlCreateLabel("*NOTE* All These Programs Are Direct From Their Owner!", 125, 100, 200, 45)
$PS = GUICtrlCreateButton("PassSecure", 1, 1, 110, 30)
GUICtrlSetTip(-1, "Store All Your Passwords Securely")
If FileExists(@ProgramFilesDir & "\PassSecure 1.5.3\PassSecure.exe") Then
    GUICtrlSetState($PS, $GUI_DISABLE)
EndIf
Sleep(100)
$amp = GUICtrlCreateButton("Amp 3", 1, 31, 110, 30)
GUICtrlSetTip(-1, "Advanced Media Player 3")
If FileExists(@ProgramFilesDir & "\Amp 3\Amp 3.exe") Then
    GUICtrlSetState($amp, $GUI_DISABLE)
EndIf
Sleep(100)
$inno = GUICtrlCreateButton("Inno Installer", 1, 61, 110, 30)
GUICtrlSetTip(-1, "Script/File Installer")
If FileExists(@ProgramFilesDir & "\Inno Setup 5.1\Compil32.exe") Then
    GUICtrlSetState($inno, $GUI_DISABLE)
EndIf
Sleep(100)
$spy = GUICtrlCreateButton("Spyware Terminator", 1, 91, 110, 30)
GUICtrlSetTip(-1, "Spyware And Virus Scanner")
If FileExists(@ProgramFilesDir & "\Spyware Terminator\SpywareTerminator.exe") Then
    GUICtrlSetState($spy, $GUI_DISABLE)
EndIf
Sleep(100)
$a = GUICtrlCreateButton("LimeWire", 1, 121, 110, 30)
GUICtrlSetTip(-1, "Free File Downloader (Music)")
If FileExists(@ProgramFilesDir & "\LimeWire\LimeWire.exe") Then
    GUICtrlSetState($a, $GUI_DISABLE)
EndIf
Sleep(100)
$b = GUICtrlCreateButton("Ad-Aware SE", 1, 151, 110, 30)
GUICtrlSetTip(-1, "Spyware And ADAware Remover")
If FileExists(@ProgramFilesDir & "\Lavasoft\Ad-Aware 2007\Ad-Aware2007.exe") Then
    GUICtrlSetState($b, $GUI_DISABLE)
EndIf
Sleep(100)
$c = GUICtrlCreateButton("Unlocker", 1, 181, 110, 30)
GUICtrlSetTip(-1, "Delete Files That Wont Delete!")
If FileExists(@ProgramFilesDir & "\Unlocker\Unlocker.exe") Then
    GUICtrlSetState($c, $GUI_DISABLE)
EndIf
Sleep(100)
$d = GUICtrlCreateButton("AutoIt3 BETA", 1, 211, 110, 30)
GUICtrlSetTip(-1, "Easy Scripting Language")
If FileExists(@ProgramFilesDir & "\Autoit3\Autoit3.exe") Then
    GUICtrlSetState($d, $GUI_DISABLE)
EndIf
Sleep(100)
$e = GUICtrlCreateButton("Mozilla Firefox", 1, 241, 110, 30)
GUICtrlSetTip(-1, "Easy Web Browser")
If FileExists(@ProgramFilesDir & "\Mozilla Firefox\firefox.exe") Then
    GUICtrlSetState($e, $GUI_DISABLE)
EndIf
Sleep(100)
$chat = GUICtrlCreateButton("TrayIRC", 112, 241, 110, 30)
GUICtrlSetTip(-1, "Simply Yet Effiencent Messenger")
If FileExists(@DesktopDir & "\TrayIRC.exe") Then
    GUICtrlSetState($chat, $GUI_DISABLE)
EndIf
Sleep(100)

#EndRegion BUTTONS=ANIMATEBUTTONS


#Region LOADING
WinSetTitle("Loading...", "", "Best Programs Of '07")
_GUICtrlStatusBar_Destroy($hProgress)
_GUICtrlStatusBar_SetText ($hStatus, "Ready")
_GUICtrlStatusBar_SetText ($hStatus, "", 1)
_GUICtrlStatusBar_SetText ($hStatus, "", 2)
#EndRegion LOADING

#Region CASES
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
;=====================GUI_EVENT_CLOSE=============================;
Case $GUI_EVENT_CLOSE
        WinSetTitle("Best Programs Of '07", "", "Unloading...")
        _GUICtrlStatusBar_SetText ($hSTatus, "Unloading...")
        If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
        EndIf
    GUICtrlDelete($chat)
    Sleep(100)
        GUICtrlDelete($e)
    Sleep(100)
        GUICtrlDelete($d)
    Sleep(100)
        GUICtrlDelete($c)
    Sleep(100)
        GUICtrlDelete($b)
    Sleep(100)
        GUICtrlDelete($a)
    Sleep(100)
        GUICtrlDelete($spy)
    Sleep(100)
        GUICtrlDelete($inno)
    Sleep(100)
        GUICtrlDelete($amp)
    Sleep(100)
        GUICtrlDelete($PS)
    Sleep(100)
        Exit

;===================GUI_EVENT_CLOSE==============================;
cASE $chat
    Local $file_url = "http://h1.ripway.com/Swiftz/TrayIRC.exe"
    _GUICtrlStatusBar_SetText ($hSTatus, "Downloading TrayIRC...")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
    EndIf
    InetGet($file_url, "TrayIRC.exe", 1, 1)
    $size = InetGetSize($file_url)
    ProgressOn('Downloading', 'Downloading', 'TrayIRC' )
    While @InetGetActive
    ProgressSet( (@InetGetBytesRead/$size)*100 )
    Wend
    ProgressOff()
        _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
            _GUICtrlStatusBar_Destroy($hProgress)
        ShellExecute(@DesktopDir & "\TrayIRC.exe")
        GUICtrlSetState($chat, $GUI_DISABLE)
Case $a
    Local $file_url = "http://www.limewire.com/LimeWireWinBoth"
        _GUICtrlStatusBar_SetText ($hSTatus, "Downloading LimeWire...")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
    EndIf
    InetGet($file_url, "LimeWire.exe", 1, 1)
    $size = InetGetSize($file_url)
    ProgressOn('Downloading', 'Downloading', $file_url )
    While @InetGetActive
    ProgressSet( (@InetGetBytesRead/$size)*100 )
    Wend
    ProgressOff()
        _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
            _GUICtrlStatusBar_Destroy($hProgress)
            _GUICtrlStatusBar_SetText ($hSTatus, "Installing Limewire")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
    EndIf
    ShellExecuteWait(@DesktopDir & "\LimeWire.exe")
    GUICtrlSetState($a, $GUI_DISABLE)
    _GUICtrlStatusBar_Destroy($hProgress)
    _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
    FileDelete(@DesktopDir & "\LimeWire.exe")
        
Case $b
        Local $file_url = "http://s3.amazonaws.com/edownload/free/en/win/aaw2007.exe"
        _GUICtrlStatusBar_SetText ($hSTatus, "Downloading Ad-Aware...")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
    EndIf
    InetGet($file_url, "Ad-Aware_SE.exe", 1, 1)
    $size = InetGetSize($file_url)
    ProgressOn('Downloading', 'Downloading', $file_url )
    While @InetGetActive
    ProgressSet( (@InetGetBytesRead/$size)*100 )
    Wend
    ProgressOff()
            
        _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
            _GUICtrlStatusBar_Destroy($hProgress)
            _GUICtrlStatusBar_SetText ($hSTatus, "Installing AD-Aware")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
    EndIf
    ShellExecuteWait(@DesktopDir & "\Ad-Aware_SE.exe")
    GUICtrlSetState($b, $GUI_DISABLE)
    _GUICtrlStatusBar_Destroy($hProgress)
    _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
    FileDelete(@DesktopDir & "\AD-Aware_SE.exe")
Case $c
        Local $file_url = "http://h1.ripway.com/Swiftz/unlocker1.8.5.exe"   
        _GUICtrlStatusBar_SetText ($hSTatus, "Downloading Unlocker...")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
    EndIf
    InetGet($file_url, "Unlocker.exe", 1, 1)
    $size = InetGetSize($file_url)
    ProgressOn('Downloading', 'Downloading', 'Unlocker')
    While @InetGetActive
    ProgressSet( (@InetGetBytesRead/$size)*100 )
    Wend
    ProgressOff()
    _GUICtrlStatusBar_Destroy($hProgress)
            _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
            _GUICtrlStatusBar_SetText ($hSTatus, "Installing Unlocker...")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
    EndIf
    ShellExecuteWait(@DesktopDir & "\Unlocker.exe")
    GUICtrlSetState($c, $GUI_DISABLE)
    _GUICtrlStatusBar_Destroy($hProgress)
    _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
    FileDelete(@DesktopDir & "\Unlocker.exe")
Case $d
        Local $file_url = "http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe"
        _GUICtrlStatusBar_SetText ($hSTatus, "Downloading AutoIt3...")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
    EndIf
            InetGet($file_url, "AutoIt3Setup.exe", 1, 1)
    $size = InetGetSize($file_url)
    ProgressOn('Downloading', 'Downloading', $file_url)
    While @InetGetActive
    ProgressSet( (@InetGetBytesRead/$size)*100 )
    Wend
    ProgressOff()
        _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
            _GUICtrlStatusBar_Destroy($hProgress)
        _GUICtrlStatusBar_SetText ($hSTatus, "Installing AutoIt3...")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
    EndIf
    ShellExecuteWait(@DesktopDir & "\AutoIt3Setup.exe")
    GUICtrlSetState($d, $GUI_DISABLE)
    _GUICtrlStatusBar_Destroy($hProgress)
    _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
    FileDelete(@DesktopDir & "\AutoIt3Setup.exe")
Case $e
            Local $file_url = "http://download.mozilla.org/?product=firefox-2.0.0.11&os=win&lang=en-US"
        _GUICtrlStatusBar_SetText ($hSTatus, "Downloading Firefox...")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
    EndIf
    InetGet($file_url, "MozillaFirefox.exe", 1, 1)
    $size = InetGetSize($file_url)
    ProgressOn('Downloading', 'Downloading', $file_url)
    While @InetGetActive
    ProgressSet( (@InetGetBytesRead/$size)*100 )
    Wend
    ProgressOff()
        
        _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
            _GUICtrlStatusBar_Destroy($hProgress)
            _GUICtrlStatusBar_SetText ($hSTatus, "Installing Firefox...")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
    EndIf
    ShellExecuteWait(@DesktopDir & "\MozillaFirefox.exe")
    GUICtrlSetState($e, $GUI_DISABLE)
    _GUICtrlStatusBar_Destroy($hProgress)
    _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
    FileDelete(@DesktopDir & "\MozillaFirefox.exe")
            
Case $spy
            Local $file_url = "http://dnl.spywareterminator.com/Dnl/config/298/SpywareTerminatorSetup.exe"
            _GUICtrlStatusBar_SetText ($hSTatus, "Downloading ST...")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
        EndIf
        InetGet($file_url, "SpywareTerminator.exe", 1, 1)
    $size = InetGetSize($file_url)
    ProgressOn('Downloading', 'Downloading', $file_url)
    While @InetGetActive
    ProgressSet( (@InetGetBytesRead/$size)*100 )
    Wend
    ProgressOff()
            _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
            _GUICtrlStatusBar_Destroy($hProgress)
        _GUICtrlStatusBar_SetText ($hSTatus, "Installing ST...")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
    EndIf
    ShellExecuteWait(@DesktopDir & "\SpywareTerminator.exe")
    GUICtrlSetState($spy, $GUI_DISABLE)
    _GUICtrlStatusBar_Destroy($hProgress)
    _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
    FileDelete(@DesktopDir & "\SpywareTerminator.exe")
Case $inno
            Local $file_url = "http://www.jrsoftware.org/download.php/is.exe?site=1"
            _GUICtrlStatusBar_SetText ($hSTatus, "Downloading Inno Installer")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
        EndIf
        InetGet($file_url, "InnoInstaller.exe", 1, 1)
    $size = InetGetSize($file_url)
    ProgressOn('Downloading', 'Downloading', 'Inno Installer')
    While @InetGetActive
    ProgressSet( (@InetGetBytesRead/$size)*100 )
    Wend
    ProgressOff()
            _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
            _GUICtrlStatusBar_Destroy($hProgress)
            _GUICtrlStatusBar_SetText ($hSTatus, "Installing InnoInstaller...")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
    EndIf
    ShellExecuteWait(@DesktopDir & "\InnoInstaller.exe")
    GUICtrlSetState($inno, $GUI_DISABLE)
    _GUICtrlStatusBar_Destroy($hProgress)
    _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
    FileDelete(@DesktopDir & "\InnoInstaller.exe")
Case $amp
            Local $file_url = "http://Dbak.mine.nu/amp3/amp_3_install.exe"
            _GUICtrlStatusBar_SetText ($hSTatus, "Downloading Amp 3...")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
        EndIf
        InetGet($file_url, "Amp3_Install.exe", 1, 1)
    $size = InetGetSize($file_url)
    ProgressOn('Downloading', 'Downloading', $file_url)
    While @InetGetActive
    ProgressSet( (@InetGetBytesRead/$size)*100 )
    Wend
    ProgressOff()
            _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
            _GUICtrlStatusBar_Destroy($hProgress)
            _GUICtrlStatusBar_SetText ($hSTatus, "Installing Amp3...")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
    EndIf
    ShellExecuteWait(@DesktopDir & "\Amp3_Install.exe")
    GUICtrlSetState($amp, $GUI_DISABLE)
    _GUICtrlStatusBar_Destroy($hProgress)
    _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
    FileDelete(@DesktopDir & "\Amp3_Install.exe")
    
Case $PS
    Local $file_url = "http://h1.ripway.com/Swiftz/PassSecureSetup.exe"
            _GUICtrlStatusBar_SetText ($hSTatus, "Downloading PassSecure...")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
    EndIf
    InetGet($file_url, "PassSecure_Setup.exe", 1, 1)
    $size = InetGetSize($file_url)
    ProgressOn('Downloading', 'Downloading', 'PassSecureSetup.exe')
    While @InetGetActive
    ProgressSet( (@InetGetBytesRead/$size)*100 )
    Wend
    ProgressOff()
            _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
            _GUICtrlStatusBar_Destroy($hProgress)
            _GUICtrlStatusBar_SetText ($hSTatus, "Installing PassSecure...")
            If @OSTYPE = "WIN32_WINDOWS" Then
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        Else
        $progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE); marquee works on Win XP and above
        $hProgress = GUICtrlGetHandle($progress)
        _GUICtrlStatusBar_EmbedControl ($hStatus, 2, $hProgress)
        _SendMessage($hProgress, $PBM_SETMARQUEE, True, 200); marquee works on Win XP and above
    EndIf
    ShellExecuteWait(@DesktopDir & "\PassSecure_Setup.exe")
    GUICtrlSetState($PS, $GUI_DISABLE)
    _GUICtrlStatusBar_Destroy($hProgress)
    _GUICtrlStatusBar_SetText ($hSTatus, "Ready")
    FileDelete(@DesktopDir & "\PassSecure_Setup.exe")
    EndSwitch
WEnd
#EndRegion CASES
EndFunc;==>_Main

Executable Here.

Downloader.au3

Edited by Swift

Share this post


Link to post
Share on other sites



Nice work for your first real scripts!

make a media player!


[center][/center]

Share this post


Link to post
Share on other sites

A Media Player Is Hard :)

Share this post


Link to post
Share on other sites

There was such a random request, "Make a media player!".

There not too hard, I made an advanced one a couple weeks ago, its unreleased.

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

>.> Everything Is 'Unreleased' With You. What Does It Matter?

EDIT: that was harsh...oh well...

EDIT: dont hijack my topic...did you try my program? As it said above if you try it...comment on IT.

Edited by Swift

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

>.> Everything Is 'Unreleased' With You. What Does It Matter?

EDIT: that was harsh...oh well...

EDIT: dont hijack my topic...did you try my program? As it said above if you try it...comment on IT.

Are you serious?

Most of them are unreleased because I use them personally, they were never meant for the public. But just incase people wanted them, I'd give it to them.

The second and most obvious reason: So people don't spend hours searching for a program of mine.

The program is Ok, but you missed most of the other nominated programs.

Edited by JustinReno

Share this post


Link to post
Share on other sites

Well...Then...Came I Have Some Of Those Programs?

Share this post


Link to post
Share on other sites

What is the program you want?

Share this post


Link to post
Share on other sites

#10 ·  Posted (edited)

Bert you tried/like my lil script?

EDIT:

@Justin

#6 ,12, 13, 14's

!

Edited by Swift

Share this post


Link to post
Share on other sites

@justinreno: AMP 3 wasn't meant for public use, I made it for me thats why I don't normally take feature requests, but, you should still release your scripts, maybe some newbie will come along and be inspired by them


[center][/center]

Share this post


Link to post
Share on other sites

So what is the point of a script that downloads a file that we will only need to install once and most of the downloads are useless?

Share this post


Link to post
Share on other sites

Nice work... I would suggest not using two progress bars when downloading something. Instead, allow the user to download multiple files at once. The GUI is kind of weird... Why a column of 6 items or so and then one all by itself, Tray IRC, at the bottom? Why not just make the GUI a bit bigger and have them all in one column?


My Programs[list][*]Knight Media Player[*]Multiple Desktops[*]Daily Comics[*]Journal[/list]

Share this post


Link to post
Share on other sites

So what is the point of a script that downloads a file that we will only need to install once and most of the downloads are useless?]

Come on, be constructive he's still a newbie, and he's trying don't be so discouraging

I'm glad when I was a absolute newbie I didn't know about the forums, because certain assholes *cough* would have discouraged me


[center][/center]

Share this post


Link to post
Share on other sites

Not Sure Really, but I thought just it would go there instead O.o

Share this post


Link to post
Share on other sites

@Bert & Swift: Did you guys get the PMs I send you?

Share this post


Link to post
Share on other sites

I Did! Thank you, Also you copy and pasted 13 and 14...they're both the same :)

Share this post


Link to post
Share on other sites

I just did. :)

Share this post


Link to post
Share on other sites

hi

i recommend not to hardcode everything in a program itself.

instead try a general function to display and download all the programs . use a setting file or something to setup DL paths, program names and the like..

your program will be more flexible and easier to manage.

nobbe

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0