|

50精币
这段E4A代码,在主窗口执行可以成功获取交互数据.但是在子窗口没有用,(同样控件和代码)获取不到数据,换了一个KEY也没用,什么原因呢
过程 启动() '过程是不具有返回值的子程序
变量 提交地址 为 文本型
变量 提交数据 为 文本型
变量 API数据 为 文本型
变量 返回文本 为 文本型
置附加协议头("User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/128.0.0.0 Safari/537.36")
置附加协议头("Authorization: Bearer sk-888888888888")
' 请求地址
提交地址 = "https://dashscope.aliyuncs.com/compatible-mode/v1/chat/completions"
' 获取用户输入
提交数据 = "{" & "\"model\":\"qwen-plus\"," & "\"messages\":[" & _
"{\"role\":\"system\",\"content\":\"You are a helpful assistant.\"}," & _
"{\"role\":\"user\",\"content\":\"" & 文件内容 & 编辑框1.内容 & "\"}" & _
"],\"stream\":false}"
返回文本 = 发送网络数据5(提交地址, 提交数据)
变量 JSON对象2 为 对象 = JSON操作1.解析(返回文本) '解析JSON2数据
变量 choices数组 为 对象 = JSON操作1.取数组(JSON对象2, "choices")
变量 计次2 为 整数型
变量 结果 为 文本型()
'判断循环首 计次2 < JSON操作1.取数组内成员数(choices数组)
变量 单个选择 为 对象 = JSON操作1.取数组内对象(choices数组, 计次2)
变量 message对象 为 对象 = JSON操作1.取对象(单个选择, "message")
变量 content 为 文本型 = JSON操作1.取文本值(message对象, "content")
变量 分割后的数组 为 文本型()
分割后的数组=分割文本(content,"-")
'JSON操作1.取数组内对象()
'将content的内容加入到编辑框2
编辑框2.内容=(返回文本 & "\n\n")
标签2.标题="OK"
结束 过程
|
|