[ابو روضة]

(18-05-18, 01:43 AM)elgokr كتب :

لا اعلم هذا ما تقصده أم لا لكن قم باستخدام الكود التالى للتاكد

كود :

extBox1.Text = "access_token:""EAAdffgbnmgtyrfghjklTx418Rmgi4lMoIWIdfrrtyuhhgRAR37ABDzEGakS5GwreditpostBAlt34GmOV0fHkhjkopewARqRZCyZB0r0H3oGSVIUpIggoKMWyyItUZC"""
       Dim Lines As String() = TextBox1.Lines
       Dim row(0) As String
       Dim run As String = ""
       For i As Integer = 0 To Lines.Length - 1
           Dim line As String = Lines(i).ToString.Trim
           If line.StartsWith("access_token:") Then
               row(0) = line.Replace("access_token:", "").Trim
               row(0) = row(0).Replace("""", "").Trim
           End If
           run = row(0)
       Next
       MsgBox(run)

تمنياتى لك التوفيق

تحياتى لك

لا يا استاذى انا عاوز احط رابط صفحتى الشخصية بتاعة الفيس بوك ويتم تسجيل الدخول منها

وبعدها يجلب لى المعلومات التى كتبتها فوق الموجود بين علامتى التنصيص بعد كلمة access_token:

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