[ابو روضة]

(02-09-17, 05:43 PM)سعود كتب :

إقتباس :

مع ان هذا ليس ما اريده 

الصراحة الموضوع هذا(موضوع التاخير) عجزت افهمه

.

.

.

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

.

.

موضوعنا الاصلي فلنؤخره قليلا.

سافترض شيئا.

انك تود  عمل شيء معين  مثلا تغيير لون نص بعد مدة 3 ثواني.

هل هذا وارد بالفكرة لديك؟

ولا يهمك حبيبى...

بص انا هاقولك مقصدى..

مثلا انا هاستعمل اداة ويب براوزر واريد من الزر ان يقوم اولا مايلى:-

إدخال رابط فيديو فى موقع مثلا لتحميل الفيديوهات فحينما يتم تجهيز الرابط المباشر للفيديو

يأخذ حاولى 7 ثوانى فأقول للبرنامج مثلا انتظر 10 ثوانى وبعدها أجلب صورة الفيديو وينتظر 5 ثوانى

ثم يقوم بالتحميل....

مثال لما قولته.

PHP كود :

 'جلب الصورة
        Dim allB As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("img")
        For Each bt As HtmlElement In allB
            If bt.GetAttribute("className") = "thumb" Then
                PictureBox2.ImageLocation = bt.GetAttribute("src")
                Exit For
            End If
        Next
        'انتظار 4 ثوانى
        Await Task.Delay(2000)

        'جلب الروابط

        Dim inputs As HtmlElementCollection
        inputs = WebBrowser1.Document.GetElementsByTagName("a")
        For Each item As HtmlElement In inputs
            If item.GetAttribute("href").Contains("videoplayback") Then
                CheckedListBox1.Items.Add(item.GetAttribute("href").ToString)
            End If
        Next item
        'Label1.Text = "  عدد السور    " & ListBox1.Items.Count
        'انتظار ثانيتين
        Await Task.Delay(2000)
        'جلب الاسم
        Dim allBtn As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
        For Each bt As HtmlElement In allBtn
            If bt.GetAttribute("className") = "meta" Then
                TextBox2.Text = bt.InnerText
وهلم جرا..........