vbscript VB版推送模板消息

Posted 2021-05-22

        '建立Bot instance
        Dim bot As New isRock.LineBot.Bot(Token)
        '傳入Channel access token
        '建立actions，作為ButtonTemplate的用戶回覆行為
        Dim actions = New List(Of isRock.LineBot.TemplateActionBase)()
        actions.Add(New isRock.LineBot.MessageActon() With {
          .label = "標題-文字回覆",
           .text = "回覆文字"
        })
        actions.Add(New isRock.LineBot.UriActon() With {
           .label = "標題-開啟URL",
            .uri = New Uri("http://www.google.com")
        })
        actions.Add(New isRock.LineBot.PostbackActon() With {
            .label = "標題-發生postack",
            .data = "abc=aaa&def=111"
        })

        '單一Button Template Message
        '設定圖片
        '設定回覆動作
        Dim ButtonTemplate = New isRock.LineBot.ButtonsTemplate() With {
            .text = "ButtonsTemplate文字訊息",
            .title = "ButtonsTemplate標題",
            .thumbnailImageUrl = New Uri("https://arock.blob.core.windows.net/test3/testimage.png"),
            .actions = actions
        }
        '發送
        bot.PushMessage(ToUserId, ButtonTemplate)