Let you send message from Web Application to Your "LINE ID"
https://notify-bot.line.me/doc/en/
https://notify-bot.line.me/doc/en/
B4X:
'Non-UI application (console / server application)
#Region Project Attributes
#CommandLineArgs:
#MergeLibraries: True
#LibraryVersion:1.2
#LibraryAuthor:jinyistudio
#End Region
Sub Process_Globals
Dim leNotify As jyLineNotify
End Sub
Sub AppStart (Args() As String)
' 輸入與各別LINE ID連動的權仗ID
leNotify.Initialize(Me,"5wKtXUxkNF69hMhd5B1wluYBKbVuE6uhqZynjwHFon0")
' msg 要發送至LINE的message, NotifyID為Done事件識別碼
leNotify.LineNotify("20180204","123")
' msg 要發送至LINE的message, imgDir為圖檔目錄, imgName為圖檔名稱,
' NotifyID為Done事件識別碼
leNotify.lineNotify3("1","d:\temp","dimmer.png","3") ' 李&紀
StartMessageLoop
End Sub
Sub LineNotifyDone(Id As String, Respond As Map)
Dim ss As String=Respond.Get("status")
Dim sm As String=Respond.Get("message")
Log($"Notify:${Id}, Status:${ss}, Message:${sm}"$)
End Sub
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub
Attachments
Last edited: