100分请求解决线程堵塞、不能中断的问题

Question

GetResponse()可以放到background worker里面去

Answer 1

lovingkiss(桃花影落飞神贱，碧海潮生<吹>玉箫 坦白从良 抗拒强奸) ( ) 
jiangsheng(蒋晟.Net[MVP]) 两位能否贴具体代码呢？就是解决我这个问题的。感谢！

Answer 2

Try
            'MsgBox("发送ing URL " + SendURL)
            'Me.Label2.Text = "开始执行" + Now.ToLongTimeString + "  "
            'Me.Refresh()
            Dim req1 As System.Net.WebRequest = System.Net.WebRequest.Create(SendURL)
            req1.Method = "GET"
            Dim wr1 As WebResponse = req1.GetResponse()
            'Me.Label2.Text += " 完成时间" + Now.ToLongTimeString
            'Me.Refresh()
        Catch ex As Exception
        Finally
            th.Abort()
        End Try
        System.Threading.Thread.Sleep(7000)
        th.Abort()
        'MsgBox("发送URL " + SendURL)
能否请就说下这段代码如何修改？！