PythonのコードをC#かVBに変換したい

Question

PythonのコードをVBかC#に変換したいです。
目的は学習です。
Pythonコードは正常に動作している物で
VBコードは現在動作していない物です。
元のPythonコードと、私が書いたVBコードを載せます。
例外エラーなどは出ず処理は一応実行できますが、動作しない状況です。
私が書いたVBコードはどこが間違えているのかご教示願いたいです。

```Python
import requests
import json
# csvファイル取得
def get_csv(groupcodes, commandbytes):
   url = 'http://192.168.14.100:7001/testapi/sendbroadcastcommand?groupcodes={}&commandbytes={}'. format(json.dumps(groupcodes), json.dumps(commandbytes))
   print(url)
   headers = {
       'Content-Type': 'application/x-www-form-urlencoded;charset=UTF-8'
   }
   try:
       response = requests.post(url=url, headers=headers)
   except Exception as e:
       print("POST 例外発生！")
       print(e)
       return -1
   if response.status_code != 200:
       print("POST　応答エラー")
       return -2
if __name__ == '__main__':
   grcd1 = ['A','B']
   cmdbyte1 = [4, 17, 0, 234]
   try:
       get_csv(grcd1, cmdbyte1)
   except Exception as e01:
       print("get_scv()の中に例外発生！")
       print(e01)
```
```VB
Imports Newtonsoft.Json
Public Class Form1
   Public Class testjson
       Public Property groupcodes As String
       Public Property commandbytes As String
       'Public Property sikaku As String()
   End Class
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim ret As Int32
       'Dim postData As String
       Dim postDataBytes As Byte()
       Dim req As System.Net.WebRequest
       Dim reqStream As System.IO.Stream = Nothing
       Dim res As System.Net.WebResponse = Nothing
       Dim resStream As System.IO.Stream = Nothing
       Dim sr As System.IO.StreamReader = Nothing
       Try
           Dim syain1 As testjson = New testjson()
           syain1.groupcodes = "['A','B']"
           syain1.commandbytes = "[4, 17, 0, 234]"
           Dim Json As String = JsonConvert.SerializeObject(syain1)
           'バイト型配列に変換
           postDataBytes = System.Text.Encoding.UTF8.GetBytes(Json)
           'WebRequestの作成
           req = System.Net.WebRequest.Create("http://192.168.14.100:7001/testapi/sendbroadcastcommand")
           'メソッドにPOSTを指定
           req.Method = "POST"
           'ContentTypeを"application/json"にする
           req.ContentType = "application/json"
           ''POST送信するデータの長さを指定
           req.ContentLength = postDataBytes.Length
           req.Proxy = Nothing
           'データをPOST送信するためのStreamを取得
           reqStream = req.GetRequestStream()
           '送信するデータを書き込む
           reqStream.Write(postDataBytes, 0, postDataBytes.Length)
           ret = 0
       Catch ex As Exception
           'エラーコードの設定
           ret = 100
       Finally
           If IsNothing(reqStream) = False Then
               reqStream.Close()
           End If
           If IsNothing(sr) = False Then
               sr.Close()
           End If
       End Try
   End Sub
End Class
```

Accepted Answer

質問内容が消えていますが、運営が戻すはずなので回答しておきましょうか。
もちろんsitumondaro1234さんご本人が戻してもいいですよ。

