Thread Beenden.

Keybladmaster · 27. Februar 2014, 18:19

Hey, Hey

Habe Gerade ein Problem und zwar das "Richtige" beenden dieses Thread's.
Starten tu ich ihn per Button. Und Beenden möchte ich ihn auch wieder Per Button.

Deklaration des Thread's

VB.NET-Quellcode

Dim myThread As New System.Threading.Thread(AddressOf MainMenue)

Das ist der Code für den Thread

VB.NET-Quellcode

Sub MainMenue0()
Do While True
Try
My.Computer.Network.Ping(MyIP, 10)
Invoke(Sub() Label1.Text = "IP Adresse : " & MyIP)
Invoke(Sub() Label3.Text = "Online")
Invoke(Sub() Label3.ForeColor = Color.Green)
Dim sendPing As Ping = New Ping()
Dim reply As PingReply = sendPing.Send(MyIP)
If reply.RoundtripTime > pingMS Then
pingMS = reply.RoundtripTime
Invoke(Sub() Label4.Text = reply.RoundtripTime & "/" & pingMS & "ms")
Else
Invoke(Sub() Label4.Text = reply.RoundtripTime & "/" & pingMS & "ms")
End If
Invoke(Sub() Label6.Text = reply.Options.Ttl.ToString & "MB")
If My.Computer.Network.Ping(MyIP) = False Then
'Thread Beenden
End If
Catch ex As Exception
'Thread Beenden
End Try
Loop
End Sub

Der MyThread.Abort() Funktioniert ja leider nicht
da der Thread immer wieder Neu Gestartet wird durch den Sub.
Wie kann ich den Thread Sauber beenden.
Starten tu ich den Thread über MyThread.Start()

LG

ThuCommix · 27. Februar 2014, 18:24

Normalerweise macht man soetwas mit einer Flag vom Typ boolean. Solang sie True ist, läuft etwas. Willst du den Thread beenden setzt du diese einfach auf False.

Quasi statt While True eine Variable einsetzen.

Trade · 27. Februar 2014, 18:24

Die Abort-Methode ist nicht gut, das ist so wie wenn du deinen PC ausmachen willst und dann Dynamit draufschmeißt und ihn hochjagst.
Einen Thread zu beenden ist generell eine schlechte Idee, da Du nicht weißt, was er grade macht. Wozu also, was ist der Plan?
Ansonsten mit einer Boolean-Variable abfragen.

RodFromGermany · 27. Februar 2014, 18:25

@Keybladmaster:: Probier es mit Exit Do oder einfach Return.

xd-franky-5 · 27. Februar 2014, 18:25

[VB.NET] Threads sicher vor Programmende stoppen

Mfg xd-franky-5

tolio · 27. Februar 2014, 18:26

msdn.microsoft.com/de-de/library/dd997364%28v=vs.110%29.aspx

Keybladmaster · 27. Februar 2014, 18:35

@Trade

Gute Gegenüberstellung

Der Plan ist es eigentlich, das ich ihn danach neu Starten kann also, wen ich
das noch mal Ausführen möchte. Aber dann bekommt man Logischerweise eine Error Meldung das der Thread noch Aktiv ist.

@RodFromGermany

Habe ich schon Versucht und Funktioniert auch einwandfrei, aber leider ist das für
meine Zwecke unbrauchbar :\

LG

RodFromGermany · 27. Februar 2014, 18:36

Beschreib mal

Keybladmaster schrieb:

meine Zwecke

Trade · 27. Februar 2014, 18:38

Hm, da stimmt dann irgendwas nicht. Während der Thread aktiv ist, solltest du ihn natürlich werkeln lassen und alle Abbrech- bzw. Neustarten-Sachen disablen. Ansonsten wenn der Thread dann beendet ist, sollte es wieder gehen.

ThuCommix · 27. Februar 2014, 18:42

ThuCommix schrieb:

Quasi statt While True eine Variable einsetzen.

Keybladmaster · 27. Februar 2014, 18:43

Also ich möchte Folgendes.

Der Code Sendet eben einen Ping und gibt mehrere Infos zurück die ich immer
Ausgegeben haben möchte (Dauerschleife) und das ganze wird dann Gestartet wen ich auf einen Button Klicke.
Nun möchte ich eine andere Adresse abfragen dazu muss ich aber den Thread beenden, oder?
Weil Sobald ich auf den Button Klicke öffnet sich eine Inputbox wo ich die IP eingebe.

LG

Quadsoft · 27. Februar 2014, 18:52

Keybladmaster schrieb:

Der MyThread.Abort() Funktioniert ja leider nicht

Thread.Abort() wirft gerade die Exception. Du musst sie nur noch behandeln.

thefiloe · 27. Februar 2014, 18:55

Keybladmaster schrieb:

Der Plan ist es eigentlich, das ich ihn danach neu Starten kann also, wen ich
das noch mal Ausführen möchte.

Du kannst einen Thread nicht erneut starten, nachdem er beendet wurde. Du musst einen neuen Thread erstellen.
Warten bis der Thread beendet ist, tust du mit der Join()-Methode.

Keybladmaster schrieb:

Nun möchte ich eine andere Adresse abfragen dazu muss ich aber den Thread beenden, oder?

Nö. Ist kompletter Schwachsinn. Du setzt einfach die Adresse neu, auf welche der Thread zugreift. Musst nix neu starten. Nur die Adresse ändern. Der Thread holt die Adresse und pingt diese.

RodFromGermany · 27. Februar 2014, 19:10

Keybladmaster schrieb:

Der Code Sendet eben einen Ping

Da genügt ein Timer.

Keybladmaster · 27. Februar 2014, 19:18

@thefileoe

Danke

Habe es Geschafft!

@RodFromGermany

Habe ich auch schon geschaut, aber da Laggt die Form.
Trotzdem danke.

LG

RodFromGermany · 27. Februar 2014, 19:22

Keybladmaster schrieb:

aber da Laggt die Form.

Dann nim einen System.Threading.Timer.

TVX · 27. Februar 2014, 20:47

Thread Beenden hab ich mir auch schon en wolf dran gemacht , und es ging nie richtig sauber bei mehreren Aufrufen hintereinander !

Habs dann mit nem BackgroundWorker gemacht , der lässt sich sauber abrechen ohne mucken !

IP TEST :

VB.NET-Quellcode

If My.Computer.Network.IsAvailable AndAlso My.Computer.Network.Ping("www.google.de", 3000) Then
Ausgabe = "ja"
Else
Ausgabe = "nein"
End If
Catch ex As Exception
Ausgabe = "nein"
End Try

thefiloe · 27. Februar 2014, 21:03

Das lässt sich ein simpler Thread auch. Wenn man weiß wie und nicht irgend nen Unsinn macht:
@TVX

TVX · 27. Februar 2014, 21:11

Dann zeig mal wie , wenn ich meinen direkt hintereinander mehrmals abgebrochen hatte gabs Fehler ....

Das geht besser :

VB.NET-Quellcode

Option Strict On
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If BackgroundWorker1.IsBusy = False Then
TextBox1.Text = "Bitte warten..."
BackgroundWorker1.RunWorkerAsync()
End If
End Sub
Dim Ausgabe As String = ""
Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Try
If My.Computer.Network.IsAvailable AndAlso My.Computer.Network.Ping("www.google.de", 3000) Then
Ausgabe = "ja"
Else
Ausgabe = "nein"
End If
Catch ex As Exception
Ausgabe = "nein"
End Try
End Sub
Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
TextBox1.Text = Ausgabe
End Sub
'Abruch CancelAsync()
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If BackgroundWorker1.IsBusy = True Then
BackgroundWorker1.CancelAsync()
End If
End Sub
End Class

thefiloe · 27. Februar 2014, 21:15

Dann zeig wie du es gemacht hast, und ich zeig dir wie du es richtig machst.
Jedoch muss ich noch eines dazu sagen: Für das was da oben ist, wo im Prinzip nur ein Ping async ablaufen soll, da verwende ich keinen extra Thread, da es dafür einfach schwachsinnig ist. Dafür verwende ich wenn schon einen Task oder höchstens einen ThreadPool. Und wenn es schon ne fertige SendAsync-Methode gibt erst recht nicht (msdn.microsoft.com/en-us/libra….SendAsync(v=vs.110).aspx). Aber wer natürlich wiedermal so genial ist und den My.* Namespace anfasst, dem kann man so oder so nicht helfen.

Thread Beenden.

Thread Beenden.

VB.NET-Quellcode

VB.NET-Quellcode

Keybladmaster schrieb:

ThuCommix schrieb:

Keybladmaster schrieb:

Keybladmaster schrieb:

Keybladmaster schrieb:

Keybladmaster schrieb:

Keybladmaster schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

8 Benutzer haben hier geschrieben