منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تحويل كود من c# الى vb.net - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تحويل كود من c# الى vb.net (/showthread.php?tid=38490)



تحويل كود من c# الى vb.net - aldery - 24-05-21

السلام عليكم : أريد مساعدتكم في تحويل هذا الكود البسيط وشكراً لكم .

كود :
using (var httpClient = new HttpClient())
{
   using (var request = new HttpRequestMessage(new HttpMethod("POST"), "https://wsapi.simsimi.com/190410/talk"))
   {
       request.Headers.TryAddWithoutValidation("x-api-key", "PASTE_YOUR_PROJECT_KEY_HERE");

       request.Content = new StringContent("{\n            \"utext\": \"hello there\", \n            \"lang\": \"en\" \n     }", Encoding.UTF8, "application/json");

       var response = await httpClient.SendAsync(request);
   }
}



RE: تحويل كود من c# الى vb.net - 2021 - 24-05-21

Using httpClient As New HttpClient

    Using request As New HttpRequestMessage(New HttpMethod("POST"), "https://wsapi.simsimi.com/190410/talk")
        request.Headers.TryAddWithoutValidation("x-api-key", "PASTE_YOUR_PROJECT_KEY_HERE")

        request.Content = New StringContent("{""utext"":""hello there"",""lang"":""en""}", Encoding.UTF8, "application/json")

        Dim response = await httpClient.SendAsync(request)

    End Using

End Using

الكود يطلب منك وضع المفتاح الخاص بك بدلا من PASTE_YOUR_PROJECT_KEY_HERE


RE: تحويل كود من c# الى vb.net - aldery - 24-05-21

(24-05-21, 05:30 AM)2021 كتب : Using httpClient As New HttpClient

    Using request As New HttpRequestMessage(New HttpMethod("POST"), "https://wsapi.simsimi.com/190410/talk")
        request.Headers.TryAddWithoutValidation("x-api-key", "PASTE_YOUR_PROJECT_KEY_HERE")

        request.Content = New StringContent("{""utext"":""hello there"",""lang"":""en""}", Encoding.UTF8, "application/json")

        Dim response = await httpClient.SendAsync(request)

    End Using

End Using

الكود يطلب منك وضع المفتاح الخاص بك بدلا من PASTE_YOUR_PROJECT_KEY_HERE

شكراً لك   Heart