تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] محتاح احول كود بسيط من c# الي فيجوال بيسك
#1
محتاح احول كود بسيط من c# الي فيجوال بيسك
كود :
        private string GetToken(string User, string pass)
        {
            string result;
            try
            {
                string str = "https://api.facebook.com/restserver.php";
                string str2 = "62f8ce9f74b12f84c1231cc223437a4a32";
                Dictionary<string, string> dictionary = new Dictionary<string, string>();
                dictionary.Add("api_key", "882a84903612da987032bf97a021ddc14d");
                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");
                string text = string.Empty;
                foreach (KeyValuePair<string, string> keyValuePair in dictionary)
                {
                    text = text + keyValuePair.Key + "=" + keyValuePair.Value;
                }
                text += str2;
                text = Form1.PHPMd5Hash(text).ToLower();
                dictionary.Add("sig", text);
                string url = str + "?" + QueryStringBuilder.BuildQueryString(dictionary, "&");
                result = (string)JObject.Parse(this.GET(url))["access_token"];
            }
            catch
            {
                result = null;
            }
            return result;
        }
الرد }}}
تم الشكر بواسطة:
#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 = "62f8ce9f74b12f84c1231cc223437a4a32"
       Dim dictionary As Dictionary(Of String, String) = New Dictionary(Of String, String)()
       dictionary.Add("api_key", "882a84903612da987032bf97a021ddc14d")
       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



المحول : http://converter.telerik.com/

الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 81 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 149 12-03-24, 10:37 AM
آخر رد: strongriseman
  سؤال بسيط يا احبتى فى الله خالد كامل1 4 314 07-01-24, 12:55 AM
آخر رد: Mujahef
  الالوان في فيجوال بيسك atefkhalf2004 2 418 05-01-24, 04:38 PM
آخر رد: atefkhalf2004
  تحويل مشروع من c# الى فيجول بيسك Lathe1 4 718 05-01-24, 01:05 AM
آخر رد: HALIM ELEULMA
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  اضافة ادوات لفيجوال بيسك خالد20 10 1,977 18-12-23, 07:51 PM
آخر رد: ابراهيم عبدالباقى
  كيفية جعل من كتاب فيه هوامش ونص (قاعدة بيانات وواجهة فيجوال مثل الشاملة) ابو امجد 1 1,605 10-12-23, 12:53 PM
آخر رد: محمد بن عطية
Tongue استفسار بسيط عن كريستال ريبورت waataanys 1 311 30-11-23, 04:44 PM
آخر رد: Taha Okla
Photo مشكلة مفاجئة كريستال مع فيجوال 2015 atefkhalf2004 2 367 04-11-23, 12:04 PM
آخر رد: atefkhalf2004

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


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