[ابو روضة]

(04-11-17, 02:58 AM)Amir_alzubidy كتب : معك حق اخي ابو روضة
انا ايضا قرأت اجابة الاخ احمد
لكن السؤال الاخير له ابعاد اتمنى ان تنتهي الى حدود الظن السليم .
الادارة لا تتعدى على حقوق الاخرين
او حذف المشاركات الا اذا كانت
مخالفة و مشاركة الاخ احمد ليست
مخالفة لكي تحذف .
انا ايضا انتظر الاجابة من الاخ احمد على نفس السؤال .

لالالا اخى العزيز ربنا يعلم اننا بحب كل الناس بقلب صافى ويمكن عشان انا بطبيعتى

ناس كتير بتكرهنى تقدر تقول اللى فى قلبى على لسانى لكن اذا احسست بشيئ

غريب من شخص معين بقول ولا يهمنى من اى شيئ لكن بقولها ايضا بأدب

وأغلبكم هنا لهم أفضال علىّ بعد المولى عزّ وجلّ طبعا حتى انى أمس والله كنت بفكر

ان الاشخاص هنا أو بأى مكان اللى بساعدو غيرهم ليسو مجبرين على ذلك فيجب

أن نحترمهم ونقدرهم ونصبر عليهم وبكل أدب كما صبر موسى على الخضر.

كما أن الاستاذ أحمد ساعدنى فى العديد من المواضيع هو والأخ سعود وغيرهم الله يكرمهم ويبارك فيهم..

وحقيقى انا سعيد بتعليقك هذا الذى كنت انتظره كثيرا أخى أمير..

ولعل الحذف كان فيه الخير إن شاء الله.

---

(04-11-17, 04:02 AM)سعود كتب : احببت المشاركة بهذا الموضوع

PHP كود :

Imports System.Text
Imports System.Net
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim hosturl As String = "http://www.tubeoffline.com/downloadFrom.php?host="
        hosturl = hosturl.Insert(hosturl.Length, TextBox1.Text)
        '  MsgBox(hosturl)
        Dim h As New HtmlAgilityPack.HtmlWeb
        Dim d As HtmlAgilityPack.HtmlDocument = h.Load(hosturl, "Get")
        Dim content As HtmlAgilityPack.HtmlNode = d.DocumentNode.SelectSingleNode("//table")
        dg.Rows.Clear()
        For r As Integer = 1 To content.ChildNodes.Count - 2
            Dim row As HtmlAgilityPack.HtmlNode = content.ChildNodes(r)
            Dim td1 As String = (WebUtility.HtmlDecode(row.SelectNodes("//tr/td[1]")(r).InnerText))
            Dim td2 As String = (WebUtility.HtmlDecode(row.SelectNodes("//tr/td[2]")(r).InnerText))
            Dim td3 As String = (WebUtility.HtmlDecode(row.SelectNodes("//tr/td[3]/a")(r).Attributes("href").Value))
            dg.Rows.Add(td1, td2, td3)
        Next
    End Sub
End Class 


وانا أحبك أن تشارك بأى موضوع لى ولو حتى بالسلام عليكم دون أى اجابة..

فعلا نجحت أخى جزاك الله كل خير لكن الروابط مش صحيحة لما بفتحها

انظر بيطلع ايه.