teratail
回答率
85.48%
質問するログイン新規登録
トップに関する質問VB.NETにてWebApiデータの取得したいのですが

編集履歴

質問編集履歴

6

プログラム修正

2016/03/02 09:39

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -42,7 +42,7 @@
42
42
 
43
43
  'HttpWebRequestの作成
44
44
 
45
- Dim sUrl As String = "{URL}?item_no=item_001"
45
+ Dim sUrl As String = "https://{URL}?item_no=item_001"
46
46
 
47
47
  Dim req As HttpWebRequest = DirectCast(WebRequest.Create(sUrl), HttpWebRequest)
48
48
 

5

説明文を変更しました。

2016/03/02 09:39

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -22,7 +22,9 @@
22
22
 
23
23
 
24
24
 
25
- 以下のようにVB.NETでGETメソッドを使用すると、「コンテンツ本体をこの verb-type では送信できません。」とエラー出力され、POSTメソッドに変更すると「(405) メソッドは使用できません」というエラー出力になります。
25
+ ・以下のようにコーディングすると、「(401)許可されていません」と出てしまいます。データ取得にはIDやKeyが必要ですが、その間違い等はありません。
26
+
27
+ ※Curlをコマンドプロンプトで打ち込み、リクエストを送るとデータ取得できることは立証できています。
26
28
 
27
29
 
28
30
 
@@ -35,10 +37,6 @@
35
37
 
36
38
 
37
39
  --VB.NETでのリクエストコード--
38
-
39
- ※まだ作成途中ですが・・・
40
-
41
-
42
40
 
43
41
  ```ここに言語を入力
44
42
 

4

プログラムを修正しました

2016/03/02 09:37

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -60,7 +60,7 @@
60
60
 
61
61
 
62
62
 
63
- req.Credentials = New NetworkCredential(ID, Key)
63
+ req.Credentials = New NetworkCredential(ID, CertificationKey)
64
64
 
65
65
 
66
66
 

3

プログラムを修正しました。

2016/03/02 09:32

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -60,7 +60,7 @@
60
60
 
61
61
 
62
62
 
63
- req.Credentials = New NetworkCredential(sShopID, sCertificationKey)
63
+ req.Credentials = New NetworkCredential(ID, Key)
64
64
 
65
65
 
66
66
 

2

プログラムの修正を行いました。

2016/03/02 09:31

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -42,21 +42,9 @@
42
42
 
43
43
  ```ここに言語を入力
44
44
 
45
- 'GET送信する文字列を作成
46
-
47
- Dim postdata As String = "[{""item_no=item_001""}]"
48
-
49
- 'バイト型配列に変換()
50
-
51
- Dim postDataBytes As Byte() = _
52
-
53
- System.Text.Encoding.UTF8.GetBytes(postData)
54
-
55
-
56
-
57
45
  'HttpWebRequestの作成
58
46
 
59
- Dim sUrl As String = "{URL}"
47
+ Dim sUrl As String = "{URL}?item_no=item_001"
60
48
 
61
49
  Dim req As HttpWebRequest = DirectCast(WebRequest.Create(sUrl), HttpWebRequest)
62
50
 
@@ -70,25 +58,9 @@
70
58
 
71
59
  req.Accept = "application/json"
72
60
 
73
- 'GET送信するデータの長さを指定
74
-
75
- req.ContentLength = postDataBytes.Length
76
-
77
61
 
78
62
 
79
63
  req.Credentials = New NetworkCredential(sShopID, sCertificationKey)
80
-
81
-
82
-
83
- 'データをGET送信するためのStreamを取得
84
-
85
- Dim reqStream As System.IO.Stream = req.GetRequestStream()
86
-
87
- '送信するデータを書き込む
88
-
89
- reqStream.Write(postDataBytes, 0, postDataBytes.Length)
90
-
91
- reqStream.Close()
92
64
 
93
65
 
94
66
 

1

サンプルコードをタグで囲みました

2016/03/02 09:30

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -39,6 +39,8 @@
39
39
  ※まだ作成途中ですが・・・
40
40
 
41
41
 
42
+
43
+ ```ここに言語を入力
42
44
 
43
45
  'GET送信する文字列を作成
44
46
 
@@ -107,3 +109,5 @@
107
109
  '閉じる
108
110
 
109
111
  sr.Close()
112
+
113
+ ```