[ddemed]

السلام عليكم لدي مشكل في هذا الكود اريد حل له وشكرا

[ابو ليلى]

السلام عليكم و رحمة الله و بركاته
الكلمة Await ترتبط مع Async
تاكد من كتابتها مع بداية تعريف الدالة او الاجراء
حيث الكود الضاهر في الصورة مقطوع و جسم الدالة غير مرئي

[ddemed]

هذه الاكواد كما تري اخي الكريم

[ابو ليلى]

PHP كود :

Public Async Sub SendToUrl 


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

[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 


[ابو ليلى]

ضع صورة للاخطاء حتى نتعرف عليها

[ddemed]

(01-07-17, 01:54 AM)ابو ليلى كتب : ضع صورة للاخطاء حتى نتعرف عليها

هاهي

[J427]

Framework 4.5 +

[ddemed]

(01-07-17, 01:57 AM)J427 كتب : Framework 4.5 +

انا استخدم vb10 ليس به 4.5 اخر شي 4

[ابو ليلى]

حاول اعادة بناء المشروع لتقلص عدد الاخطاء لان اغلب الاخطاء غير صحيحة
وعمل Clean اذا ما نجح في التقليص
و بعدها نشوف باقي الاخطاء

---

اتوقع انك غير قادر على استخدام هذا الاسلوب مع النسخة 4.0