2,VB.net 多线程IP扫描，同时返回，同一个委托感觉丢失响应。

Sub txt(ByVal AAA As String) Dim A As Integer Dim B As Integer Dim C As Integer A = InStr(AAA, "时间") B = InStr(AAA, "%%%") C = Val(Strings.Left(AAA, B - 1)) If A > 0 Then 'Label1.Text = "存在" LTX(C).BackColor = Color.Green Else 'Label1.Text = "不存在" LTX(C).BackColor = Color.Red End If
End Sub
Private Sub setA() '多线程 Dim Dg_txt As New Dg(AddressOf txt) '定义,实例化一个委托,指向txt这个过程 'SS_MAC(i) = GetMac("10.103.8." & i) Me.Invoke(Dg_txt, i - 1 & "%%%" & GetMac("10.103.8." & i - 1)) '执行指定的委托,将n传进去
End Sub