slackに.netのWebClientからつぶやく

Ingressで、お世話になっているコミュニティが、slackになった。
Hubot系はLAMPな方々が頑張りそうなので、
僕は.netからつぶやいてみることにした。

最終的には(Herokuではなくて)AppHorborからつぶやきくことになると思うけど、
とりあえずはローカルのWebClientから。

Imports Newtonsoft.Json

Module Module1

Sub Main()
    Dim strUrl As String = "https://hooks.slack.com/services/XXXXX/YYYYY/ZZZZZ"
    Dim objEnc As System.Text.Encoding = New System.Text.UTF8Encoding

    'ﾒｯｾｰｼﾞ作る
    Dim strPostMsg As String = JsonConvert.SerializeObject(New With {.text = "Hellow World", _
                                                                     .icon_emoji = ":grin:", _
                                                                     .username = "botbotbot"})

    'ﾒｯｾｰｼﾞ投稿
    Using objWC As Net.WebClient = New Net.WebClient
        Dim objKV As New System.Collections.Specialized.NameValueCollection
        objKV("payload") = strPostMsg
        Dim objRes As Byte() = objWC.UploadValues(strUrl, "POST", objKV)
        Dim strRes As String = objEnc.GetString(objRes)
    End Using
End Sub
End Module