真实场景分享：人工智障的诞生—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 
' 试了下面的库，有的不能用，果然免费是有代价的
' 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}转为 {"a": 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)