[Basil Abdallah]

(24-07-19, 03:43 PM)bidaya كتب :

(22-07-19, 03:36 PM)fouadhdfouad كتب : تفضل اخي 

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dr As Match = Regex.Match(TextBox1.Text, "id=\w+")
        MsgBox(dr.Value)
    End Sub 


هل انت متاكد اخي من الكود؟؟؟؟؟؟؟

طريقة الاخ صحيحه 
ورابط الاي دي من الصفحة نفسه الاي دي من الرابط

[bidaya]

(24-07-19, 07:33 PM)bakriano30@yahoo.com كتب :

(24-07-19, 07:24 PM)fouadhdfouad كتب : هل تريد استخراج id من الرابط ام من الصفحة نفسها

نعم

 

من قال لك ان تجيب في مكاني بنعم او لا

لو تكرمت اخي ومن فظلك ان احتجت شيئا افتح موضوع خاص بك هو مجانا اخي

ارجو ان تعذرني

وعلم ان هنا الاخوة لا يبخلو عليك ومجانل  

---

(24-07-19, 07:58 PM)Basil Abdallah كتب :

(24-07-19, 03:43 PM)bidaya كتب :

(22-07-19, 03:36 PM)fouadhdfouad كتب : تفضل اخي 

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dr As Match = Regex.Match(TextBox1.Text, "id=\w+")
        MsgBox(dr.Value)
    End Sub 


هل انت متاكد اخي من الكود؟؟؟؟؟؟؟

طريقة الاخ صحيحه 
ورابط الاي دي من الصفحة نفسه الاي دي من الرابط

المقصود من الموضوع جلي الادي من اي حساب يقوم بالدخول

ليس من الرابط كما سلف في الكود

وشكرا

[ابو روضة]

مع أنك لم ترد على سؤالى فوق لكن لا عليك...

ضع WebBrowser1 و 2 TextBox و RichTextBox ثم ضع فى التكست بوكس رابط اى صفحة 

تريد جلب الاى دى بتاعها واضغط على الزر

كود :

WebBrowser1.Navigate(TextBox1.Text)

وضع هذا الكود داخل اداة الويب براوزر

كود :

Try
           RichTextBox1.Text = WebBrowser1.Document.GetElementsByTagName("HTML").Item(0).OuterHtml
           For Each m As Match In Regex.Matches(RichTextBox1.Text, "entity_id"":""(\d+)")
               Dim VidUrl As String = m.Groups(1).Value
               TextBox2.Text = VidUrl
               WebBrowser1.Stop()
           Next
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       RichTextBox1.Clear()

وسيجلب لك أى دى أى حساب فى العالم بأمر الله

[bidaya]

(25-07-19, 03:37 AM)ابو روضة كتب :

مع أنك لم ترد على سؤالى فوق لكن لا عليك...

ضع WebBrowser1 و 2 TextBox و RichTextBox ثم ضع فى التكست بوكس رابط اى صفحة 

تريد جلب الاى دى بتاعها واضغط على الزر

كود :

WebBrowser1.Navigate(TextBox1.Text)

وضع هذا الكود داخل اداة الويب براوزر

كود :

Try
           RichTextBox1.Text = WebBrowser1.Document.GetElementsByTagName("HTML").Item(0).OuterHtml
           For Each m As Match In Regex.Matches(RichTextBox1.Text, "entity_id"":""(\d+)")
               Dim VidUrl As String = m.Groups(1).Value
               TextBox2.Text = VidUrl
               WebBrowser1.Stop()
           Next
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       RichTextBox1.Clear()

وسيجلب لك أى دى أى حساب فى العالم بأمر الله

معذرتا اخي الكريم لم انتبه لردك

شكرا لك على المرور العطر ساجربه مع اني متاكد ان الكود مظبوط

ارجو ان تغذرني مرتا ثانيتا

الله يحفظك

[ابو روضة]

(25-07-19, 03:49 AM)bidaya كتب :

