[habamix]

(16-08-18, 05:08 PM)ابو روضة كتب : السلام عليكم ورحمة الله وبركاته
اخوتى انا حاطط اكواد داخل اداة الويب براوزر وحاطط فى الزر الذهاب للموقع المراد اقتناص 
الروابط منه لكن حينما يذهب الى الموقع ويحط الرابط ويجلب الروابط وكله تمام الويب براوزر
بيفضل يقتنص الروابط ويفضل يقتنصها الى مالا نهاية مع انى حاطط شرط ولما بحط الاكواد داخل الزر مباشرة بعطى
له وقت كبير الى ما يذهب للرابط ثم يضع الرابط وينتظر ظهور الروابط ثم يقتنصها...
وانا اريد لما اضغط على الذر يذهب الى الموقع ويقوم بتنفيذ الاوامر التى اعطيته له وحين يجد
الروابط يقتنصها مباشرة دون زيادة او نقصان...
وهذا هو الكود وهو شغال كويس على فكرة ولا به اى مشاكل المشكلة فقط اننى لو حطيت هذا الكود
فى الزر سيأخذ وقت كبير جدا ولما بضعه داخل الويب براوزر بيقتنص الروابط لعدد مالا نهاية يقتنصها ويعيد مرات ومرات

PHP كود :

هذا الكود بضعه فى الزر

  WebBrowser1.Navigate("http://www.downvids.net/download-youtube-channel-videos")
     
        Await Task.Delay(10000)


 WebBrowser1.Document.GetElementById("home_search_q").InnerText = TextBox1.Text
        WebBrowser1.Document.GetElementById("home_search_submit").InvokeMember("Click")

وهذا داخل الويب براوزر

        Await Task.Delay(30000)

        Dim input As HtmlElementCollection
        input = WebBrowser1.Document.GetElementsByTagName("a")
        For Each item As HtmlElement In input
            If item.InnerText = ("Download as video") Then
                lis.Add(item.GetAttribute("href"))
            End If
        Next item
        Dim ss As HtmlElementCollection
        ss = WebBrowser1.Document.GetElementsByTagName("span")
        For Each item As HtmlElement In ss
            If item.GetAttribute("Id").Contains("msgtxt3567146535") Then
                Do
                    ListBox1.Items.Add(item.InnerText)
                    If item.GetAttribute("Id").Contains("msgtxt3567146535") Then
                        Exit Do
                    End If
                Loop
                Label2.Text = "عدد الفيديوهات ......." & ListBox1.Items.Count

            End If
        Next item 


هو ده الكود انا عامل برنامج بث مباشر للمباريات بستخدم الكود هذا اشهر برامج كل يضغط على اى حاجه فى البرنامج البرامج تقفل ع طول

 Dim u() As Process
    Dim w() As Process
    Private Sub CheckIfRunning()
        u = Process.GetProcessesByName("URLHelper")
        If u.Count > 0 Then
            Process.GetProcessesByName("URLHelper")(0).Kill()
        Else
            ' Process is not running
        End If
        u = Process.GetProcessesByName("UrlChecker")
        If u.Count > 0 Then
            Process.GetProcessesByName("UrlChecker")(0).Kill()
        Else
            ' Process is not running
        End If
        w = Process.GetProcessesByName("Wireshark")
        If w.Count > 0 Then
            Process.GetProcessesByName("Wireshark")(0).Kill()
        Else
            ' Process is not running
        End If

    End Sub