2017-07-21 41 views
-1

這裏的第一個問題,以及它關於vb.net的線程。我最近獲得了一個程序的源代碼,我希望對錶單做出自己的更改和修改,但似乎無法更改允許的最大線程數。該程序允許的最大線程數爲兩個線程,它們轉到Netflix並登錄,從而恢復帳戶的信息。它最多有兩個線程,但它也是無代理的。 我包含線程池所在代碼的一部分,我很想知道在哪裏編輯它,而我可以更改線程的最大數量。我試圖尋找某些關鍵字,但沒有找到任何有用的信息。VB.Net線程池允許的最大線程數

Private Sub ButtonX1_Click(sender As Object, e As EventArgs) Handles ButtonX1.Click 
    If (Me.usernames.Count > 0) Then 
     If (Me.ButtonX1.Text = "Start") Then 
      Me.NumericUpDown1.Enabled = False 
      Me.ProgressBarX1.Maximum = Me.usernames.Count 
      Me.ProgressBarX1.Value = 0 
      Me.thread_status = True 
      Me.available = 0 
      Dim workerThreads As Integer = Me.NumericUpDown1.Value 
      ThreadPool.SetMinThreads(workerThreads, workerThreads) 
      ThreadPool.SetMaxThreads(workerThreads, workerThreads) 
      ServicePointManager.DefaultConnectionLimit = workerThreads 
      ServicePointManager.Expect100Continue = False 
      Dim str As String 
      For Each str In Me.usernames 
       ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf Me.Lam__R141), str) 
      Next 
      Me.ButtonX1.Text = "Stop" 
      Me.Label3.Text = "Cracking Start" 
     Else 
      Me.NumericUpDown1.Enabled = True 
      Me.thread_status = False 
      Me.ButtonX1.Text = "Start" 
      Me.Label3.Text = "Cracking Stop" 
     End If 
    Else 
     Me.Label3.Text = "Load Combolist" 
    End If 
End Sub 
+0

ThreadPool.SetMaxThreads(workerThreads,workerThreads)可能需要更改。 – N0Alias

+0

你有什麼建議嗎? –

+0

您是否嘗試更改'NumericUpDown1'的值? –

回答

0

看着它,我建議你從ThreadPool.SetMaxThreads(workerThreads, workerThreads)改變支架值,你可能還需要設置ServicePointManager.DefaultConnectionLimit = workerThreads等於更大的東西。