VB.netでTrello APIでカードを別のリストに移動させる方法

投稿日：2017年10月19日

VB.netでTrello APIでカードを別のリストに移動させることにしました。

eBayで注文が入る
↓
TrelloのeBay注文リストに自動でカード作成
↓
仕入れしたら、カードを発注済リストに移動

という処理を作成しました。

これは、スマホ上で処理するために作成したものです。
別にデスクトップでeBayの注文を管理するシステムがあり、パソコンの前にいる時は、そちらで処理します。

すると、デスクトップ上の管理システムで発注済にした後で、Trelloを開いてカードを発注済リストに移動するという作業が必要になります。
これでは２度手間です。

なので、デスクトップ上の管理システムで発注済にしたら、自動でTrello上でも発注済リストに入るようにすることにしました。

VB.netでTrello APIでカードを別のリストに移動させるコードは以下です。

        Dim sURL As String
        Dim objEnc As System.Text.Encoding = System.Text.Encoding.UTF8
        Dim objWC As System.Net.WebClient
        Dim sEndpoint As String
        Dim s開発者向けAPIキー As String = "[開発者向けAPIキー]"
        Dim sトークン As String = "[トークン]"
        Dim sカードID As String = "[カードID]"
        Dim byResult As Byte()
        Dim sJSON As String
        Dim sリストID As String = "[移動先のリストID]"

        sEndpoint = "https://api.trello.com/1/cards/"

        sURL = sEndpoint & sカードID


        Dim objPostData As New System.Collections.Specialized.NameValueCollection
        objPostData.Add("key", s開発者向けAPIキー)
        objPostData.Add("token", sトークン)
        objPostData.Add("idList", sリストID)

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

Dim sURL As String

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

Dim objWC As System.Net.WebClient

Dim sEndpoint As String

Dim s開発者向けAPIキー As String = "[開発者向けAPIキー]"

Dim sトークン As String = "[トークン]"

Dim sカードID As String = "[カードID]"

Dim byResult As Byte()

Dim sJSON As String

Dim sリストID As String = "[移動先のリストID]"

sEndpoint = "https://api.trello.com/1/cards/"

sURL = sEndpoint & sカードID

Dim objPostData As New System.Collections.Specialized.NameValueCollection

objPostData.Add("key", s開発者向けAPIキー)

objPostData.Add("token", sトークン)

objPostData.Add("idList", sリストID)

objWC = New System.Net.WebClient()

'PUTで送信します。

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

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

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