[حريف برمجة]

وعليكم السلام ورحمة الله وبركاته

طلبك غير واضح اخي !

هل هو تطبيق ويندوز فورم او ويب سايت ؟

ايضاً الرابط اين يوجد ؟ وكيف تأتي به ؟

---

على العموم لنفرض ان الرابط موجود في تكست بوكس 1 ،،
وتريد جلب التوكن من الرابط ووضعه في تكست بوكس 2 ،،

الكود كالتالي :

كود :

Dim UrlToken As String = TextBox1.Text

       If UrlToken.IndexOf("ldSessionID=") = -1 Then
           TextBox2.Text = "No token found"
       Else
           Dim CurrentToken = Mid(UrlToken, UrlToken.IndexOf("ldSessionID=") + 13, Len(UrlToken) - UrlToken.IndexOf("ldSessionID=")).ToString.Split("&")
           TextBox2.Text = CurrentToken(0)
       End If