Downloaden von einer Webseite mit Passwort

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Kaze91.

    Downloaden von einer Webseite mit Passwort

    Hey Leute und zwar habe ich eine Linux Box auf der eine Art Webseite ist, auf der eine Datei ist die sich alle paar Minuten neu generiert.
    Jetzt wollte ich die Datei mittels
    My.Computer.Network.DownloadFile(address ,destinationFileName ,userName ,password ,showUI ,connectionTimeout ,overwrite ,onUserCancel)

    herunterladen ,was solange klappt bis ich den Zugang Passwort schütze.

    Adresse is halt 192.168.XXX.XX und kein ftp.

    Hoffe ihr könnt mir helfen

    Mfg

    Niemand da der mir helfen kann?

    VB.NET-Quellcode

    1. Imports System.Net
    3. Public Class Form1
    6. ' WebClient für Datei-Download
    7. Private WithEvents httpClient As WebClient
    9. ' Datei-Download starten
    10. Private Sub Button1_Click(ByVal sender As System.Object, _
    11. ByVal e As System.EventArgs) Handles Button1.Click
    13. Dim wc As New Net.WebClient
    14. wc.Credentials = New Net.NetworkCredential("admin", "passwort")
    16. ' Fortschrittsanzeige zurücksetzen
    17. lblProgress.Text = "0 KB"
    18. ProgressBar1.Value = 0
    19. ProgressBar1.Maximum = 100
    21. ' Neue Instanz der WebClient-Klasse erstellen
    22. httpClient = New WebClient
    25. ' URL der Datei (hier die vollständige URL eintragen)
    26. Dim sURL As String = "http://192.168.178.38/control/build_live_url"
    28. ' Ziel-Datei (lokal)
    29. Dim sLocalFile As String = "C:\stream.m3u"
    31. Button1.Enabled = False
    32. Try
    33. ' Download asynchros starten, damit wir den Fortschritt
    34. ' anzeigen können
    35. httpClient.DownloadFileAsync(New Uri(sURL), sLocalFile)
    36. lblProgress.Visible = True
    37. ProgressBar1.Visible = True
    39. Catch ex As Exception
    40. MsgBox("Fehler!" & vbCrLf & ex.Message, MsgBoxStyle.Exclamation)
    41. Button1.Enabled = True
    42. End Try
    43. End Sub
    45. ' Download beendet
    46. Private Sub httpClient_DownloadFileCompleted(ByVal sender As Object, _
    47. ByVal e As System.ComponentModel.AsyncCompletedEventArgs) _
    48. Handles httpClient.DownloadFileCompleted
    50. MsgBox("Download erfolgreich durchgeführt", MsgBoxStyle.Information)
    51. ProgressBar1.Visible = True
    52. lblProgress.Visible = True
    53. Button1.Enabled = True
    54. End Sub
    56. ' Fortschrittsanzeige
    57. Private Sub httpClient_DownloadProgressChanged(ByVal sender As Object, _
    58. ByVal e As System.Net.DownloadProgressChangedEventArgs) _
    59. Handles httpClient.DownloadProgressChanged
    61. With ProgressBar1
    62. ' prozentuale Anzeige des Fortschritts in der ProgressBar
    63. .Value = e.ProgressPercentage
    65. ' KB-Fortschrittanzeige im Label
    66. Dim TotalBytes As Long = e.TotalBytesToReceive / 1024
    67. Dim Bytes As Long = e.BytesReceived / 1024
    68. If TotalBytes < 1 Then TotalBytes = 1
    69. If Bytes < 1 Then Bytes = 1
    71. lblProgress.Text = Bytes.ToString & " KB von " & TotalBytes.ToString & " KB"
    72. End With
    73. End Sub
    75. End Class

    oder wieso geht das nicht

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Dim wcl As New Net.WebClient
    5. wcl.Credentials = New Net.NetworkCredential("root", "coolstream")
    6. wcl.DownloadFile("http://192.168.178.38/control/build_live_url", "C:\test.txt")
    7. End Sub
    8. End Class

Facebook
Telefonspende