Swift Posted February 4, 2008 Share Posted February 4, 2008 (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:expandcollapse popup#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;==>_MainExecutable Here.Downloader.au3 Edited February 4, 2008 by Swift Link to comment Share on other sites More sharing options...
DirtDBaK Posted February 5, 2008 Share Posted February 5, 2008 Nice work for your first real scripts! make a media player! [center][/center] Link to comment Share on other sites More sharing options...
Swift Posted February 5, 2008 Author Share Posted February 5, 2008 A Media Player Is Hard Link to comment Share on other sites More sharing options...
JustinReno Posted February 5, 2008 Share Posted February 5, 2008 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. Link to comment Share on other sites More sharing options...
Swift Posted February 5, 2008 Author Share Posted February 5, 2008 (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 February 5, 2008 by Swift Link to comment Share on other sites More sharing options...
JustinReno Posted February 5, 2008 Share Posted February 5, 2008 (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 February 5, 2008 by JustinReno Link to comment Share on other sites More sharing options...
Swift Posted February 5, 2008 Author Share Posted February 5, 2008 Well...Then...Came I Have Some Of Those Programs? Link to comment Share on other sites More sharing options...
JustinReno Posted February 5, 2008 Share Posted February 5, 2008 What is the program you want? Link to comment Share on other sites More sharing options...
BrettF Posted February 5, 2008 Share Posted February 5, 2008 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 More sharing options...
Swift Posted February 5, 2008 Author Share Posted February 5, 2008 (edited) Bert you tried/like my lil script? EDIT: @Justin #6 ,12, 13, 14's ! Edited February 5, 2008 by Swift Link to comment Share on other sites More sharing options...
DirtDBaK Posted February 5, 2008 Share Posted February 5, 2008 @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] Link to comment Share on other sites More sharing options...
Thatsgreat2345 Posted February 5, 2008 Share Posted February 5, 2008 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? Link to comment Share on other sites More sharing options...
Achilles Posted February 5, 2008 Share Posted February 5, 2008 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 More sharing options...
DirtDBaK Posted February 5, 2008 Share Posted February 5, 2008 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 discouragingI'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 More sharing options...
Swift Posted February 5, 2008 Author Share Posted February 5, 2008 Not Sure Really, but I thought just it would go there instead O.o Link to comment Share on other sites More sharing options...
JustinReno Posted February 5, 2008 Share Posted February 5, 2008 @Bert & Swift: Did you guys get the PMs I send you? Link to comment Share on other sites More sharing options...
Swift Posted February 5, 2008 Author Share Posted February 5, 2008 I Did! Thank you, Also you copy and pasted 13 and 14...they're both the same Link to comment Share on other sites More sharing options...
JustinReno Posted February 5, 2008 Share Posted February 5, 2008 I just did. Link to comment Share on other sites More sharing options...
nobbe Posted February 5, 2008 Share Posted February 5, 2008 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 More sharing options...
icadea Posted February 5, 2008 Share Posted February 5, 2008 thanks for providing the script. It gives me oppurtunity to learn from it. Link to comment Share on other sites More sharing options...
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