Keskustelu: Ohjelmointikysymykset: VB.NET Tiedoston lataus netistä

Dim etäUri As String = "https://www.ohjelmointiputka.net/img/"

Dim filu As String = "putka.jpg"

Dim WebResurssi As String = Nothing

WebResurssi = etäUri + filu

Dim WebAsiakas As New System.Net.WebClient()

Dim z As Long

z = messagebox.Show("Ladataanko tiedosto: " + filu.ToUpper + _
"  osoitteesta: " + etäUri, MessageBoxIcon.Question, _
MessageBoxButtons.YesNo)

Select Case z

    Case 6

        WebAsiakas.DownloadFile(WebResurssi, filu)
        messagebox.Show("Tiedosto: " + filu.ToUpper + " on tallennettu hakemistoon:" _
        + Environment.NewLine() + Application.StartupPath)

    Case Else

End Select

Public IEtila As Boolean

'...
'...

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)

   Dim kokopolku As New FileInfo("C:\Program files\Internet Explorer\iexplore.exe")
   Dim löytyi As Boolean = kokopolku.Exists

      If löytyi Then

      'Dim Uri As String = "Http://www...ja/jotain.../"

      'testi - tallenna vaikka muistiolla työpöydälle "tyhjä" tiedosto - testi.exe
      Dim Uri As String =  Microsoft.VisualBasic.Environ("userprofile") + "\Työpöytä\"
      Dim filu As String = "testi.exe"

      Dim WebResurssi As String = Nothing

      WebResurssi = Uri + filu

      Dim ajaIE As Long = Shell("C:\Program files\Internet Explorer\iexplore.exe " + WebResurssi, AppWinStyle.Hide)

      IEtila = True

   End If

End Sub

Private Sub tapaProsessi(ByVal exenimi As String)

      Dim prosessi As System.Diagnostics.Process(), i As Integer
      prosessi = System.Diagnostics.Process.GetProcessesByName(exenimi)

   If Not prosessi Is Nothing Then

      For i = 0 To prosessi.GetUpperBound(0)

         Try
            prosessi(i).Kill()
         Catch ex As Exception
         End try

      Next i

   End If

Private Sub Form1_Validating(sender As System.Object, e As System.ComponentModel.CancelEventArgs)

   If IETila = True Then
      tapaProsessi("iexplore")
      IEtila = False
   End If

End Sub

'...
'...
Imports Microsoft.VisualBasic

'....

Private Declare Auto Function DoFileDownload Lib "shdocvw" _
(ByVal lpszFile As String) As Long

'...

'...

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)

    Dim Uri As String = "Http://www.ohjelmointiputka.net/img/"
    Dim filu As String = "putka.jpg"
    Dim webRessu As String = Nothing

    webRessu  = Uri + filu

    Call DoFileDownload(webRessu)

End Sub

'...
Imports SHDocVw

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs)

   Dim ie As New SHDocVw.InternetExplorerClass
   Dim Selain As IWebBrowserApp = CType(ie, IWebBrowserApp)

   'Dim Uri As String = "Http://www...ja/jotain.../"

   'testi - tallenna vaikka muistiolla työpöydälle "tyhjä" tiedosto - testi.exe
   Dim Uri As String = Microsoft.VisualBasic.Environ("userprofile") + "\Työpöytä\"
   Dim filu As String = "testi.exe"

   Dim WebRessu As String = Nothing

   WebRessu = Uri + filu

   Selain.Visible = False
   Selain.Navigate(WebRessu, Nothing, Nothing, Nothing, Nothing)
   Selain.Quit
   Selain = Nothing
   ie = Nothing

End Sub