เขียนโปรแกรม MS Access แจ้งเตือนผ่านไลน์ Line Notify EP.23 ตอน1
HTML-код
- Опубликовано: 7 сен 2024
- แหล่งรวมความสนุก ของวาไรตี้โดนใจ พบกับเกมมือถือ เกมพีซี เครื่องเกมนินเทนโด้สวิช ของเล่นใหม่ๆ การใช้งานโปรแกรมคอมพิวเตอร์ และขาดไม่ได้กับเมนูอาหารก่อนหรือหลังเล่นเกมส์
สอบถามข้อมูลเพิ่มเติม Line@ lin.ee/Q3fca3U
เป็นประโยชน์อย่างมากครับ ตามหาวิธีมาหลายวันแล้วครับ ขอบคุณมากครับ
ทดสอบลองประยุกใช้ดูนะครับ
ขอบคุณมากครับ สำหรับความรู้ดีๆ
ยินดีและขอบคุณที่ติดตามชมครับ
ขอบคุณมากเลยครับ อาจารย์ สุดๆครับ
ขอบคุณที่ติดตามครับ
ของlink หน่อยครับ
ลิ้งของส่วนไหนครับ
ติดต่อผ่านไลได้เลยครับ
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
ลิงค์ Line token : notify-bot.line.me/th/