Jump to content

Best Programs Of '07 GUI!

Swift

By Swift,
in AutoIt Example Scripts

 Share

Recommended Posts

Swift Universalist

Swift

Posted
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
Link to comment
Share on other sites
Swift Universalist

Swift

Posted
  • Author
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
Link to comment
Share on other sites
JustinReno Universalist

JustinReno

Posted
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
Link to comment
Share on other sites
BrettF Universalist

BrettF

Posted
Posted

What is the program you want?

I'm interested into the workings of #14. Could you PM it to me by any chance?
Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version!
Link to comment
Share on other sites
Achilles Universalist

Achilles

Posted
Posted

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]
Link to comment
Share on other sites
DirtDBaK Universalist

DirtDBaK

Posted
Posted

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]

Link to comment
Share on other sites
nobbe Universalist

nobbe

Posted
Posted

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

Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

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