Dateien herunterladen und Checksumme erstellen.

  • VB.NET

Es gibt 22 Antworten in diesem Thema. Der letzte Beitrag () ist von coolerj.

    EiPott schrieb:

    String.Split(vbCrLf)

    Leider hat kann .NET nicht nach String-Delimitern trenne, sondern nur nach Char :huh:

    Man kann sich z.B. so behelfen

    VB.NET-Quellcode

    1. Dim line As String = "1" & vbCrLf & "2" & vbCrLf & "3"
    2. Dim sa() As String = line.Split(New Char() {vbCr, vbLf}, StringSplitOptions.RemoveEmptyEntries)

    oder man nimmt gleich die alte VB6 Methode aus dem Microsoft.VisualBasic Namespace:

    VB.NET-Quellcode

    1. Dim line As String = "1" & vbCrLf & "2" & vbCrLf & "3"
    2. Dim sa() As String = Microsoft.VisualBasic.Split(line, vbCrLf)

    Ok jetzt hab ich ein Problem wenn die Datei nicht existier schmiert das ganze ab.

    VB.NET-Quellcode

    1. Imports System.Security.Cryptography
    2. Imports System.Text
    3. Imports System.IO
    4. Imports System.Net
    6. Public Class Form1
    8. Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    10. End Sub
    12. Public Function MD5FileHash(ByVal sFile As String) As String
    13. Dim MD5 As New MD5CryptoServiceProvider
    14. Dim Hash As Byte()
    15. Dim Result As String = ""
    16. Dim Tmp As String = ""
    18. Dim FN As New FileStream(sFile, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
    19. MD5.ComputeHash(FN)
    20. FN.Close()
    22. Hash = MD5.Hash
    23. For i As Integer = 0 To Hash.Length - 1
    24. Tmp = Hex(Hash(i))
    25. If Len(Tmp) = 1 Then Tmp = "0" & Tmp
    26. Result += Tmp
    27. Next
    28. Return Result
    29. End Function
    31. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    32. TextBox1.Text = "Patchlist wird geladen..."
    33. Button1.Enabled = False
    34. Dim webClient As New WebClient
    35. Dim seitenInhalt As String = webClient.DownloadString("http://localhost/patcher/index.php")
    36. TextBox1.Text = "Patchlist wurde geladen" & vbCrLf & TextBox1.Text
    37. Dim dateien As Array = seitenInhalt.Split(vbCrLf)
    38. For Each datei As String In dateien
    39. Dim splitarray As Array = datei.Split("|")
    40. If splitarray(0) = " " Then
    41. Else
    42. TextBox1.Text = splitarray(0) & " wird geprüft..." & vbCrLf & TextBox1.Text
    43. Dim localHash = MD5FileHash(Application.StartupPath() & splitarray(0))
    44. If localHash = splitarray(1) Then
    45. TextBox1.Text = " ist aktuell." & TextBox1.Text
    46. Else
    47. TextBox1.Text = " wird geladen." & TextBox1.Text
    48. webClient.DownloadFile("http://localhost/patcher/client/" & splitarray(0), Application.StartupPath() & splitarray(0))
    49. End If
    50. End If
    51. Next
    52. End Sub
    53. End Class

    Ich will haben das er diese datei dann ganz einfach runterlädt

    VB.NET-Quellcode

    1. Imports System.Net
    3. Public Class Form1
    5. Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    7. End Sub
    9. Public Function MD5FileHash(ByVal sFile As String) As String
    10. Dim MD5 As New MD5CryptoServiceProvider
    11. Dim Hash As Byte()
    12. Dim Result As String = ""
    13. Dim Tmp As String = ""
    14. If File.Exists(sFile) Then
    15. Dim FN As New FileStream(sFile, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
    16. MD5.ComputeHash(FN)
    17. FN.Close()
    19. Hash = MD5.Hash
    20. For i As Integer = 0 To Hash.Length - 1
    21. Tmp = Hex(Hash(i))
    22. If Len(Tmp) = 1 Then Tmp = "0" & Tmp
    23. Result += Tmp
    24. Next
    25. Return Result
    26. Else
    27. Return 0
    28. End If
    29. End Function
    31. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    32. TextBox1.Text = "Patchlist wird geladen..."
    33. Button1.Enabled = False
    34. Dim webClient As New WebClient
    35. Dim seitenInhalt As String = webClient.DownloadString("http://localhost/patcher/index.php")
    36. TextBox1.Text = "Patchlist wurde geladen" & vbCrLf & TextBox1.Text
    37. Dim dateien As Array = seitenInhalt.Split(vbCrLf)
    38. For Each datei As String In dateien
    39. Dim splitarray As Array = datei.Split("|")
    40. If splitarray(0) = " " Then
    41. Else
    42. TextBox1.Text = splitarray(0) & " wird geprüft..." & vbCrLf & TextBox1.Text
    43. Dim localHash = MD5FileHash(Application.StartupPath() & "/" & splitarray(0))
    44. If localHash = splitarray(1) Then
    45. TextBox1.Text = " ist aktuell." & TextBox1.Text
    46. Else
    47. TextBox1.Text = " wird geladen." & TextBox1.Text
    48. webClient.DownloadFile("http://localhost/patcher/client/" & splitarray(0), Application.StartupPath() & "/" & splitarray(0))
    49. End If
    50. End If
    51. Next
    52. End Sub
    53. End Class


    Jetzt kommt Ausnahmefehler während einer WebClient-Anforderung

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „coolerj“ ()

Facebook
Telefonspende