Clipper34 Posted July 5, 2008 Share Posted July 5, 2008 Hey Guys this is my first project!, well not really this one i've focused on the most. Heres a screen shot: you can download files via the InetGet function and a few file options while your downloading. Also i'm working on making a favorites menu to store your favorite files if you forget and the ones you like. Thanks Clipper34.Inet_Downloader1.exe Link to comment Share on other sites More sharing options...
d4rk Posted July 5, 2008 Share Posted July 5, 2008 (edited) Nice desktop, but not many here will run the exe, can you release the source code ? Edited July 5, 2008 by d4rk [quote]Don't expect for a perfect life ... Expect a least troubles ones[/quote]Contact me : ass@kiss.toWhat I Have Done :Favorites Manager Mangage your favorite's folder, that's coolPC Waker For those who want to save stickersWebScipts Supporter For those who've just started with Web and WebScriptsTemporary Looker Simple but powerful to manage your Temporary folder, you know what you downloaded[UDF] _NumberFormat() Better performance on number display[UDF] _DirGet() What a folder contain [how many (hidden,normal,...) files], with one line of code[UDF] _IsPressEs() Just like _IsPress() but for a group of keys Link to comment Share on other sites More sharing options...
Andreik Posted July 5, 2008 Share Posted July 5, 2008 Can we see your source code? When the words fail... music speaks. Link to comment Share on other sites More sharing options...
nobbe Posted July 5, 2008 Share Posted July 5, 2008 it maybe for programming demonstration purpose . overall i dont have a need for such a program ? ( especially without the source muttley ) Link to comment Share on other sites More sharing options...
gseller Posted July 5, 2008 Share Posted July 5, 2008 Cool demo, I don't know that I would have a great need for it in these stages.. I noticed after it downloades it it shows the file infoo in the list but if it is closed down it does not show the presence of the file in the scriptdir.. Any plans to add this feature to see what you have downloaded already? Then there is doubleclick and possibly right click to handle the files? Link to comment Share on other sites More sharing options...
GEOSoft Posted July 5, 2008 Share Posted July 5, 2008 Nice desktop, but not many here will run the exe, can you release the source code ?Can we see your source code?http://www.autoitscript.com/forum/index.php?showtopic=65889 George Question about decompiling code? Read the decompiling FAQ and don't bother posting the question in the forums.Be sure to read and follow the forum rules. -AKA the AutoIt Reading and Comprehension Skills test.*** The PCRE (Regular Expression) ToolKit for AutoIT - (Updated Oct 20, 2011 ver:3.0.1.13) - Please update your current version before filing any bug reports. The installer now includes both 32 and 64 bit versions. No change in version number. Visit my Blog .. currently not active but it will soon be resplendent with news and views. Also please remove any links you may have to my website. it is soon to be closed and replaced with something else. "Old age and treachery will always overcome youth and skill!" Link to comment Share on other sites More sharing options...
Clipper34 Posted July 5, 2008 Author Share Posted July 5, 2008 Sorry i didn't release the source. So here it is: expandcollapse popup#include <GUIConstants.au3> GUICreate("Inet Downloader", 300, 300) GUISetIcon("shell32.dll", -136) TraySetIcon("shell32.dll", -136) TraySetPauseIcon("shell32.dll", -110) $Download_Group = GUICtrlCreateGroup("Download Files", 1, 1, 100, 50) $Download_Button = GUICtrlCreateButton("Download File", 5, 15, 80, 30) $File_Option_Group = GUICtrlCreateGroup("File Options", 1, 55, 100, 160) $File_Open = GUICtrlCreateButton("Open Files", 5, 70, 80, 30) $File_Delete = GUICtrlCreateButton("Delete Files", 5, 105, 80, 30) $File_Copy = GUICtrlCreateButton("Copy Files", 5, 140, 80, 30) $File_Move = GUICtrlCreateButton("Get File Size", 5, 175, 80, 30) $Stop_Download_Group = GUICtrlCreateGroup("Stop Downloads", 1, 220, 100, 50) $Stop_Download_Button = GUICtrlCreateButton("Stop Download", 5, 235, 90, 30) $Downloaded_Files = GUICtrlCreateListView("Downloaded Files", 100, 1, 200, 300) GUISetState() While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case $msg = $Download_Button $URL = InputBox("File URL", "Type the files URL to download:") $Filename = InputBox("Filename", "Type the filename to download:") $Download = InetGet($URL, $Filename) If $Download = 1 Then GUICtrlCreateListViewItem($Filename, $Downloaded_Files) While @InetGetActive TrayTip("Downloading", "Downloading Bytes: " & @InetGetBytesRead, 10, 16) Sleep(250) Wend EndIf If $Download = @error Or $Download = 0 Then MsgBox(4112, "ERROR!", "An Error has occured with Error #:" & @error) Case $msg = $File_Open $Open = FileOpenDialog("Browse for files...", @MyDocumentsDir, "All (*.*)") If FileExists($Open) Then ShellExecute($Open) EndIf If FileExists($Open) Not Then $Create_Option = InputBox("Create Option", "The file does not exist, do you wish to create it <yes/no>:") If $Create_Option = "yes" Or $Create_Option = "Yes" Then FileCopy($Open) ShellExecute($Open) EndIf If $Create_Option = "no" Or $Create_Option = "No" Then WinClose("Create Option") EndIf EndIf Case $msg = $File_Delete $Delete_File = InputBox("File Delete", "Type the filename and extension to be deleted:") $Delete = FileDelete($Delete_File) If $Delete = 0 Or $Delete = @error Then MsgBox(4112, "ERROR!", "An Error has occured with Error #:" & @error) Case $msg = $File_Copy $Copy = InputBox("File Copy", "Type the filename to copy:") $Copy_File = FileCopy($Copy, @DesktopDir) If $Copy_File = 0 Or $Copy_File = @error Then MsgBox(4112, "ERROR!", "An Error has occured with Error #:" & @error) Case $msg = $Stop_Download_Button If @InetGetActive Then InetGet("abort") MsgBox(32, "Notice!", "The download was successfuly aborted") EndIf If @InetGetActive Not Then MsgBox(32, "Notice!", "You must have a active download to stop the current download") Case $msg = $File_Move $File_Size = InputBox("Get File Size", "Type the URL to retreive the file size in bytes:") $Get_File_Size = InetGetSize($File_Size) If $Get_File_Size = 1 Then MsgBox(32, "Notice!", "Bytes:" & $Get_File_Size) EndIf If $Get_File_Size = 0 Or $Get_File_Size = @error Then MsgBox(4112, "ERROR!", "An Error occured with Error #:" & @error) EndSelect WEnd @gesler, yes i'm going to start on that today and thank you all for the comments. Clipper34. Link to comment Share on other sites More sharing options...
Andreik Posted July 5, 2008 Share Posted July 5, 2008 Sorry i didn't release the source. So here it is: expandcollapse popup#include <GUIConstants.au3> GUICreate("Inet Downloader", 300, 300) GUISetIcon("shell32.dll", -136) TraySetIcon("shell32.dll", -136) TraySetPauseIcon("shell32.dll", -110) $Download_Group = GUICtrlCreateGroup("Download Files", 1, 1, 100, 50) $Download_Button = GUICtrlCreateButton("Download File", 5, 15, 80, 30) $File_Option_Group = GUICtrlCreateGroup("File Options", 1, 55, 100, 160) $File_Open = GUICtrlCreateButton("Open Files", 5, 70, 80, 30) $File_Delete = GUICtrlCreateButton("Delete Files", 5, 105, 80, 30) $File_Copy = GUICtrlCreateButton("Copy Files", 5, 140, 80, 30) $File_Move = GUICtrlCreateButton("Get File Size", 5, 175, 80, 30) $Stop_Download_Group = GUICtrlCreateGroup("Stop Downloads", 1, 220, 100, 50) $Stop_Download_Button = GUICtrlCreateButton("Stop Download", 5, 235, 90, 30) $Downloaded_Files = GUICtrlCreateListView("Downloaded Files", 100, 1, 200, 300) GUISetState() While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case $msg = $Download_Button $URL = InputBox("File URL", "Type the files URL to download:") $Filename = InputBox("Filename", "Type the filename to download:") $Download = InetGet($URL, $Filename) If $Download = 1 Then GUICtrlCreateListViewItem($Filename, $Downloaded_Files) While @InetGetActive TrayTip("Downloading", "Downloading Bytes: " & @InetGetBytesRead, 10, 16) Sleep(250) Wend EndIf If $Download = @error Or $Download = 0 Then MsgBox(4112, "ERROR!", "An Error has occured with Error #:" & @error) Case $msg = $File_Open $Open = FileOpenDialog("Browse for files...", @MyDocumentsDir, "All (*.*)") If FileExists($Open) Then ShellExecute($Open) EndIf If FileExists($Open) Not Then $Create_Option = InputBox("Create Option", "The file does not exist, do you wish to create it <yes/no>:") If $Create_Option = "yes" Or $Create_Option = "Yes" Then FileCopy($Open) ShellExecute($Open) EndIf If $Create_Option = "no" Or $Create_Option = "No" Then WinClose("Create Option") EndIf EndIf Case $msg = $File_Delete $Delete_File = InputBox("File Delete", "Type the filename and extension to be deleted:") $Delete = FileDelete($Delete_File) If $Delete = 0 Or $Delete = @error Then MsgBox(4112, "ERROR!", "An Error has occured with Error #:" & @error) Case $msg = $File_Copy $Copy = InputBox("File Copy", "Type the filename to copy:") $Copy_File = FileCopy($Copy, @DesktopDir) If $Copy_File = 0 Or $Copy_File = @error Then MsgBox(4112, "ERROR!", "An Error has occured with Error #:" & @error) Case $msg = $Stop_Download_Button If @InetGetActive Then InetGet("abort") MsgBox(32, "Notice!", "The download was successfuly aborted") EndIf If @InetGetActive Not Then MsgBox(32, "Notice!", "You must have a active download to stop the current download") Case $msg = $File_Move $File_Size = InputBox("Get File Size", "Type the URL to retreive the file size in bytes:") $Get_File_Size = InetGetSize($File_Size) If $Get_File_Size = 1 Then MsgBox(32, "Notice!", "Bytes:" & $Get_File_Size) EndIf If $Get_File_Size = 0 Or $Get_File_Size = @error Then MsgBox(4112, "ERROR!", "An Error occured with Error #:" & @error) EndSelect WEnd @gesler, yes i'm going to start on that today and thank you all for the comments. Clipper34.Thanks for sharing Clipper34! When the words fail... music speaks. Link to comment Share on other sites More sharing options...
rasim Posted July 6, 2008 Share Posted July 6, 2008 When i close InputBox two times this error occured Link to comment Share on other sites More sharing options...
Clipper34 Posted July 7, 2008 Author Share Posted July 7, 2008 Yes, i put that there if the two input boxes = "" but it will show an error on some of the functions inside the GUI. Clipper34. 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