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

نسخة كاملة : سحب نص من رابط متغير
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

كيف يمكن سحب نص من خلال هذا الرابط المتغير 

وكيف التعامل مع المتغير لكي يتم سحب النص من كل حساب يتم تسجيل الدخول منة

الرابط 

المتغير بالون الاحمر

https://hypixel.net/player/robodogkid/

والمشكلة عند وضع هذا الرابط داخل هذا الكود يسحب في داخل هذا الاسم وانا اريد سحب اليفل لكل اسم 

كود :
Dim mm As String = req.Get("https://hypixel.net/player/robodogkid/", Nothing).ToString
Huh Huh Huh

تفضل اخي

PHP كود :
Imports System.Text.RegularExpressions
Public Class Form1
    Private Sub Button1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        Dim gets 
Regex.Matches(TextBox1.Text"(?<=https://hypixel\.net/).+(?=/)"RegexOptions.Singleline)
 
       For Each mes As Match In gets
            TextBox2
.Text mes.Value
        Next
    End Sub
End 
Class 
اعتقد لم تفهم قصدي 

سوف اقوم بشرح طلبي لكي يتوضح للجميع

كود سحب الاسم الاعب من خلال الصفحة ووضعة في 

كود :
Dim mm As String = req.Get("https://hypixel.net/", Nothing).ToString
                           Dim yy As String = New Regex("<strong class=""accountUsername"">(\w+)</strong>").Match(mm).Groups.Item(1).ToString

هذا  الرابط لكي يتم تنفيذ عملية الانتقال حسب الاسم وسحب level الاعب من داخل سورس الصفحة
كود الانتقال وسحب level الاعب

كود :
Dim nn As String = req.Get("https://hypixel.net/player/" + yy.ToString , Nothing).ToString
                           Dim zz As String = New Regex("<div class=""levelChart"" title=""Player's Network Level & Experience"" data-percent=""71"">(.*?)</div>").Match(nn).Groups(1).ToString

ولاكن عند عمل البرنامج لا يتم الانتقال الى الصفحة المراد سحب منها level




حسب مارئيت هذا الموقع لا يوجد فية حلول 

ارجو حذف جميع طلباتي 

وشكرا 

Big Grin Big Grin Big Grin Big Grin Big Grin Big Grin