[VB.NET] แจกฟรีโค้ดการแจ้งเตือนผ่าน Line หรือที่เรียกกันว่า Line Notify

thongkorn

การแจ้งเตือนผ่าน Line หรือ Line Notify จัดเป็นของเล่นสำหรับตัวแอดมินในเวลานี้ เพราะแอดมินก็ยังไม่รู้จะเอาไปทำประโยชน์อะไรดี นอกจากจะแจกโค้ดและอธิบายวิธีการทำ Line Notify ขึ้นมาด้วย VB.NET ... อันดับแรกต้องมี Line Account ก่อนล่ะครับ (ปกติก็มีกันอยู่แล้วแน่นอน) จากนั้นสมัครใช้ Line Notify ได้ที่ https://notify-bot.line.me/th/ ... เมื่อเรียบร้อยแล้วให้เข้ามาที่ หน้าออก Access Token (สำหรับผู้พัฒนา) ...

ต้องเพิ่ม LINE Nottify เป็นเพื่อน ก่อนที่จะใช้งาน API และส่งการแจ้งเตือน ท่านต้องเพิ่ม LINE Notify เป็นเพื่อนก่อน โดยสแกน QR Code ด้านล่างนี้




คลิ๊กเลือก ออก Token ...


ออก Token ก็ทำตามภาพเลยครับ โดยที่หมายเลข 2 แอดมินเลือกให้ส่งหรือแจ้งเตือนมายังไลน์แอดมิน (หรือจะเลือก Group ก็ได้ครับ) ...


Token ที่ออก จะเป็นรหัสยาวเฟื้อย เราควรคัดลอกเก็บเอาไว้ด้วยครับ และต้องนำค่านี้ไปใช้ต่อหลังคำว่า Bearer ที่อยู่ในโค้ด VB.NET ...



หลังจากกดปุ่มปิด ... ก็เป็นอันจบในการกำหนดค่าต่างๆใน Line จากนั้นไปดูโค้ดโปรแกรมได้เลยทันที ...

มาดูโค้ดกันเถอะ ... ให้แก้ไขโดยการใส่ Token บริเวณคำว่า YOUR TOKEN HERE ตามคำสั่งนี้ Request.Headers.Add("Authorization", "Bearer YOUR TOKEN HERE")

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Line Notify with VB.NET (2010)
   
8. ' / Microsoft Visual Basic .NET (2010)
   
9. ' /
   
10. ' / This is open source code under @Copyleft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. Imports System.Net
    
14. Imports System.Text
    
15. Imports System.IO
    
16. 
    
17. Public Class frmLineNotify
    
18.     '//
    
19.     Private Sub frmLineNotify_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
20.         txtMessage.Text = "ทดสอบการส่ง Line Notify จากคุณทองก้อน นารีแขยง"
    
21.     End Sub
    
22. 
    
23.     Private Sub btnSend_Click(sender As System.Object, e As System.EventArgs) Handles btnSend.Click
    
24.         If String.IsNullOrEmpty(txtMessage.Text.Trim) Then
    
25.             MessageBox.Show("Nothing message to send.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    
26.             Return
    
27.         End If
    
28.         Try
    
29.             Cursor.Current = Cursors.WaitCursor
    
30.             System.Net.ServicePointManager.Expect100Continue = False
    
31.             Dim Request = DirectCast(WebRequest.Create("https://notify-api.line.me/api/notify"), HttpWebRequest)
    
32.             '// Message to Line
    
33.             Dim LineMessage = String.Format("message={0}", txtMessage.Text & vbCrLf & "วันที่ - เวลา : " & FormatDateTime(Now(), DateFormat.GeneralDate))
    
34.             Dim MyData = Encoding.UTF8.GetBytes(LineMessage)
    
35.             '//
    
36.             Request.Method = "POST"
    
37.             '// Initialize
    
38.             With Request
    
39.                 .ContentType = "application/x-www-form-urlencoded"
    
40.                 .ContentLength = MyData.Length
    
41.                 '// Change your Token and don't cut "Bearer".
    
42.                 .Headers.Add("Authorization", "Bearer YOUR TOKEN HERE")
    
43.                 .AllowWriteStreamBuffering = True
    
44.                 .KeepAlive = False
    
45.                 .Credentials = CredentialCache.DefaultCredentials
    
46.             End With
    
47.             '//
    
48.             Using Stream = Request.GetRequestStream()
    
49.                 Stream.Write(MyData, 0, MyData.Length)
    
50.             End Using
    
51.             Dim response = DirectCast(Request.GetResponse(), HttpWebResponse)
    
52.             Dim responseString = New StreamReader(response.GetResponseStream()).ReadToEnd()
    
53. 
    
54.         Catch ex As Exception
    
55.             MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
56.         Finally
    
57.             Cursor.Current = Cursors.Default
    
58.         End Try
    
59.     End Sub
    
60. 
    
61.     Private Sub btnClose_Click(sender As System.Object, e As System.EventArgs) Handles btnClose.Click
    
62.         Me.Close()
    
63.     End Sub
    
64. 
    
65.     Private Sub frmLineNotify_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
66.         Me.Dispose()
    
67.         Application.Exit()
    
68.     End Sub
    
69. 
    
70. End Class

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

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

hot2

ขอบคุณครับเฮีย เอาไว้ส่งสรุปยอดขายรายวันเข้าถืออก็น่าจะดีครับ

g2gsoftuser

ขอบคุณครับ