0
Private _Proxies As New List(Of String)
Private _Array As New List(Of String)

Private Sub btnLeech_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Leech_btn.Click
    Worker.RunWorkerAsync(_Array)
End Sub

'Open a bunch of new threads to download sources of webpages
Private Sub Fetch(ByVal sender As System.Object, _
                                 ByVal e As System.ComponentModel.DoWorkEventArgs) Handles Worker.DoWork
    Dim websiteUri As Uri = Nothing
    Dim Website As String
    For I = 0 To _Array.ToList.Count - 1
        Website = _Array(I)
        Using wc As Net.WebClient = New Net.WebClient
            AddHandler wc.DownloadStringCompleted, AddressOf SourceDownloaded
            If Uri.TryCreate(Website, UriKind.Absolute, websiteUri) Then
                wc.DownloadStringAsync(New Uri(Website))
                Threading.Thread.Sleep(250)
            Else
                If Notify.Checked = True Then
                    TrayIcon.ShowBalloonTip(1, "Invalid website", "There was a invalid site in the list." & Website.ToString, ToolTipIcon.Error)
                    Me.TrashSite_list.Items.Add(Website)
                Else
                    Me.TrashSite_list.Items.Add(Website)
                End If
            End If
        End Using
    Next
End Sub
'Grab the proxies from the webpages
Private Sub SourceDownloaded(ByVal sender As Object, ByVal e As Net.DownloadStringCompletedEventArgs)
    Dim strRegex As String = "\b(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\:[0-9]{1,5}\b"
    Dim myRegexOptions As RegexOptions = RegexOptions.None
    Dim myRegex As New Regex(strRegex, myRegexOptions)
    Dim frm As New Proxies
    Dim i As Integer
    My.Settings.Proxies = New StringCollection
    If e.Error Is Nothing Then
        For Each myMatch As Match In myRegex.Matches(e.Result)
            If myMatch.Success Then
                Try
                    i += i
                    _Proxies.Add(myMatch.ToString)
                    Worker.ReportProgress(i)
                Catch ex As WebException
                    MessageBox.Show(
                        ex.ToString,
                        ErrorToString,
                        Windows.Forms.MessageBoxButtons.OK)
                End Try
            End If
        Next
    End If
End Sub

Private Sub Worker_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles Worker.ProgressChanged
    Proxy_list.Items.AddRange(_Proxies.ToArray)
        Proxy2_lbl.Text = "Proxies: " & Proxy2_list.Items.Count
    Proxy_lbl.Text = "Proxies: " & Proxy2_list.Items.Count
End Sub

これは私のコードであり、UIを更新したいのですが、その方法がわかりません。理解できるようにコメント付きの例を探しています。これまでにいくつかのサイトに投稿しましたが、誰もが私に何をすべきか、または例を教えてくれますが、誰も私に例をどうするかを教えてくれません!彼らは私がコードが何をするのかを知っていることを期待していますが、私がそれが何をするのかを知っていれば、あなたは本当に私が質問をするだろうと思いますか?とにかく、トピックに戻ります:

これが私が達成しようとしていることです。Leech_btnをクリックすると、Website_listのすべてのWebサイトが「Array」という配列に追加されます。次に、配列を引数としてbackgroundworkerを実行します。バックグラウンドワーカーは、リストからWebサイトの文字列をダウンロードし、それをSourceDownloadedに移動してフィルタリングします。(Webサイトからすべてのプロキシを削除します)次に、Proxy_listにプロキシを表示する必要がありますが、これは問題が発生している場所です。私は何をすべきか?

4

1 に答える 1

0

私が正しく理解していれば、問題は

Dim Proxies() As String = My.Resources.SiteList6.Split(vbNewLine)
Proxy_list.Items.AddRange(Proxies)

これは、UI とワーカーが別のスレッドにあるためです。これを追加できます:

Private Delegate Sub UpdateListDelegate(byval itemName() as string)
Private Sub UpdateList(byval itemName() as string)
    If Me.InvokeRequired Then
        Me.Invoke(New UpdateListDelegate(AddressOf UpdateList), itemName)
    Else
        ' UpdateList
        ' add list add code
        Proxy_list.Items.AddRange(itemName)
    End If
End Sub

コードで、「Proxy_list.Items.AddRange(Proxies)」を次のように置き換えます。

 UpdateList(Proxies)

vb.net: listbox.items.add() throws exception in same class、同様の質問を参照してください。

于 2012-10-30T17:47:02.043 に答える