利用VBA傳送訊息給Line

Token取得可以方式可參考"https://tomyam-yang.blogspot.com/2022/02/google-apps-scripline.html

Sub line_notify()
     '===================================
    'Line訊息
    '===================================
    Dim oXML As Object
   
    Dim Token As String
   
    Dim URL As String
   
    '指定的Line Notify Token
   
    Token = "你的TOKEN"
   
    'Line Notify的傳送訊息網址
       
    Line_Message = "利用VBA傳訊息"
   
    URL = "https://notify-api.line.me/api/notify"

    Set oXML = CreateObject("Microsoft.XMLHTTP")
   
    With oXML
   
        '使用同步傳輸
   
        .Open "POST", URL, 0
   
        '設定傳送封包Header
   
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   
        .setRequestHeader "Authorization", "Bearer " & Token
   
        '執行Ajax傳送
        .send "message=" & Chr(10) & Line_Message
        Debug.Print oXML.responseText
   
    End With
   
    '釋放物件資源
   
    Set oXML = Nothing
End Sub

參考資料：http://forum.twbts.com/thread-22487-1-1.html

利用Google Apps Scrip傳訊息到Line

 參考https://lifewth.com/google-apps-script-line/

依參考資料第一次實作一直出現status":401," message":" Invalid access token

手機重開機一樣失敗、後來重新申請發行權杖儲存後重新執行就可以順利收到訊息。

延伸利用:可以透過簡單單晶片發送訊息給Google Apps Script然後在透過Google Apps Script傳訊息給Line通知使用者。

或者功能強一點的開發版直接跟 LINE Notify連結。

108年10~12月預估荖葉價格走勢

聽說今年嘉義的菁仔狀況不太好，有缺貨的可能性，推論荖葉之後的走勢圖應該跟107年一樣，九月價格係最高峰然後慢慢走下來，幅度就要看菁仔供應與荖葉供應的狀況。雖然荖葉感覺年底也是會缺貨但受到菁仔的影響應該缺口不大。

沉水馬達常漏電跳電解決

家裡的田因為地勢比較低畦，所以有挖水溝並裝沉水馬達將水溝的水抽到大排，之前因為棉質手套掉進水裡被馬達吸進去，造成馬達扇片卡住過熱漏電跳電，找了師傅將手套拿出來後馬達可以正常動作，但就是三不五時可以抽，然後就又跳電。但是檢查了馬達、浮球式液面控制器、開關箱用塑膠袋蓋起來，都沒辦法解決會漏電跳電的問題。

最後我查了一下開關箱，之前安裝的師傅積熱電驛只裝主電路，過載斷電都沒裝，自已把積熱電驛改成過載自動復歸後（過載斷電後又自動啟動）就可以正常動作。

有可能的原因就是沉水馬達風扇有點卡卡的，有時候可以順利啟動，有時候就起不來，起不來的時候就電流太大過熱有漏電造成漏電斷路器跳開。改成過載自動復歸後，起不來的時候因為電流太大造成過載斷電又馬上復歸又動一下，動停動停最後一定會起來所以又可以正常動作。