[VB.NET] โค้ดการใช้งาน Line Messaging API (แทนที่ Line Notify)

thongkorn

Add References ... NewtonSoft.Json (ใช้แยกข้อมูลจาก Object มาเป็น JSON Format)

โค้ด VB.NET (.Net Framework 4.5+) กับการใช้งาน Line Messaging API เพื่อใช้แทนที่ Line Notify ...
สมัครการใช้งาน Line Official Account ที่
https://manager.line.biz/
https://developers.line.biz/en/

คลิปวิดีโอในการสมัครใช้งาน Line Official Account เพื่อรับค่า Channel Access Token และ UserID (สำคัญ)

มาดูโค้ดฉบับเต็มกันเถอะ ... frmMain.vb ...

1. '// สมัครการใช้งาน Line Messaging API ที่
   
2. '// https://manager.line.biz/
   
3. '// https://developers.line.biz/en/
   
4. '// จากนั้น สร้าง Channel ใน Line Messaging API
   
5. '// รับ Channel Access Token และ User ID จากหน้า Line Console
   
6. 
   
7. '// ติดตั้ง Library Newtonsoft.Json เพื่อช่วยจัดการ JSON
   
8. '// ใน NuGet Package Manager Console ใช้คำสั่ง:
   
9. '// Install-Package Newtonsoft.Json
   
10. '// .Net Framework 4.5
    
11. 
    
12. Public Class frmMain
    
13. 
    
14.     ' / --------------------------------------------------------------------------------
    
15.     ' / S T A R T ... H E R E
    
16.     ' / --------------------------------------------------------------------------------
    
17.     Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
    
18.         txtMessage.Text = "ทดสอบการทำงานของ Line Messaging API"
    
19.     End Sub
    
20. 
    
21.     '// --------------------------------------------------------------------------------
    
22.     '// คำสั่ง Async ใช้เพื่อระบุว่าฟังก์ชันหรือเมธอดสามารถดำเนินการแบบ Asynchronous
    
23.     '// หรือเป็นทำงานแบบไม่รอให้เสร็จสมบูรณ์ก่อนที่จะไปทำคำสั่งถัดไปได้
    
24.     '// โดยปกติจะใช้ร่วมกับคำสั่ง Await เพื่อเรียกใช้งานงานที่ใช้เวลานาน
    
25.     '// เช่น การร้องขอข้อมูลจาก API, อ่าน/เขียนไฟล์, หรือรอเครือข่าย โดยไม่บล็อกส่วนที่เหลือของแอปพลิเคชัน
    
26.     '// --------------------------------------------------------------------------------
    
27.     Private Async Sub btnSendMessage_Click(sender As Object, e As EventArgs) Handles btnSendMessage.Click
    
28.         If (String.IsNullOrEmpty(txtMessage.Text.Trim)) Then Return
    
29.         '// เรียกไปยังคลาส LineMessagingAPI
    
30.         Dim LineAPI As New LineMessagingAPI()
    
31.         '// Await:
    
32.         '// ใช้เพื่อรอการทำงานของงานที่ใช้เวลานาน โดยไม่บล็อกการทำงานของเธรดหลัก
    
33.         '// คำสั่งหลัง Await จะรันเมื่อการทำงานนั้นเสร็จสมบูรณ์
    
34.         Await LineAPI.SendMessageToYourSelfAsync(txtMessage.Text & vbCrLf & "วันที่ - เวลา: " & Now())
    
35.     End Sub
    
36. 
    
37.     Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
    
38.         Me.Close()
    
39.     End Sub
    
40. 
    
41.     Private Sub frmMain_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
    
42.         Me.Dispose()
    
43.         GC.SuppressFinalize(Me)
    
44.         Application.Exit()
    
45.     End Sub
    
46. End Class

คัดลอกไปที่คลิปบอร์ด

โค้ดในส่วนของคลาส LineMessingAPI.vb ...

1. Imports System.Net.Http
   
2. Imports Newtonsoft.Json
   