C#で（VBは全然わかりません）、できるだけ元コードと同じ動作になるように移しました。
確認に [httpbin.org](https://httpbin.org/) を使用させていただきました。

変更点: 宛先変更・レスポンス表示
```Python
import requests
import json

def get_csv(groupcodes, commandbytes):
    #url = 'http://192.168.14.100:7001/testapi/sendbroadcastcommand?groupcodes={}&commandbytes={}'. format(json.dumps(groupcodes), json.dumps(commandbytes))
    url = 'https://httpbin.org/post?groupcodes={}&commandbytes={}'. format(json.dumps(groupcodes), json.dumps(commandbytes))
    print(url)

headers = {
        'Content-Type': 'application/x-www-form-urlencoded;charset=UTF-8'
    }
    try:
        response = requests.post(url=url, headers=headers)

except Exception as e:
        print("POST 例外発生！")
        print(e)
        return -1

if response.status_code != 200:
        print("POST　応答エラー")
        return -2

print(json.dumps(dict(response.headers), indent=2))
    print(json.dumps(response.json(), indent=2))

if __name__ == '__main__':
    grcd1 = ['A','B']
    cmdbyte1 = [4, 17, 0, 234]

try:
        get_csv(grcd1, cmdbyte1)
    except Exception as e:
        print("get_scv()の中に例外発生！")
        print(e)
```

出力: 一部伏せました（「＊＊＊」部分）
```json
https://httpbin.org/post?groupcodes=["A", "B"]&commandbytes=[4, 17, 0, 234]
{
  "Date": "Mon, 09 Aug 2021 08:36:50 GMT",
  "Content-Type": "application/json",
  "Content-Length": "603",
  "Connection": "keep-alive",
  "Server": "gunicorn/19.9.0",
  "Access-Control-Allow-Origin": "*",
  "Access-Control-Allow-Credentials": "true"
}
{
  "args": {
    "commandbytes": "[4, 17, 0, 234]",
    "groupcodes": "[\"A\", \"B\"]"
  },
  "data": "",
  "files": {},
  "form": {},
  "headers": {
    "Accept": "*/*",
    "Accept-Encoding": "gzip, deflate",
    "Content-Length": "0",
    "Content-Type": "application/x-www-form-urlencoded;charset=UTF-8",
    "Host": "httpbin.org",
    "User-Agent": "python-requests/2.26.0",
    "X-Amzn-Trace-Id": ＊＊＊
  },
  "json": null,
  "origin": ＊＊＊,
  "url": "https://httpbin.org/post?groupcodes=[\"A\", \"B\"]&commandbytes=[4, 17, 0, 234]"
}
```

---

```cs
using System;
using System.Linq;
using System.Net;
using System.Net.Http;
using System.Text.Json;
using System.Threading.Tasks;

async Task<int> GetCsvAsync(string[] groupCodes, byte[] commandBytes)
{
    var gc = JsonSerializer.Serialize(groupCodes); // "[\"A\",\"B\"]"
    //var cb = JsonSerializer.Serialize(commandBytes); // "\"BBEA6g==\""
    var cb = JsonSerializer.Serialize(commandBytes.Select(x => (int)x).ToArray()); // "[4,17,0,234]" int[]ならOK なんで？ｗ

//var url = $"http://192.168.14.100:7001/testapi/sendbroadcastcommand?groupcodes={gc}&commandbytes={cb}";
    var url = $"https://httpbin.org/post?groupcodes={gc}&commandbytes={cb}";
    Console.WriteLine(url);

var handler = new HttpClientHandler
    {
        AutomaticDecompression = DecompressionMethods.GZip | DecompressionMethods.Deflate,
    };
    var client = new HttpClient(handler);
    var request = new HttpRequestMessage(HttpMethod.Post, url);
    request.Headers.Add("Accept", "*/*");
    request.Headers.Add("ContentType", "application/x-www-form-urlencoded;charset=UTF-8");
    request.Headers.Add("User-Agent", ".NET 5.0 HttpClient");

HttpResponseMessage response;
    try
    {
        response = await client.SendAsync(request);
    }
    catch (Exception e)
    {
        Console.WriteLine("POST 例外発生！");
        Console.WriteLine(e);
        return -1;
    }

if (response.StatusCode != (HttpStatusCode)200) // HttpStatusCode.OK
    {
        Console.WriteLine("POST　応答エラー");
        return -2;
    }

Console.WriteLine(response.Headers);
    Console.WriteLine(response.Content.Headers);

var content = await response.Content.ReadAsStringAsync();
    Console.WriteLine(content);

return 0;
}

string[] grcd1 = { "A", "B" };
byte[] cmdbyte1 = { 4, 17, 0, 234 };

try
{
    await GetCsvAsync(grcd1, cmdbyte1);
}
catch (Exception e)
{
    Console.WriteLine("GetCsvAsync()の中に例外発生！");
    Console.WriteLine(e);
}
```

出力: 一部伏せました（「＊＊＊」部分）
```json
https://httpbin.org/post?groupcodes=["A","B"]&commandbytes=[4,17,0,234]
Date: Mon, 09 Aug 2021 08:38:11 GMT
Connection: keep-alive
Server: gunicorn/19.9.0
Access-Control-Allow-Origin: *
Access-Control-Allow-Credentials: true

Content-Type: application/json
Content-Length: 591

{
  "args": {
    "commandbytes": "[4,17,0,234]",
    "groupcodes": "[\"A\",\"B\"]"
  },
  "data": "",
  "files": {},
  "form": {},
  "headers": {
    "Accept": "*/*",
    "Accept-Encoding": "gzip, deflate",
    "Content-Length": "0",
    "Contenttype": "application/x-www-form-urlencoded;charset=UTF-8",
    "Host": "httpbin.org",
    "User-Agent": ".NET 5.0 HttpClient",
    "X-Amzn-Trace-Id": ＊＊＊
  },
  "json": null,
  "origin": ＊＊＊,
  "url": "https://httpbin.org/post?groupcodes=[\"A\",\"B\"]&commandbytes=[4,17,0,234]"
}
```

Top-level statementsを使用したので、.NET 5（C# 9.0）が必要です（使用できない場合はクラスとMainを書いてください）
[最上位レベルのステートメント - Main メソッドを使用しないプログラム | Microsoft Docs](https://docs.microsoft.com/ja-jp/dotnet/csharp/fundamentals/program-structure/top-level-statements)
[トップ レベル ステートメント - C# によるプログラミング入門 | ++C++; // 未確認飛行 C](https://ufcpp.net/study/csharp/misc/miscentrypoint/#top-level-statements)

Answer

まずはあなたなりにコードを書いてみましょう。

コード作成依頼はここでは受け付けていません

関連した質問