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

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

• ストアカテゴリ編集API
• ストアカテゴリ一覧API
• ストアカテゴリ削除API

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

スポンサーリンク

なので、今回は、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