3. Imports System.Text
   
4. 
   
5. Public Class LineMessagingAPI
   
6.     '// Channel Access Token จาก Line Developer Console
   
7.     Private Const AccessToken As String = "ACCESS_TOKEN"    '// เปลี่ยนด้วย
   
8.     '// ต้องใส่ User ID ของคุณ
   
9.     Private Const YourUserId As String = ""    '// เปลี่ยนด้วย
   
10. 
    
11.     '// --------------------------------------------------------------------------------
    
12.     '// ฟังค์ชั่นในการทดสอบ Bot ตัวเอง
    
13.     '// --------------------------------------------------------------------------------
    
14.     Public Async Function SendMessageToYourSelfAsync(message As String) As Task
    
15.         Try
    
16.             Using httpClient As New HttpClient()
    
17.                 httpClient.DefaultRequestHeaders.Accept.Add(New System.Net.Http.Headers.MediaTypeWithQualityHeaderValue("application/json"))
    
18.                 httpClient.DefaultRequestHeaders.Authorization = New System.Net.Http.Headers.AuthenticationHeaderValue("Bearer", AccessToken)
    
19.                 '//
    
20.                 Dim url As String = "https://api.line.me/v2/bot/message/push"
    
21.                 '// สร้าง Payload ตามรูปแบบที่ Line API ต้องการ
    
22.                 '// Payload คือเนื้อหาข้อมูลที่ส่งไปยัง Line Server ผ่าน API เช่น การส่งข้อความ, การส่งรูปภาพ หรือการสร้าง Flex Message
    
23.                 Dim MessageObject = New With {
    
24.                 Key .to = YourUserId,
    
25.                 Key .messages = New List(Of Object) From {
    
26.                     New With {
    
27.                         Key .type = "text",
    
28.                         Key .text = If(String.IsNullOrEmpty(message), "ทดสอบข้อความ", message)
    
29.                         }
    
30.                     }
    
31.                 }
    
32.                 '// แปลง Object เป็น Json
    
33.                 Dim JsonPayload As String = JsonConvert.SerializeObject(MessageObject)
    
34.                 '// ตัวอย่าง:
    
35.                 '// {
    
36.                 '//      "to" "Uc241cafb4b9e8d6xxxxxxxxxxxxxxx",
    
37.                 '//      "messages": [
    
38.                 '//        {
    
39.                 '//          "type": "text",
    
40.                 '//          "text": "Hello, this is a test message."
    
41.                 '//        }
    
42.                 '//      ]
    
43.                 '//    }
    
44.                 '//Debug.Print("Payload: " & JsonPayload)  '// เพื่อตรวจสอบ payload
    
45. 
    
46.                 '// เข้ารหัสเป็นแบบ UTF-8 เนื่องจากรองรับตัวอักษรหลากหลายภาษาและเป็นมาตรฐานสากล
    
47.                 Dim Content = New StringContent(JsonPayload, Encoding.UTF8, "application/json")
    
48.                 '// ส่ง POST request (ส่งคำขอแบบ Asynchronous)
    
49.                 Dim Response = Await httpClient.PostAsync(url, Content)
    
50.                 '// อ่านเนื้อหาตอบกลับ
    
51.                 Dim ResponseContent = Await Response.Content.ReadAsStringAsync()
    
52.                 '// ทดสอบของการตอบสนอง
    
53.                 If Response.IsSuccessStatusCode Then
    
54.                     MessageBox.Show("ส่งข้อความสำเร็จ!", "Complete", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
55.                 Else
    
56.                     MessageBox.Show("เกิดข้อผิดพลาด: " & Response.StatusCode & vbCrLf & ResponseContent, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
57.                 End If
    
58.             End Using
    
59.         Catch ex As Exception
    
60.             MessageBox.Show("เกิดข้อผิดพลาด: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
61.         End Try
    
62.     End Function
    
63. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับตัวเต็ม (VB.NET + .Net Framework 4.5+) ได้ที่นี่ ...