VB.netでヤフーショッピングのストアカテゴリ削除APIを使う方法

投稿日：2017年10月25日

自作ツールに登録したカテゴリ情報を簡単にヤフーショッピングストアに反映させる事ができるようにしたいと思います。

の３つがあれば、自作ツール→ヤフーショッピングストアへ反映させるシステムを動作させるためには十分そうです。

なので、今回は、VB.netでヤフーショッピングのストアカテゴリ削除APIを使う方法です。

VB.netでヤフーショッピングのストアカテゴリ削除APIを使う方法

ストアカテゴリ削除APIの仕様はこちらです。

        Dim sURL As String
        Dim objEnc As System.Text.Encoding = System.Text.Encoding.UTF8
        Dim objWC As System.Net.WebClient
        Dim byResult As Byte()
        Dim sRtn As String

        sURL = "https://circus.shopping.yahooapis.jp/ShoppingWebService/V1/deleteStCategory"

        Dim objPostData As New System.Collections.Specialized.NameValueCollection
        objPostData.Add("seller_id", "[ストアアカウント]")
        objPostData.Add("page_key", "[ページキー]")
        objPostData.Add("access_token", "[アクセストークン]")

        Try

            objWC = New System.Net.WebClient()
            'PUTで送信します。
            byResult = objWC.UploadValues(sURL, "POST", objPostData)
            '結果はXML形式で渡されます。
            sRtn = System.Text.Encoding.UTF8.GetString(byResult)
            MessageBox.Show(sRtn)

        Catch ex As WebException

            Dim objEncError As Encoding = Encoding.UTF8
            'MessageBox.Show(ex.Response.Headers.ToString)
            Dim resError As WebResponse = ex.Response
            Dim resStreamError As Stream = resError.GetResponseStream()
            Dim srError As StreamReader = New StreamReader(resStreamError, objEncError)
            'エラーが発生した場合のレスポンスを取得
            Dim htmlError As String = srError.ReadToEnd()
            srError.Close()
            resStreamError.Close()

        End Try

Dim sURL As String

Dim objEnc As System.Text.Encoding = System.Text.Encoding.UTF8

Dim objWC As System.Net.WebClient

Dim byResult As Byte()

Dim sRtn As String

sURL = "https://circus.shopping.yahooapis.jp/ShoppingWebService/V1/deleteStCategory"

Dim objPostData As New System.Collections.Specialized.NameValueCollection

objPostData.Add("seller_id", "[ストアアカウント]")

objPostData.Add("page_key", "[ページキー]")

objPostData.Add("access_token", "[アクセストークン]")

Try

objWC = New System.Net.WebClient()

'PUTで送信します。

byResult = objWC.UploadValues(sURL, "POST", objPostData)

'結果はXML形式で渡されます。

sRtn = System.Text.Encoding.UTF8.GetString(byResult)

MessageBox.Show(sRtn)

Catch ex As WebException

Dim objEncError As Encoding = Encoding.UTF8

'MessageBox.Show(ex.Response.Headers.ToString)

Dim resError As WebResponse = ex.Response

Dim resStreamError As Stream = resError.GetResponseStream()

Dim srError As StreamReader = New StreamReader(resStreamError, objEncError)

'エラーが発生した場合のレスポンスを取得

Dim htmlError As String = srError.ReadToEnd()

srError.Close()

resStreamError.Close()

End Try