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)