VB.NETにてWebApiデータの取得したいのですが

Question

以下のような仕様のwebapiデータをVB.NETで取得します。
--curlでの取得サンプル--
curl -X GET -G -u ' { ID } : { キー } ' 'https://{URL}'
-H 'Accept: application/json'
-d 'item_no=item_001'

--webapi仕様--
・HTTPメソッド：GET
・Content-Type：なし
・Accept：application/json
・複数レコード送信：不可

・以下のようにコーディングすると、「(401)許可されていません」と出てしまいます。データ取得にはIDやKeyが必要ですが、その間違い等はありません。
※Curlをコマンドプロンプトで打ち込み、リクエストを送るとデータ取得できることは立証できています。

様々なサイトを参考にしましたが、全く手詰まり状態です。
何が足りないのか、どのようにアプローチをすればよいのかご教授願えるとありがたいです。
※VB.NETは”.Net Framework4.0”を使用

--VB.NETでのリクエストコード--

   'HttpWebRequestの作成
   Dim sUrl As String = "https://{URL}?item_no=item_001"
   Dim req As HttpWebRequest = DirectCast(WebRequest.Create(sUrl), HttpWebRequest)

   'メソッドにGETを指定
   req.Method = "GET"
  'Acceptに"application/json"を指定
   req.Accept = "application/json"

   req.Credentials = New NetworkCredential(ID, CertificationKey)

   'サーバーからの応答を受信するためのWebResponseを取得
   Dim res As System.Net.WebResponse = req.GetResponse()
   '応答データを受信するためのStreamを取得
   Dim resStream As System.IO.Stream = res.GetResponseStream()
   '受信して表示
   Dim sr As New System.IO.StreamReader(resStream, enc)

   '閉じる
   sr.Close()

Answer 1

.NETのこの辺はあまり詳しくないのですが。

GETメソッドしか許可されていないWebAPIなので、「POSTメソッドに変更」したら「(405) メソッドは使用できません」になるのは当然ですね。

また、JSONパラメーターはPOSTで送信するものなので、GETでは送れないのでしょう。

なので、URLの後ろにURLパラメーターとして?item_no=item_001を付けてみたらどうでしょうか。
試しにブラウザーでアクセスしてみればできるかどうかわかるはずです。

reqStream.Writeのところは、パラメーターを書き込む必要が無いので、消してしまって良いのんじゃないかと思います。
req.ContentLengthも不要です。

Comments

[退会済みユーザー]

返信ありがとうございます。
１．ブラウザにてURLパラで試してみました。
　　データは取得できませんがAPI先独自のエラーがレスポンスされます。
　　これは、IDとキーを入力していないために起こるエラーでしたので納得ができます。

２．.NETのプログラムをアドバイスどおりに書き換えました。
　　・Dim sUrl As String = "{URL}?item_no=item_001"
　　・reqStream.Writeやreq.ContentLengthは削除しました。

　　すると、401エラーがレスポンスされます。
　　IDとキーの渡し方等も変えてみましたが、結果は同じでした。