ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¨Ï¥Îexcel vba¤W¶Ç¹ÏÀɨìline

¦^´_ 10# quickfixer


    https://www.jack168.com/download/curl/curl.html
·Ó°µ
¦w¸Ë¦ncurl
­«¶}¾÷«á¡A¿³¾Äªº°õ¦æ
µ²ªG¤´µM¤£¦æ

¨Ì·PÁÂ
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 11# 7777


    §ä¨ì­ì¦]¤F¡A·sª©ªºcurl·|¶Ã½X
ª©ªº¤£·|

TOP

¦^´_ 11# 7777

³o­Óª©¥»¥¿±`¶Ç¤¤¤å
    https://github.com/tim-lebedkov/packages/releases/download/2020_12/se.haxx.curl.CURL64-7.74-curl-7.74.0-win64-mingw.zip

TOP

¦^´_ 13# quickfixer


    ·P®¦
³oª©~~~
½T¹ê¥i¥H ¨q¥X¤¤¤å¤F
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ 7777 ©ó 2023-2-13 10:53 ½s¿è

¦^´_ 13# quickfixer


        ¦A°Ý§Ú·Q±N "LINEÅv§ú"§ï¦¨ a1储¦s®æ¡A´N¥X²{°ÝÃDµL§@·~¡A¥i¥HÀ°§Ú¸Ñ¨M°ÝÃD¶Ü?ÁÂÁÂ

Sub Sample()

Dim AccessToken As String :AccessToken = Sheets("¤u§@ªí1").Range("a1")

Dim msg As String: msg = "§A¦n"
Dim imgPath As String: imgPath = "C:\Users\hoge\Desktop\test.jpg"
Shell "curl.exe" & _
" -X POST https://notify-api.line.me/api/notify" & _
" -H ""Authorization: Bearer AccessToken""" & _
" -F message=" & msg & _
" -F imageFile=@" & imgPath, vbNormalFocus

End Sub




' ³o¬Ookªº ¨S¹Ï
Dim AccessToken As String :AccessToken = Sheets("¤u§@ªí1").Range("a1")     'LINEÅv§ú
Dim msgString As String :msgString = Sheets("¤u§@ªí1").Range("a2")         'LINE°T®§
                        
    '«Ø¥ßAjaxª«¥ó
    Set oXML = CreateObject("Microsoft.XMLHTTP")
    With oXML
        '¨Ï¥Î¦P¨B¶Ç¿é
        .Open "POST", "https://notify-api.line.me/api/notify", 0

        '³]©w¶Ç°e«Ê¥]Header
        .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .SetRequestHeader "Authorization", "Bearer " & AccessToken
        '°õ¦æAjax¶Ç°e
        .send "message=" & msgString
        
        'Åã¥Ü¦^³ø¤º®e
        Debug.Print oXML.responseText
    End With
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 15# 7777


    ÅܼƤ£¯à©ñ¦bÂù¤Þ¸¹¸Ì­±,·|Åܦr¦ê
"wwwwww   ÅܼƠ wwwwww"

­n©ñ¦b¥~­±¥Î & ³s±µ
"wwwwww" & ÅÜ¼Æ & "wwwwww"

TOP

¦^´_ 16# quickfixer


    ¦¬¨ì~
         ·P®¦
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ 7777 ©ó 2023-2-15 20:49 ½s¿è

¦^´_ 16# quickfixer


    ¦A½Ð±Ð
¤@¦¸¶Ç°e¨â­Ó¹Ï¤ù


Sub Sample()
Dim msg As String: msg = "§A¦n"
Dim imgPath1 As String: imgPath1 = "C:\Users\hoge\Desktop\test.jpg"
Dim imgPath2 As String: imgPath2 = "C:\Users\hoge\Desktop\testa1.jpg"
Dim cmd As String: cmd = "C:\installations\curl.exe" & _                  ' or    cmd = "curl.exe" & _       '¥Ø«eªº curl.exe ©ñ¦bC:\installations\
" -X POST https://notify-api.line.me/api/notify" & _
" -H ""Authorization: Bearer 5Cx15az4Ka1Gl3idjF5kxYmHg13Ja1xOWsRPkzMaLPh""" & _
" -F message=" & msg & _
" -F imageFile1=@" & imgPath1 & _
" -F imageFile2=@" & imgPath2
Shell cmd, vbNormalFocus
End Sub


¸Õ¤F´X¦¸³£µLªk°Ê§@¡AÁÙ¥i¥H«ç»ò­×§ï?

ÁÂÁÂ
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 18# 7777


https://notify-bot.line.me/doc/en/
LINE Notify API ¨S³o­Ó¥\¯à§a,§Ú·Q¨ìªº¥u¦³¶]2¦¸curl
§Ú¨S¬ã¨sline api,¨ä¥¦ªº§Ú¤£·|

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2023-2-15 22:21 ½s¿è

¦^´_ 18# 7777


    §Ú¤]ı±o­n¶]¨â¦¸

­n¼g°j°é  ¥N¤J¹Ï¤ù¦ì¸mÅܼÆ

¦Ó¥B ¤j¶q¶Ç°e ­n°O±o©ñµ¥«Ý½w½Ä®É¶¡  ¤£µM¶Ç¤Ó§Ö ·|³Qline notify ªºAPI ban 30¤ÀÄÁ

§Ú¦Û¤v´ú¸Õ ¬O¨C¶Ç¤@¦¸ ·|³]©wµ¥«Ý5¬í     ¥i¥H¥Îapplication.wait now+timevalue("00:00:05") ªº¤è¦¡

­n¬O¨S¼gµ¥«Ý

´ú¨ì¨S¤ÏÀ³ °ò¥»¤W´N¬Oª½±µ²q ³Qban¤F  ¥u¯àµ¥30¤ÀÄÁ

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD