Hi,
Ich lasse einen thread x mal starten, aber nach 1479 mal hört das ganze auf und die threads zählen runter, obwohl ich noch viel mehr habe. Die message box erscheint übrigens auch nicht.
Code:
Danke
Ich lasse einen thread x mal starten, aber nach 1479 mal hört das ganze auf und die threads zählen runter, obwohl ich noch viel mehr habe. Die message box erscheint übrigens auch nicht.
Code:
VB.NET-Quellcode
- Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
- For i = 0 To proxylist.Count - 1
- GG:
- If Threads >= TrackBar1.Value Then
- Threading.Thread.Sleep(1000)
- GoTo GG
- Else
- Dim th As New Threading.Thread(AddressOf threadwork)
- th.Start(proxylist(i))
- Threads += 1
- End If
- Next i
- MsgBox("Alles durch!")
- End Sub
- Private Sub threadwork(ByVal Proxy As String)
- Dim splitted() As String = Proxy.Split(":"c)
- Dim d As New Net.WebClient
- Dim i As Integer = splitted(1)
- Try
- d.Proxy = New WebProxy(splitted(0), i)
- Dim dd As String = d.DownloadString("http://xx/test.txt")
- If dd = "Testme" Then
- good += 1
- goodlist(goodlist.Count - 1) = Proxy
- ReDim Preserve goodlist(0 To goodlist.Count)
- Else
- bad += 1
- End If
- Catch ex As Exception
- errorr += 1
- End Try
- Threads -= 1
- End Sub
Danke
Wer Rechtschreibfehler findet darf sie behalten
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „joniator“ ()