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 & "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 &= "/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)

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)

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)