VB.netでTrello APIを使ってみました。

Trello APIの使い方がなんとなくわかったので、VB.netでコードを書いてみることにしました。

ボード、リスト、カードの一覧を取得するコード

カードを作成するコードです。

スポンサーリンク

ボード一覧を取得するコードです。

        Dim sURL As String
        Dim objEnc As System.Text.Encoding = System.Text.Encoding.UTF8
        Dim objWC AsSystem.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
        sEndpoint = "https://trello.com/1/";
        sURL = sEndpoint & "members/me/"
        sURL &= "boards?key=" & s開発者向けAPIキー
        sURL &= "&token=" & sトークン
        sURL &= "&fields=name"
        objWC = NewSystem.Net.WebClient()
        byResult = objWC.DownloadData(sURL)
        '結果はJOSN形式で渡されます。
        sJSON = objEnc.GetString(byResult)

リスト一覧を取得するコードです。

        Dim sURL As String
        Dim objEnc As System.Text.Encoding = System.Text.Encoding.UTF8
        Dim objWC AsSystem.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
        sEndpoint = "https://trello.com/1/";
        sURL = sEndpoint & "boards/" & sボードID
        sURL &= "/lists?key=" & s開発者向けAPIキー
        sURL &= "&token=" & sトークン
        sURL &= "&fields=name"
        objWC = NewSystem.Net.WebClient()
        byResult = objWC.DownloadData(sURL)
        '結果はJOSN形式で渡されます。
        sJSON = objEnc.GetString(byResult)

カード一覧を取得するコードです。

        Dim sURL As String
        Dim objEnc As System.Text.Encoding = System.Text.Encoding.UTF8
        Dim objWC AsSystem.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
        sEndpoint = "https://trello.com/1/";
        sURL = sEndpoint & "boards/" & sボードID
        sURL &= "/cards?key=" & s開発者向けAPIキー
        sURL &= "&token=" & sトークン
        sURL &= "&fields=name,idList"
        objWC = NewSystem.Net.WebClient()
        byResult = objWC.DownloadData(sURL)
        '結果はJOSN形式で渡されます。
        sJSON = objEnc.GetString(byResult)

カードを作成するコードです。
上のやり方では上手くいかなかたので、NameValueCollectionを使うやり方に変えました。

test というカードを作るコードです。

        Dim sURL As String
        Dim objEnc As System.Text.Encoding = System.Text.Encoding.UTF8
        Dim objWC AsSystem.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
        sEndpoint = "https://trello.com/1/";
        sURL = sEndpoint
        sURL &= "cards"
        Dim objPostData As New System.Collections.Specialized.NameValueCollection
        objPostData.Add("key", s開発者向けAPIキー)
        objPostData.Add("token", sトークン)
        objPostData.Add("idList", sボードID)
        objPostData.Add("name", "test")
        objWC = NewSystem.Net.WebClient()
        byResult = objWC.UploadValues(sURL, objPostData)
        '結果はJOSN形式で渡されます。
        sJSON = System.Text.Encoding.UTF8.GetString(byResult)