منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(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 


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

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

(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 


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

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

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

(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 كتب : [ -> ]

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

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

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

الله يحفظك

(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

(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

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

(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

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

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

---

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