[ddemed]

(01-07-17, 01:42 AM)ابو ليلى كتب :

PHP كود :

Public Async Sub SendToUrl 


ضع الكلمة Async في المكان المحدد و جرب

ظهرت مشاكل كبيره اخري

PHP كود :

Public Async Sub SendToUrl
            stopProcess = False
            Try
        Dim _fullResult As String = Await.getContentsTask(New WebClient()).DownloadStringTaskAsync(globalLink(Setinfo.Days))

        Dim rg As New Regex(_pastebinPattern, RegexOptions.Multiline)
                For Each matchString As Match In rg.Matches(_fullResult)
                    concatResult.Add(matchString.Value.Replace(changeLink(0), changeLink(1)))
                    Setinfo.CountLinks.Text = concatResult.Count.ToString()

                    If stopProcess Then
                        Exit For
                    End If
                Next matchString

                For Each item In concatResult

        Dim _secondResults As String = Await(New WebClient()).DownloadStringTaskAsync(item)
        Dim _info As New Regex(Setinfo.regexPattern, RegexOptions.Multiline)

                    For Each matchString As Match In _info.Matches(_secondResults)
                        Application.DoEvents()

                        Setinfo.Result.Items.Add(matchString.Value)
                        Setinfo.CountTotalItems.Text = Setinfo.Result.Items.Count.ToString()

                        If stopProcess Then
                            Exit For
                        End If
                    Next matchString
                    If stopProcess Then
                        Exit For
                    End If
                Next item

              AddHandler _callback, Setinfo.processEnd
end sub