Line Notify ด้วย VB.Net

สวัสดีครับ

LINE มีบริการ API Notify ให้ใช้ หมายความว่าเราสามารถเขียนโค้ดจากโปรแกรมเราให้ยิงข้อความเข้า LINE ได้

แต่มีข้อจำกัดที่ว่าจะสามารถส่งแจ้งเตือนได้เฉพาะผู้ที่ขอใช้ หรือกลุ่มที่เป็นสมาชิกเท่านั้น ไม่สามารถส่งหาห้องสนทนาของเพื่อนๆ ได้ ซึ่งต้องใช้ LINE Bot API แทน

ขั้นตอนการเตรียมความพร้อม
1. Add LINE Notify เป็นเพื่อนก่อน เข้า Account ของคุณ

2. Invite LINE Notify จากข้อ 1 เข้ากลุ่มที่ต้องการ
3. ไปรับ Token จากเว็บของ LINE https://notify-bot.line.me/my/

ตอนขอรับ Token ระบบจะให้ใส่ชื่อ Token เวลาแสดงข้อความจะแสดงในรูปแบบนี้
[ชื่อ Token]: [ข้อความ]

เช่น ตั้งชื่อ Token ว่า BerzerkNoti แล้วเราต้องการส่งคำว่า "สวัสดี" ไป ข้อความจะแสดงแบบนี้

BerzerkNoti: สวัสดี


Code
 Private Sub btnTestNoti_Click(sender As Object, e As EventArgs) Handles btnTestNoti.Click
        Try
            Dim request = CType(WebRequest.Create("https://notify-api.line.me/api/notify"), HttpWebRequest)
            Dim postData = String.Format("message={0}", txtNotiMsg.Text)
            Dim data = Encoding.UTF8.GetBytes(postData)

            If Not String.IsNullOrEmpty(txtNotiMsg.Text.Trim) Then
                With request
                    .Method = "POST"
                    .ContentType = "application/x-www-form-urlencoded"
                    .ContentLength = data.Length
                    .Headers.Add("Authorization", "Bearer YourToken")
                End With
            End If


            Using stream As System.IO.Stream = request.GetRequestStream()
                stream.Write(data, 0, data.Length)
            End Using


        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub