VB.Net 中的多线程函数

Question

我正在尝试对我的应用程序进行多线程处理，以便它在执行进程时可见，这就是我到目前为止所拥有的：

Private Sub SendPOST(ByVal URL As String)
    Try
        Dim DataBytes As Byte() = Encoding.ASCII.GetBytes("")
        Dim Request As HttpWebRequest = TryCast(WebRequest.Create(URL.Trim & "/webdav/"), HttpWebRequest)
        Request.Method = "POST"
        Request.ContentType = "application/x-www-form-urlencoded"
        Request.ContentLength = DataBytes.Length
        Request.Timeout = 1000
        Request.ReadWriteTimeout = 1000

        Dim PostData As Stream = Request.GetRequestStream()
        PostData.Write(DataBytes, 0, DataBytes.Length)

        Dim Response As WebResponse = Request.GetResponse()
        Dim ResponseStream As Stream = Response.GetResponseStream()
        Dim StreamReader As New IO.StreamReader(ResponseStream)
        Dim Text As String = StreamReader.ReadToEnd()
        PostData.Close()
    Catch ex As Exception
        If ex.ToString.Contains("401") Then
            TextBox2.Text = TextBox2.Text & URL & "/webdav/" & vbNewLine
        End If
    End Try
End Sub

Public Sub G0()
    Dim siteSplit() As String = TextBox1.Text.Split(vbNewLine)

    For i = 0 To siteSplit.Count - 1
        Try
            If siteSplit(i).Contains("http://") Then
                SendPOST(siteSplit(i).Trim)
            Else
                SendPOST("http://" & siteSplit(i).Trim)
            End If
        Catch ex As Exception
        End Try
    Next
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim t As Thread
    t = New Thread(AddressOf Me.G0)
    t.Start()
End Sub

但是，“G0”子代码根本没有被执行，我需要对“SendPOST”进行多线程处理，因为这会减慢应用程序的速度。

Answer 1

    Catch ex As Exception
    End Try

这是阻止 .NET 告诉您做错了什么的非常有效的方法。然而，不知道为什么它不起作用是不可避免的结果。

删除那个。