自用命令库代码：腾讯NLP机器人(SecretId, SecretKey, 聊天内容)

Function 腾讯NLP机器人(SecretId, SecretKey, 聊天内容)
    Dim wz = "https://api.cloud.tencent.com/requesttc3"
    Dim sj="Product=nlp&Action=ChatBot&Version=2019-04-08&Region=ap-guangzhou&Token=&Area=&JsonData=%7B%22Query%22%3A%22"&聊天内容&"%22%7D&SecretId="&SecretId&"&SecretKey="&SecretKey&"&Language=zh-CN"
    Dim back = url.Post(wz,sj)
    Dim unicode = Split(back,"""") 
    腾讯NLP机器人 = zm.ConvUnicodeToUTF8(unicode(29))
End Function