تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن اعرف اين الخطاء بالكود
#1
اولا احب اشكر الاخ ابو روضه اللي كل مره يعلمني الكثير والكثير 
ثانيا 

اضع هذا الكود في بوتن وعند الضغط عليه التكست بوكس يظهر فارغا حين اذا عرضت الراجع من المتغير aa مباشره في تكست بوكس يظهر رقم واحد فقط 
هذا جزاء من الذي استخرج منه 
<b>317748326</b></div><div>Username: <b>kareemabduljabbar_33</b></div><div>Full Name: <a href='https://instagram.com/kareemabduljabbar_33' target='_blank'><b>Kareem Abdul-Jabbar</b></a></div></div></div><hr /><div class='overflow-hidden' style=''><div class='overflow-hidden' style='float:left; width:30%; margin:0 .5em 0 0;'><img src='https://scontent-lax3-2.cdninstagram.com/v/t51.2885-19/s150x150/79901731_733053907218481_1761297540411555840_n.jpg?_nc_ht=scontent-lax3-2.cdninstagram.com&_nc_ohc=JjbyJWkyaX8AX8lHVU8&oh=2d10af707716fde5a057990ffcd6b78b&oe=5EDA1759' style='width:100%;' /></div><div class='overflow-hidden' style='float:left; width:65%;'><div>User ID: <b>284128665</b></div><div>Username: <b>kareemdeeb</b></div><div>Full Name: <a href='https://instagram.com/kareemdeeb' target='_blank'><b>الــذِيــبْ ?? | Kareem Deeb</b></a></div></div></div><hr /><div class='overflow-hidden' style=''><div class='overflow-hidden' style='float:left; width:30%; margin:0 .5em 0 0;'><img src='https://scontent-lax3-
كود :
Dim webClient As New System.Net.WebClient

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim aa As String = webClient.DownloadString("https://codeofaninja.com/tools/find-instagram-id-answer.php?instagram_username=" + TextBox2.Text + "")
       Dim json As String = aa
       Dim Name = From t As String In json Select _
                System.Text.RegularExpressions.Regex.Match(t, "<div>User ID: <b>(.+?)</b>").Groups(1).Value
       For i As Integer = 0 To Name.Count - 1
           TextBox1.Text = (Name(i))
       Next
   End Sub

(17-01-20, 06:26 PM)اليوم السابع كتب : اولا احب اشكر الاخ ابو روضه اللي كل مره يعلمني الكثير والكثير 
ثانيا 

اضع هذا الكود في بوتن وعند الضغط عليه التكست بوكس يظهر فارغا حين اذا عرضت الراجع من المتغير aa مباشره في تكست بوكس يظهر رقم واحد فقط 
هذا جزاء من الذي استخرج منه 
<b>317748326</b></div><div>Username: <b>kareemabduljabbar_33</b></div><div>Full Name: <a href='https://instagram.com/kareemabduljabbar_33' target='_blank'><b>Kareem Abdul-Jabbar</b></a></div></div></div><hr /><div class='overflow-hidden' style=''><div class='overflow-hidden' style='float:left; width:30%; margin:0 .5em 0 0;'><img src='https://scontent-lax3-2.cdninstagram.com/v/t51.2885-19/s150x150/79901731_733053907218481_1761297540411555840_n.jpg?_nc_ht=scontent-lax3-2.cdninstagram.com&_nc_ohc=JjbyJWkyaX8AX8lHVU8&oh=2d10af707716fde5a057990ffcd6b78b&oe=5EDA1759' style='width:100%;' /></div><div class='overflow-hidden' style='float:left; width:65%;'><div>User ID: <b>284128665</b></div><div>Username: <b>kareemdeeb</b></div><div>Full Name: <a href='https://instagram.com/kareemdeeb' target='_blank'><b>الــذِيــبْ ?? | Kareem Deeb</b></a></div></div></div><hr /><div class='overflow-hidden' style=''><div class='overflow-hidden' style='float:left; width:30%; margin:0 .5em 0 0;'><img src='https://scontent-lax3-
كود :
Dim webClient As New System.Net.WebClient

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim aa As String = webClient.DownloadString("https://codeofaninja.com/tools/find-instagram-id-answer.php?instagram_username=" + TextBox2.Text + "")
       Dim json As String = aa
       Dim Name = From t As String In json Select _
                System.Text.RegularExpressions.Regex.Match(t, "<div>User ID: <b>(.+?)</b>").Groups(1).Value
       For i As Integer = 0 To Name.Count - 1
           TextBox1.Text = (Name(i))
       Next
   End Sub
انا اريد ان اجلب كل شيئ امام كلمه <div>User ID: <b>
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] هل ممكن كود فيجوال بيسك لزر تغير تاريخ الكمبيوتر للوراء وكود اخر ارجاعه طبيبعي jam3h 13 277 منذ 10 ساعة مضت
آخر رد: jam3h
  [VB.NET] ممكن كود تخطي اعلان للبرنامج مثل الفديو دا ahmed112001 1 57 , 05:08 PM
آخر رد: ابو روضة
Rainbow [سؤال] ممكن طريقة عمل زر يذهب الي اخر سطر بتيكس بوكس Ali 2020 9 150 13-09-20, 10:12 PM
آخر رد: Ali 2020
  [سؤال] ممكن شرح لتعامل مع مكتبه اليوم السابع 0 47 10-09-20, 05:08 PM
آخر رد: اليوم السابع
  ماهو الخطاء في هذا الكود عمور2016 1 91 06-09-20, 06:33 PM
آخر رد: حريف برمجة
  مشكلة فى اضافة البيانات ممكن المساعدة talatm 7 316 04-09-20, 04:10 PM
آخر رد: عبد العزيز البسكري
  ممكن استفسار الى احبتى فى المنتدى خالد كامل1 4 224 30-08-20, 04:47 AM
آخر رد: خالد كامل1
  السلام عليكم ممكن توضيح بسيط بخصوص البحث داخل الليست بوكس اليوم السابع 5 299 21-08-20, 01:40 PM
آخر رد: اليوم السابع
  طريفه اضافه ROW الى الداتا جريد فيو برمجيا بالكود خالد كامل1 9 457 21-08-20, 02:05 AM
آخر رد: خالد كامل1
  ممكن تعديل على هذا المثال اساتذتى خالد كامل1 3 321 19-08-20, 09:02 AM
آخر رد: حريف برمجة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم