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

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)