معذرتا اخي الكريم لم انتبه لردك

شكرا لك على المرور العطر ساجربه مع اني متاكد ان الكود مظبوط

ارجو ان تغذرني مرتا ثانيتا

الله يحفظك

ولا يهمك أخى وبأمر الله سيجلب أى صفحة تريدها

[bidaya]

لم يفلح معي الكود اخي

كود :

Imports System.Text.RegularExpressions

Public Class id

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       WebBrowser1.Navigate(TextBox1.Text)
   End Sub

   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       Try
           RichTextBox1.Text = WebBrowser1.Document.GetElementsByTagName("HTML").Item(0).OuterHtml
           For Each m As Match In Regex.Matches(RichTextBox1.Text, "entity_id"":""(\d+)")
               Dim VidUrl As String = m.Groups(1).Value
               TextBox2.Text = VidUrl
               WebBrowser1.Stop()
           Next
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       RichTextBox1.Clear()
   End Sub
End Class

[ابو روضة]

(25-07-19, 04:03 AM)bidaya كتب :

لم يفلح معي الكود اخي

كود :

Imports System.Text.RegularExpressions

Public Class id

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       WebBrowser1.Navigate(TextBox1.Text)
   End Sub

   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       Try
           RichTextBox1.Text = WebBrowser1.Document.GetElementsByTagName("HTML").Item(0).OuterHtml
           For Each m As Match In Regex.Matches(RichTextBox1.Text, "entity_id"":""(\d+)")
               Dim VidUrl As String = m.Groups(1).Value
               TextBox2.Text = VidUrl
               WebBrowser1.Stop()
           Next
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       RichTextBox1.Clear()
   End Sub
End Class

مستحيل أخى والله بيجلب لى أى صفحة اريدها

[bidaya]

(25-07-19, 04:11 AM)ابو روضة كتب :

(25-07-19, 04:03 AM)bidaya كتب :

لم يفلح معي الكود اخي

كود :

Imports System.Text.RegularExpressions

Public Class id

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       WebBrowser1.Navigate(TextBox1.Text)
   End Sub

   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       Try
           RichTextBox1.Text = WebBrowser1.Document.GetElementsByTagName("HTML").Item(0).OuterHtml
           For Each m As Match In Regex.Matches(RichTextBox1.Text, "entity_id"":""(\d+)")
               Dim VidUrl As String = m.Groups(1).Value
               TextBox2.Text = VidUrl
               WebBrowser1.Stop()
           Next
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       RichTextBox1.Clear()
   End Sub
End Class

مستحيل أخى والله بيجلب لى أى صفحة اريدها

جرب اخي هذه الصفحة

https://www.facebook.com/benhenna.anes

[ابو روضة]

(25-07-19, 04:17 AM)bidaya كتب :

(25-07-19, 04:11 AM)ابو روضة كتب :

(25-07-19, 04:03 AM)bidaya كتب :

لم يفلح معي الكود اخي

كود :

Imports System.Text.RegularExpressions

Public Class id

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       WebBrowser1.Navigate(TextBox1.Text)
   End Sub

   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       Try
           RichTextBox1.Text = WebBrowser1.Document.GetElementsByTagName("HTML").Item(0).OuterHtml
           For Each m As Match In Regex.Matches(RichTextBox1.Text, "entity_id"":""(\d+)")
               Dim VidUrl As String = m.Groups(1).Value
               TextBox2.Text = VidUrl
               WebBrowser1.Stop()
           Next
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       RichTextBox1.Clear()
   End Sub
End Class

مستحيل أخى والله بيجلب لى أى صفحة اريدها

جرب اخي هذه الصفحة

https://www.facebook.com/benhenna.anes

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

[bidaya]

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

لا اعلم اين المشكل اخي

عملت مشروع جديد بالكامل لكن من دون جدوى

---

يمكن المشكل من الويندوز نفسه انا استعمل ويندوز 10