WebBrowser descargar automatica de archivos

[cael1011]

Alguien me puede ayudar con un proyecto en el cual hay un link, el cual al abrir automáticamente genera una descarga de un archivo, he intentado descargarlo con la url completa junta con al extensión, pero en cada descarga crea una archivo con distinto nombre, así que descargarlo de ese modo no se puede, la única forma de descargar creo yo seria reconociendo el link de descarga hacer automático la ventanita típica que aparece con (abrir, guardar, cancelar), que guarde en ruta y con que nombre uno desee alguien me puede ayudar, gracias.

[okik]

para mostrar el cuadro guardar como usa   ShowSaveAsDialog()

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Button1.Enabled = False
       WebBrowser1.Navigate("https://s25.postimg.org/6v03o721b/OKIK_space.jpg")
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       WebBrowser1.ShowSaveAsDialog()
   End Sub

   Private Sub WebBrowser1_Navigated(sender As Object, e As WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
       Button1.Enabled = True
   End Sub
End Class



Automático al abrir

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Dim WB As New WebBrowser
    Sub New()
        InitializeComponent()
        WB.Navigate("https://s25.postimg.org/6v03o721b/OKIK_space.jpg")
        AddHandler WB.DocumentCompleted, AddressOf WB_DocumentCompleted
    End Sub

    Private Sub WB_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
        WB.ShowSaveAsDialog()
    End Sub
End Class