[عضو جديد]

(06-03-23, 02:15 PM)asdfar1977 كتب :

using Net.Pkcs11Interop.Common;
using Net.Pkcs11Interop.HighLevelAPI;
using Newtonsoft.Json.Linq;
using RestSharp;
 private string GetToken()
        {
            try
            {
                var client = new RestClient(config_class.tokenurl);
                var request = new RestRequest(Method.POST);
                request.AddHeader("cache-control", "no-cache");
                request.AddHeader("content-type", "");
                request.AddParameter();
                IRestResponse response = client.Execute(request);
                JObject jObject = JObject.Parse(response.Content);
                dynamic resp = jObject;
                String token = resp.access_token;
                return token;
            }
            catch (Exception ex)
            {
            }
            return "";
        }

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

وكانت النتيجة واحدة 

ثم اخذت الكود الذى تم تحويله الى لغة الفيجوال واستخدمته فى القاعدة الخاصة بى ولكن اعطى خطى فى كود dynamic كما يلى

Dim resp As Dynamic = jObject

            Dim token As String = resp.access_token

ولقد قمت باحضار تلك المكتبه ولم يتغير شى  Imports Dynamitey

يرجى الافادة للاهمية

Dim resp As Dynamic = jObject
Dim token As String = jObject.Item("access_token")