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

Question

PythonのコードをVBかC#に変換したいです。
目的は学習です。
Pythonコードは正常に動作している物で
VBコードは現在動作していない物です。
元のPythonコードと、私が書いたVBコードを載せます。
例外エラーなどは出ず処理は一応実行できますが、動作しない状況です。
私が書いたVBコードはどこが間違えているのかご教示願いたいです。

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)

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

Comments

[gentaro]

質問投稿前に表示される日本語の確認事項すら理解できないのであれば、たぶん小学生ぐらいからお勉強をやりなおさないと無理じゃないですかね。

[BeatStar]

プログラミングは『こう書けばよい』ではないです。
今回のは質問ではなく、依頼または『命令』です。

「俺様は努力したくないからアンタらがやれ。は？　アンタ、カネ取んの？
うぜぇ…」と言っているのと大差ありません。

回答者はカネを貰ってやっているのではなく、善意からやっています。

それなのに『自分は努力せずに』、『他人がやるのが当たり前』なのでしょうか。
あまりにも他人を舐めすぎ。

[BeatStar]

質問の修正を確認しました。
それでも『自分でやりましょう』です。

そもそもプログラミングは『書いて終わり』…ではありません。

デバッグやテストまで含みます。

少なくともデバッグまでは当たり前の技術です。(プログラミングをやるからには)

まずは自分でデバッグしましょう。

仮に自分でデバッグしたができない…というのなら『質問方法を工夫しましょう』です。

回答者は当事者じゃ無いので提示された情報からしか読み取れません。

なので、『試したこととその結果』とかを載せましょう。

そうしないと、回答者も質問者さんがやったこともすべて試さないといけないので時間の無駄です。
質問者さんが試したこととその結果とかを出せば、その部分は考慮しなくても済むので時間短縮ができます。

まずは自分でデバッグすることと質問方法を工夫することをやってください。

[gentaro]

「処理は一応実行できますが、動作しない」って書いて伝わると本気で思ってるの？
丸投げじゃないなら、期待する動作と実際の結果がどのようになるのか、ぐらい詳細に説明するべきだし、自分でどのあたりの処理がおかしいと思い、何を調べたかぐらい書こうや。
こうやって１から１０まで指示されないと質問文すら満足に書けないなら、プログラミングなんてできるわけがない。

[退会済みユーザー]

何を作っているか書いてください。Windows Forms? WPF? ASP.NET Web Forms? その他？

開発環境を書いてください。OS, Visual Studio のバージョン、.NET Framework or Core のどっちかとそのバージョンなど。

読んで質問内容を見直しましょう→ https://teratail.com/help/question-tips
特に「2. 質問をする前に自分で何がわからないのかを把握しましょう」のあたり。今は何もわかってなくて、何が分かれば解決できるのかを文書化できないのでは？

Python のコードを見ると、Web API に対して URL にクエリ文字列を情報として追加し POST 要求をかければ、CSV 形式のデータが応答として返ってくるということのようですが、VB のコードはそうなっていないようです。分かって書いてないのでは？

[Zuishin]

> 目的は学習です。

大変効率が悪そうです。
入門書を読むところから始めた方がいいでしょう。

[maisumakun]

> 目的は学習です。

「何の」学習でしょうか？

[Zuishin]

それと、VB.NET は開発終了したので、今後の .NET のバージョンアップから取り残されることがアナウンスされています。
.NET 6 以降は VB.NET をサポートしません(無理やり使える部分がなくはありませんが保証はされません)。
今から学習しても仕事は減る一方でしょう。

[退会済みユーザー]

> 回答得られない為、本質問は取りやめます。

回答が得られない最大の原因は自分の質問の仕方の問題だと認識できない人なのだろうね。ゆとり教育の成果かなぁ・・・

[Zuishin]

返事も何もしないで回答が得られないってそりゃ当然だろとしか。

[BeatStar]

> 回答得られない為、本質問は取りやめます。

その言い分だと、『俺様は悪くない！　回答者が悪いんだ！』としか読めませんよ？

そこまで暴言を吐く態度なら、全て自分でやるべきでは。

回答者は善意でやっており、回答する義務はありません。

Answer 1

まずはあなたなりにコードを書いてみましょう。

コード作成依頼はここでは受け付けていません

Comments

[situmondaro1234]

私が作成したコードを追記しました。よろしくお願いします

[退会済みユーザー]

回答でないことを回答欄に書くのは止めましょう。そんなに点数が欲しい？

もし回答を書く気があるなら、質問者さんはあなたの求めに応じてコードを追記したのだから、回答（少なくとも何らかのフィードバック）を書いてはいかが？

Answer 2

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

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

変更点: 宛先変更・レスポンス表示

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)

出力: 一部伏せました（「＊＊＊」部分）

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]"
}

---

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);
}

出力: 一部伏せました（「＊＊＊」部分）

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
トップ レベル ステートメント - C# によるプログラミング入門 | ++C++; // 未確認飛行 C