真實場景分享：人工智障的誕生—0成本實現飛書機器人，解放打工人

<%
'先響應飛書伺服器，飛書若未檢測到訊息200，則會安排重發，神煩
Response.Write "200"

' Read binary data from HTTP request ——抄GPT
Dim bytes, text, byteCount
bytes = Request.BinaryRead(Request.TotalBytes)
byteCount = LenB(bytes)

' bytes -> string —— 抄GPT
Dim byte1, byte2, byte3
Dim charCode, charCount
text = ""
charCount = 0

'根據GPT改寫的，只保留數位、英文、常用符號，把ansi128以上的全部丟棄(中文丟棄)
'無奈之舉，試了很多辦法仍然不能正確解析出中文
For i = 1 to byteCount
    byte1 = AscB(MidB(bytes, i, 1))
    If (byte1 < 128) Then
        text = text & Chr(byte1)
    End If
    charCount = charCount + 1
Next

' 試了下面的庫，有的不能用，果然免費是有代價的
' Set jsonObj = Server.CreateObject("MSXML2.DOMDocument.6.0") 不支援
' Set jsonObj = Server.CreateObject("JSON") 不支援
' Set data = Server.CreateObject("Scripting.Dictionary") 不支援
' JSON.stringify 不支援
' stext = Server.HTMLEncode(text) 可用，將{"a":1}轉為 {&quot;a&quot;: 1}
' 建立json物件 將str轉成 json，可以正常使用，解析json檔案，非常好

' 處理飛書訊息，提取出必要引數。為什麼要這麼多引數？可能是為了減少向飛書伺服器傳送訊息查詢請求，忘記了。
Dim json
Set json = Server.CreateObject("ScriptControl")
json.Language = "JScript"
json.AddCode("var obj = " & text )
message_id = json.Eval("obj.event.message.message_id") 
user_id = json.Eval("obj.event.sender.sender_id.user_id") 
chat_type = json.Eval("obj.event.message.chat_type")
message_type = json.Eval("obj.event.message.message_type")
sender_ou_id = json.Eval("obj.event.sender.sender_id.open_id")
chat_id = json.Eval("obj.event.message.chat_id")
On Error Resume Next
parent_id = json.Eval("obj.event.message.parent_id")
If Err.Number <> 0 Then
    parent_id = ""
End If
On Error GoTo 0
' 這裡好像是為了判斷是否是訊息轉發，轉發的訊息不處理
Dim mentions_dt,mentions_ls,count
On Error Resume Next
Set mentions_dt = json.Eval("obj.event.message.mentions") 
mentions_ls = ""
For Each item In mentions_dt 
    mentions_ls = mentions_ls & item.id.union_id &"."
Next
If Err.Number <> 0 Then
    mentions_ls = "only_all"
End If
On Error GoTo 0
On Error Resume Next
text = message_id & "," & user_id & "," & sender_ou_id & "," & chat_type & "," & message_type & "," & parent_id & "," & chat_id &","& mentions_ls 
If Err.Number <> 0 Then
    text = "text合併錯誤"
End If
On Error GoTo 0

' 建立請求
Dim xhr
Set xhr = Server.CreateObject("MSXML2.XMLHTTP")
Dim url, postData

' GET形式的quicker長連線
url = "https://push.getquicker.cn/to/quicker?toUser=郵箱&code=推播密碼&operation=action&action=動作ID&data="&引數text
xhr.open "GET", url, False
xhr.send 

' 我用的是iphone，設定了bark同步通知，方便偵錯
url = "https://api.day.app/bark碼/asp程式正確執行"&引數text
xhr.open "GET", url, False
xhr.send %>

# 以下程式碼並不能執行，僅呈現主要處理思路
# coder能力點渣，勿噴
if __name__=='__main__':
    #處理asp傳入引數
    path = sys.argv    #讀取傳入的所有引數['c:\...py','msg_id,aaa,xxx,yyy']
    #測試path
    # path = ['C:\\Users\\aircoder\\OneDrive\\git\\magic.py', 'om_af1dd73694e5078657f1af5f89f1c137,76f4c1ec,ou_b86b8d376ec40468080882d3d37b986d,p2p,text,,']
    # input(path) #顯示傳入的所有引數

    #提取path
    path = path[1]

    #若群場景下，確保收到的訊息有@機器人
    if (path.split(',')[3] == 'group') and ('on_126b7dabb6f0ef09a68db9189c7a9ad1' not in path.split(',')[7]):
        #若無@機器人，則無任何回覆並退出
        sys.exit()

    #傳入path引數，範例化magic物件
    magic_msg = Magic(path)

    #宣告訊息已傳送至伺服器
    magic_msg.set_s()#設定飛書請求屬性
    magic_msg.re_emoji('連線成功')#回覆表格，宣告訊息已經傳到伺服器

    #白名單模組===========start
    #僅偵錯模式的時候用，僅響應管理員的訊息
    # magic_msg._assert_boss()
    #白名單模組===========end

    #限制使用時段
    magic_msg._time_limit()

    #檢查是否單條文字訊息
    magic_msg._check_only_txt()

    #檢查傳送者當天有效傳送次數
    magic_msg._check_total_times()

    #獲取訊息文字內容(已還原為txt) @所有人@張三xxx.xx.xx
    msg_txt = magic_msg.get_msg()

    #解析魔法文字
    magic_msg._un_msg(msg_txt)

    #檢查魔法限制使用上限
    magic_msg._check_magic_times()

    #檢查魔法限制群
    magic_msg._check_magic_only_group()

    #鑑權
    magic_msg._check_power()
    
    #執行程式
    magic_msg._run(magic_msg)