เขียนโปรแกรม MS Access แจ้งเตือนผ่านไลน์ Line Notify EP.23 ตอน1

แหล่งรวมความสนุก ของวาไรตี้โดนใจ พบกับเกมมือถือ เกมพีซี เครื่องเกมนินเทนโด้สวิช ของเล่นใหม่ๆ การใช้งานโปรแกรมคอมพิวเตอร์ และขาดไม่ได้กับเมนูอาหารก่อนหรือหลังเล่นเกมส์
สอบถามข้อมูลเพิ่มเติม Line@ lin.ee/Q3fca3U

[@user-zg9xs8uz6h]

เป็นประโยชน์อย่างมากครับ ตามหาวิธีมาหลายวันแล้วครับ ขอบคุณมากครับ

[@Gameconlover]

ทดสอบลองประยุกใช้ดูนะครับ

[@knsiri7639]

ขอบคุณมากครับ สำหรับความรู้ดีๆ

[@Gameconlover]

ยินดีและขอบคุณที่ติดตามชมครับ

[@user-xx8pn9sv3f]

ขอบคุณมากเลยครับ อาจารย์ สุดๆครับ

[@Gameconlover]

ขอบคุณที่ติดตามครับ

[@pisitmano237]

ของlink หน่อยครับ

[@Gameconlover]

ลิ้งของส่วนไหนครับ

[@Gameconlover]

ติดต่อผ่านไลได้เลยครับ

[@Gameconlover]

VB-Code :
Sub LineSend()
Dim oXML As Object
Dim Linetoken As String
Dim Linetext As String
Dim LineDate As String
Dim url As String
Dim Tout As String
'Line Notify Token
Linetoken = "......." 'Token here
url = "notify-api.line.me/api/notify"
Tout = lname
'Line Sticker
stickerPkg = tp 'stickerPackageId
stickerId = tid 'stickerId
LineDate = Format(Now, "DD/MM/YYYY - HH:MM:SS")
'Line Message
Linetext = "message=" & Tout & LineDate & "&stickerPackageId=" & & "&stickerId=" &
'Ajax
Set oXML = CreateObject("Microsoft.XMLHTTP")
With oXML
'Line Post
.Open "POST", url, 0
'Header
.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.SetRequestHeader "Authorization", "Bearer " & Linetoken
'Ajax
.send (Linetext)
'Line Check Print
Debug.Print oXML.responseText
End With
'Line
Set oXML = Nothing
End Sub
Private Sub Command1_Click()
Call LineSend
End Sub

[@Gameconlover]

ลิงค์ Line token : notify-bot.line.me/th/