質問編集履歴
6
プログラム修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -20,7 +20,7 @@
|
|
|
20
20
|
--VB.NETでのリクエストコード--
|
|
21
21
|
```ここに言語を入力
|
|
22
22
|
'HttpWebRequestの作成
|
|
23
|
-
Dim sUrl As String = "{URL}?item_no=item_001"
|
|
23
|
+
Dim sUrl As String = "https://{URL}?item_no=item_001"
|
|
24
24
|
Dim req As HttpWebRequest = DirectCast(WebRequest.Create(sUrl), HttpWebRequest)
|
|
25
25
|
|
|
26
26
|
'メソッドにGETを指定
|
5
説明文を変更しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -10,15 +10,14 @@
|
|
|
10
10
|
・Accept：application/json
|
|
11
11
|
・複数レコード送信：不可
|
|
12
12
|
|
|
13
|
-
以下のように
|
|
13
|
+
・以下のようにコーディングすると、「(401)許可されていません」と出てしまいます。データ取得にはIDやKeyが必要ですが、その間違い等はありません。
|
|
14
|
+
※Curlをコマンドプロンプトで打ち込み、リクエストを送るとデータ取得できることは立証できています。
|
|
14
15
|
|
|
15
16
|
様々なサイトを参考にしましたが、全く手詰まり状態です。
|
|
16
17
|
何が足りないのか、どのようにアプローチをすればよいのかご教授願えるとありがたいです。
|
|
17
18
|
※VB.NETは”.Net Framework4.0”を使用
|
|
18
19
|
|
|
19
20
|
--VB.NETでのリクエストコード--
|
|
20
|
-
※まだ作成途中ですが・・・
|
|
21
|
-
|
|
22
21
|
```ここに言語を入力
|
|
23
22
|
'HttpWebRequestの作成
|
|
24
23
|
Dim sUrl As String = "{URL}?item_no=item_001"
|
4
プログラムを修正しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -29,7 +29,7 @@
|
|
|
29
29
|
'Acceptに"application/json"を指定
|
|
30
30
|
req.Accept = "application/json"
|
|
31
31
|
|
|
32
|
-
req.Credentials = New NetworkCredential(ID,
|
|
32
|
+
req.Credentials = New NetworkCredential(ID, CertificationKey)
|
|
33
33
|
|
|
34
34
|
'サーバーからの応答を受信するためのWebResponseを取得
|
|
35
35
|
Dim res As System.Net.WebResponse = req.GetResponse()
|
3
プログラムを修正しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -29,7 +29,7 @@
|
|
|
29
29
|
'Acceptに"application/json"を指定
|
|
30
30
|
req.Accept = "application/json"
|
|
31
31
|
|
|
32
|
-
req.Credentials = New NetworkCredential(
|
|
32
|
+
req.Credentials = New NetworkCredential(ID, Key)
|
|
33
33
|
|
|
34
34
|
'サーバーからの応答を受信するためのWebResponseを取得
|
|
35
35
|
Dim res As System.Net.WebResponse = req.GetResponse()
|
2
プログラムの修正を行いました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -20,31 +20,17 @@
|
|
|
20
20
|
※まだ作成途中ですが・・・
|
|
21
21
|
|
|
22
22
|
```ここに言語を入力
|
|
23
|
-
'GET送信する文字列を作成
|
|
24
|
-
Dim postdata As String = "[{""item_no=item_001""}]"
|
|
25
|
-
'バイト型配列に変換()
|
|
26
|
-
Dim postDataBytes As Byte() = _
|
|
27
|
-
System.Text.Encoding.UTF8.GetBytes(postData)
|
|
28
|
-
|
|
29
23
|
'HttpWebRequestの作成
|
|
30
|
-
Dim sUrl As String = "{URL}"
|
|
24
|
+
Dim sUrl As String = "{URL}?item_no=item_001"
|
|
31
25
|
Dim req As HttpWebRequest = DirectCast(WebRequest.Create(sUrl), HttpWebRequest)
|
|
32
26
|
|
|
33
27
|
'メソッドにGETを指定
|
|
34
28
|
req.Method = "GET"
|
|
35
29
|
'Acceptに"application/json"を指定
|
|
36
30
|
req.Accept = "application/json"
|
|
37
|
-
'GET送信するデータの長さを指定
|
|
38
|
-
req.ContentLength = postDataBytes.Length
|
|
39
31
|
|
|
40
32
|
req.Credentials = New NetworkCredential(sShopID, sCertificationKey)
|
|
41
33
|
|
|
42
|
-
'データをGET送信するためのStreamを取得
|
|
43
|
-
Dim reqStream As System.IO.Stream = req.GetRequestStream()
|
|
44
|
-
'送信するデータを書き込む
|
|
45
|
-
reqStream.Write(postDataBytes, 0, postDataBytes.Length)
|
|
46
|
-
reqStream.Close()
|
|
47
|
-
|
|
48
34
|
'サーバーからの応答を受信するためのWebResponseを取得
|
|
49
35
|
Dim res As System.Net.WebResponse = req.GetResponse()
|
|
50
36
|
'応答データを受信するためのStreamを取得
|
1
サンプルコードをタグで囲みました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -19,6 +19,7 @@
|
|
|
19
19
|
--VB.NETでのリクエストコード--
|
|
20
20
|
※まだ作成途中ですが・・・
|
|
21
21
|
|
|
22
|
+
```ここに言語を入力
|
|
22
23
|
'GET送信する文字列を作成
|
|
23
24
|
Dim postdata As String = "[{""item_no=item_001""}]"
|
|
24
25
|
'バイト型配列に変換()
|
|
@@ -52,4 +53,5 @@
|
|
|
52
53
|
Dim sr As New System.IO.StreamReader(resStream, enc)
|
|
53
54
|
|
|
54
55
|
'閉じる
|
|
55
|
-
sr.Close()
|
|
56
|
+
sr.Close()
|
|
57
|
+
```
|