تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] المكان المناسب لي هذا الكود
#1
لدي هذا الكود اين المكان المناسب له وظيفه هذا الكود هو لجلب الاكسيس توكن الخاص بالفيس بوك بعد تسجيل الدخول من خلال 2 تكست بوكس و زر بوتن 
كود :
Private Function GetToken(ByVal User As String, ByVal pass As String) As String
   Dim result As String

   Try
       Dim str As String = "https://api.facebook.com/restserver.php"
       Dim str2 As String = "62f8ce9f74b12f84c123cc23437a4a32"
       Dim dictionary As Dictionary(Of String, String) = New Dictionary(Of String, String)()
       dictionary.Add("api_key", "882a8490361da98702bf97a021ddc14d")
       dictionary.Add("credentials_type", "password")
       dictionary.Add("email", User)
       dictionary.Add("format", "JSON")
       dictionary.Add("generate_machine_id", "1")
       dictionary.Add("generate_session_cookies", "1")
       dictionary.Add("locale", "en_CA")
       dictionary.Add("method", "auth.login")
       dictionary.Add("password", pass)
       dictionary.Add("return_ssl_resources", "0")
       dictionary.Add("v", "1.0")
       Dim text As String = String.Empty

       For Each keyValuePair As KeyValuePair(Of String, String) In dictionary
           text = text & keyValuePair.Key & "=" + keyValuePair.Value
       Next

       text += str2
       text = Form1.PHPMd5Hash(text).ToLower()
       dictionary.Add("sig", text)
       Dim url As String = str & "?" & QueryStringBuilder.BuildQueryString(dictionary, "&")
       result = CStr(JObject.Parse(Me.[GET](url))("access_token"))
   Catch
       result = Nothing
   End Try

   Return result
End Function
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اين الخطئ في هد الكود ahmedbezia 4 90 01-06-20, 03:57 PM
آخر رد: Sorax
  تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال momani33 4 99 28-05-20, 12:46 AM
آخر رد: اسامه الهرماوي
  اريد عمل Invoke لهذا الكود لوضعه في BackGroundWorker developermedo111 1 82 14-05-20, 12:00 PM
آخر رد: عبدالله الدوسري
  عايز اعرف السطر اللي بيحصل عنده المشكله في الكود makky 0 45 10-05-20, 08:43 PM
آخر رد: makky
  [كود] ما هو الكود المناسب لصنع برنمج تحويل الصور ل ايقونات محمد ايمن 7 308 08-05-20, 03:12 AM
آخر رد: سعود
  اريد كود لطباعة Report viewer تلقائيا مجرد م اقوم بفتح النافذه يتم وضع الكود بال Load mohamedgadain61 31 1,208 02-05-20, 08:47 PM
آخر رد: علي سالم
  اريد تحويل الكود developermedo111 2 106 02-05-20, 08:14 AM
آخر رد: developermedo111
  [VB.NET] كيف اقضي على مشاكل الكود البحث ةالاضافة و التعديل بالعربية في فيجوال بيسك rochdi191 5 157 01-05-20, 04:26 PM
آخر رد: rochdi191
  شرح الكود developermedo111 0 62 29-04-20, 12:06 AM
آخر رد: developermedo111
  الحدث KeyPress ماهو الكود المناسب بحيث اسمح فقط للارقام وعلامة او نقطة واحدة فقط! سعود 6 162 20-04-20, 08:36 PM
آخر رد: ابو روضة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم