[elgokr]

(18-05-18, 02:32 AM)ابو روضة كتب :

(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:

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

اولاً الفيس بوك ا يعطي الكود لخاص بالحساب الا من خلال التعامل اليدوى من خلال الرابط التالى

https://developers.facebook.com/

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

حتى نتمكن من افادتك بالاكواد التى تساعد فى ذلك

تحياتى لك