Systemauslastung zu hoch beim Programm

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von oli-f.

    Systemauslastung zu hoch beim Programm

    Hallo VBer

    Ich habe eine frage, ich habe mir ein kleinen Patcher gemacht, doch der geht recht in die systemleistung rein. kann man das ein wenig verkleinern? der soll ja nur runterladen und nicht grosse funktionen ausführen oder sonst was.
    ich erstelle in mit "Optimieren"= JA und NET.Framework 4

    hier der code:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Security.Cryptography
    4. Public Class Form1
    6. Dim PATCHURL As String = "http://************.ch/refine/patcher_row/"
    7. Dim PATCHLIST As String = "http://************.ch/refine/patchlist.xml"
    9. Dim AppPath As String = My.Computer.FileSystem.CurrentDirectory
    10. Dim WithEvents PatchDownloader As New System.Net.WebClient
    11. Dim WithEvents PatchListDownloader As New System.Net.WebClient
    12. Dim DLURLS As New List(Of String)
    13. Dim ANZAHLDLS As Integer = 0
    14. Dim busy As Boolean = Nothing
    17. Public Function MD5FileHash(ByVal sFile As String) As String
    18. Dim MD5 As New MD5CryptoServiceProvider
    19. Dim Hash As Byte()
    20. Dim Result As String = ""
    21. Dim Tmp As String = ""
    23. Dim FN As New FileStream(sFile, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
    24. MD5.ComputeHash(FN)
    25. FN.Close()
    27. Hash = MD5.Hash
    28. For i As Integer = 0 To Hash.Length - 1
    29. Tmp = Hex(Hash(i))
    30. If Len(Tmp) = 1 Then Tmp = "0" & Tmp
    31. Result += Tmp
    32. Next
    33. Return Result
    34. End Function
    36. Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    37. lbl_aktuelledatei.Text = "Starte Patchvorgang.."
    38. BG_List.RunWorkerAsync()
    40. End Sub
    42. Private Sub BG_List_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BG_List.DoWork
    43. PatchListDownloader.DownloadFileAsync(New Uri(PATCHLIST), AppPath & "\patchlist.xml")
    45. End Sub
    47. Private Sub PatchListDownloader_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles PatchListDownloader.DownloadFileCompleted
    48. lbl_aktuelledatei.Text = "Patchlist herruntergeladen. Starte nun das Patchen."
    49. PB_AktuDatei.Value = 0
    50. PB_GSM.Value = 0
    51. BG_Pacher.RunWorkerAsync()
    53. End Sub
    55. Private Sub BG_Pacher_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BG_Pacher.DoWork
    57. If BG_Pacher.CancellationPending = True Then
    58. BG_Pacher.CancelAsync()
    59. End If
    62. Try
    63. Dim xDocument As New Xml.XmlDocument
    64. xDocument.Load(AppPath & "\patchlist.xml")
    66. lbl_aktuelledatei.Text = "Starte nun das Patchen"
    69. For Each node As Xml.XmlNode In xDocument.SelectNodes("Dateien/Datei")
    71. Dim DateiPfad As String = AppPath & "\" & node.Attributes("Dateiname").InnerText
    72. Dim CheckSum As String = node.Attributes("Checksum").InnerText
    73. Dim check As Boolean = Nothing
    75. lbl_aktuelledatei.Text = "Prüfe : " & node.Attributes("Dateiname").InnerText
    77. If File.Exists(DateiPfad) = False Then
    79. DLURLS.Add(PATCHURL & node.Attributes("Dateiname").InnerText.Replace("\", "/"))
    80. Else
    82. If CheckSum = MD5FileHash(DateiPfad) Then
    83. check = True
    85. Else
    87. DLURLS.Add(PATCHURL & node.Attributes("Dateiname").InnerText.Replace("\", "/"))
    88. check = False
    90. End If
    93. End If
    94. Next
    96. ANZAHLDLS = DLURLS.Count
    97. PB_GSM.Maximum = ANZAHLDLS
    98. PB_GSM.Value = 0
    100. Catch ex As Exception
    102. End Try
    107. Do
    109. Try
    110. If PatchDownloader.IsBusy = True Then
    111. busy = True
    112. Else
    114. For Each DownloadDatei In DLURLS
    116. If IsNothing(DownloadDatei) Then Exit Do
    118. Do
    120. If busy = False Then
    121. lbl_aktuelledatei.Text = "Patche : " & IO.Path.GetFileName(DownloadDatei)
    122. Dim SpeicherOrt As String = My.Computer.FileSystem.CurrentDirectory & "\" & DownloadDatei.Replace(PATCHURL, "").Replace("/", "\")
    124. Dim uri As New Uri(DownloadDatei)
    125. If File.Exists(SpeicherOrt) = True Then
    126. File.Delete(SpeicherOrt)
    127. End If
    129. PatchDownloader.DownloadFileAsync(uri, SpeicherOrt)
    130. busy = True
    131. Exit Do
    133. End If
    136. Loop
    139. Next
    141. File.Delete(AppPath & "\patchlist.xml")
    142. Exit Do
    144. End If
    146. Catch ex As Exception
    148. End Try
    150. Loop
    152. End Sub
    154. Private Sub PatchDownloader_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles PatchDownloader.DownloadFileCompleted
    155. busy = False
    156. If PB_GSM.Value = ANZAHLDLS Then
    158. Else
    159. PB_GSM.Value += 1
    160. End If
    161. End Sub
    163. Private Sub PatchDownloader_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles PatchDownloader.DownloadProgressChanged
    164. PB_AktuDatei.Maximum = e.TotalBytesToReceive
    165. PB_AktuDatei.Value = e.BytesReceived
    167. End Sub
    168. End Class


    Und em entschuldigt, ich bin erst seit ca 1 2 wochen wirklich am lernen =)

    mfg

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

    hm, also zwei Tipps zu dir:

    1) dein Code ist zu lang. Es sind nur wenige hier, die sich die Zeit nehmen um solche Probleme ernsthaft anzugehen. Frage muss kurz sein. So nach dem Moto: Hier Problem. Was machen?...

    2) ich denke, (ohne jetzt dein Programm auseinander genommen zu haben) dass dein Fenster einfach nicht reagiert. Oder was auch immer. Dazu gibt es mehrere Threads als Lösung. Ist aber für einen Anfänger relativ umständlich zu vermitteln. Vielleicht suchst du nach ersten Schritten im Netz. Baust das Programm um, und stellst dann deine Fragen.

    dazu muss du wissen:
    - wie man einen Thread erstellt
    - wie man eine Funktion oder einen sub delegiert (delegate)
    - was sich mit invoke aufsich hat.

    dann wird es denke ich mal besser laufen. die ganzen do schleifen können da raus. die machen so wieso nur die arbeit. das braucht die Form1 nicht...

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

    Danke für deine Antwort.
    Das Fenster geht schon, nur meine CPU geht auf ca 20-25% (hexacore und 16gb Ram)
    hmm ja da hst du recht das ich mit dem noch nicht soo vertraut bin =) aber ich versuche mein bestes.

    Was meinst du mit:

    EugenIS schrieb:

    die ganzen do schleifen können da raus. die machen so wieso nur die arbeit. das braucht die Form1 nicht...
    Kann ich die durch etwas anderes ersetzen?
    Danke

    so ich hoffe es funktioniert...

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Security.Cryptography
    4. Public Class Form1
    5. Dim PATCHURL As New Uri("http://procoder.ch/refine/patcher_row/")
    6. Dim PATCHLIST As New Uri("http://procoder.ch/refine/patchlist.xml")
    8. Dim AppPath As String = Application.StartupPath
    9. Dim WithEvents PatchDownloader As New System.Net.WebClient
    10. Dim WithEvents PatchListDownloader As New System.Net.WebClient
    11. Dim DLURLS As New List(Of String)
    13. Dim MD5 As New MD5CryptoServiceProvider
    14. Public Function MD5FileHash(ByVal sFile As String) As String
    15. Dim Hash As Byte()
    16. Dim Result As String = ""
    18. Dim FN As New FileStream(sFile, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
    19. Hash = MD5.ComputeHash(FN)
    20. FN.Close()
    22. For i As Integer = 0 To Hash.Length - 1
    23. Result += Hash(i).ToString("X2")
    24. Next
    26. Return Result.ToUpper
    27. End Function
    29. Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    30. lbl_aktuelledatei.Text = "Starte Patchvorgang.."
    31. BG_List.RunWorkerAsync()
    32. End Sub
    34. Private Sub BG_List_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BG_List.DoWork
    35. PatchListDownloader.DownloadFile(PATCHLIST, AppPath & "\patchlist.xml")
    36. 'lbl_aktuelledatei.Text = "Patchlist herruntergeladen. Starte nun das Patchen."
    38. PB_AktuDatei.Value = 0
    39. PB_GSM.Value = 0
    40. BG_Pacher.RunWorkerAsync()
    41. End Sub
    43. Dim xDocument As New Xml.XmlDocument
    44. Private Sub BG_Pacher_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BG_Pacher.DoWork
    45. If BG_Pacher.CancellationPending Then
    46. BG_Pacher.CancelAsync()
    47. End If
    49. Try
    50. XDocument.Load(AppPath & "\patchlist.xml")
    51. 'lbl_aktuelledatei.Text = "Starte nun das Patchen"
    53. For Each node As Xml.XmlNode In xDocument.SelectNodes("Dateien/Datei")
    54. Dim DateiPfad As String = AppPath & "\" & node.Attributes("Dateiname").InnerText
    55. Dim CheckSum As String = node.Attributes("Checksum").InnerText
    56. 'lbl_aktuelledatei.Text = "Prüfe : " & node.Attributes("Dateiname").InnerText
    58. If Not File.Exists(DateiPfad) Then
    59. ' Datei existiert nicht
    60. DLURLS.Add(PATCHURL.AbsoluteUri & node.Attributes("Dateiname").InnerText.Replace("\", "/"))
    61. ElseIf Not CheckSum.ToUpper = MD5FileHash(DateiPfad) Then
    62. ' Datei inaktuell
    63. DLURLS.Add(PATCHURL.AbsoluteUri & node.Attributes("Dateiname").InnerText.Replace("\", "/"))
    64. Else
    65. ' Datei aktuell
    66. End If
    67. Next
    69. PB_GSM.Maximum = DLURLS.Count + 1
    70. PB_GSM.Value = 0
    71. Catch
    72. End Try
    74. Try
    75. For Each DownloadDatei In DLURLS
    76. If Not IsNothing(DownloadDatei) Then
    77. ' Spart wieder CPU
    78. ' IsBusy ersetzt busy
    79. While PatchDownloader.IsBusy
    80. Threading.Thread.Sleep(100)
    81. End While
    83. 'lbl_aktuelledatei.Text = "Patche : " & IO.Path.GetFileName(DownloadDatei)
    84. Dim SpeicherOrt As String = AppPath & "\" & DownloadDatei.Replace(PATCHURL.AbsoluteUri, "").Replace("/", "\")
    86. Dim uri As New Uri(DownloadDatei)
    87. If File.Exists(SpeicherOrt) Then
    88. File.Delete(SpeicherOrt)
    89. End If
    91. PatchDownloader.DownloadFileAsync(uri, SpeicherOrt)
    92. End If
    93. Next
    95. File.Delete(AppPath & "\patchlist.xml")
    96. Catch
    97. End Try
    99. Threading.Thread.Sleep(100)
    100. End Sub
    102. Private Sub PatchDownloader_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles PatchDownloader.DownloadFileCompleted
    103. PB_GSM.Value += 1
    104. End Sub
    106. Private Sub PatchDownloader_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles PatchDownloader.DownloadProgressChanged
    107. PB_AktuDatei.Maximum = e.TotalBytesToReceive
    108. PB_AktuDatei.Value = e.BytesReceived
    109. End Sub
    110. End Class

    Gredsoft schrieb:

    Schon blöd, wenn man auf seiner Profilpage seine eigene Homepage schreibt und hier im Thread die Website zensiert. :D

    naja, auf eine weise hast du schon recht, nur ist der Pfad im Programm nicht der von meinem Forum sondern von meinem Patchserver =)

    oli-f schrieb:

    so ich hoffe es funktioniert...

    Perfekt, das geht prima, hab nun nurnoch eine auslastung von ca 5-12%
    das muss ich mir nun sehr gut anschauen was du da alles verbessert hast,
    Vielen Vielen dank für deine/Eure Hilfe

Facebook
Telefonspende