(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