Jump to content

Inet Downloader


Clipper34
 Share

Recommended Posts

Hey Guys this is my first project!, well not really this one i've focused on the most. Heres a screen shot: Posted Image 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

Nice desktop, but not many here will run the exe, can you release the source code ?

Edited 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

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

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

Sorry i didn't release the source. So here it is:

#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

Sorry i didn't release the source. So here it is:

#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

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

  • Recently Browsing   0 members

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