18-01-20, 08:09 PM
تفضل تعديل بعد حذف aa واستخدام aa1 نفسه
وقد عمل لدي
PHP كود :
Dim aa1 As String = webClient.DownloadString("https://www.instagram.com/_u/" + TextBox2.Text.Trim + "")
aa1 = aa1.Replace("\u06a9", "ك").Replace("\u0040", "@").Replace("\u0630", "ذ").Replace("\u0636", "ض").Replace("\u0635", "ص").Replace("\u062b", "ث").Replace("\u0642", "ق").Replace("\u0641", "ف").Replace("\u063a", "غ").Replace("\u0639", "ع").Replace("\u0647", "ه").Replace("\u062e", "خ").Replace("\u062d", "ح").Replace("\u062c", "ج").Replace("\u062f", "د").Replace("\u0634", "ش").Replace("\u0633", "س").Replace("\u064a", "ي").Replace("\u0628", "ب").Replace("\u0644", "ل").Replace("\u0627", "ا").Replace("\u062a", "ت").Replace("\u0646", "ن").Replace("\u0645", "م").Replace("\u0643", "ك").Replace("\u0637", "ط").Replace("\u0626", "ئ").Replace("\u0621", "ء").Replace("\u0624", "ؤ").Replace("\u0631", "ر").Replace("\u0644\u0627", "لا").Replace("\u0649", "ى").Replace("\u0629", "ة").Replace("\u0648", "و").Replace("\u0632", "ز").Replace("\u0638", "ظ").Replace("\u002f", " ").Replace("\u005f", "_").Replace("\u002d", "-").Replace("\u002e", ".").Replace("\u0623", "أ").Replace("\u061f", "؟").Replace("\u0622", "آ").Replace("\u0640", "ـ").Replace("\u00e1", "á").Replace("\u0625", "إ").Replace("\u0662", "٢").Replace("\u06f1", "۱").Replace("\u06f0", "۰").Replace("\u06f3", "۳").Replace("\u0664", "٤").Replace("\u0665", "٥").Replace("\u0666", "٦").Replace("\u0667", "٧").Replace("\u06f8", "۸").Replace("\u06f9", "۹").Replace("\u06cc", "ي")
TextBox8.Text = System.Text.RegularExpressions.Regex.Match(aa1, "<link rel=""canonical"" href=""(.+?)"" />").Groups.Item(1).Value
TextBox7.Text = System.Text.RegularExpressions.Regex.Match(aa1, "Followers,(.+?)Following,").Groups.Item(1).Value
TextBox9.Text = System.Text.RegularExpressions.Regex.Match(aa1, "Following,(.+?)Posts").Groups.Item(1).Value
TextBox3.Text = System.Text.RegularExpressions.Regex.Match(aa1, "Person"",""name"":""(.+?)""").Groups.Item(1).Value
TextBox4.Text = System.Text.RegularExpressions.Regex.Match(aa1, "biography"":""(.+?)""").Groups.Item(1).Value
وقد عمل لدي
