โค้ด:

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

โค้ด:

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