百du文心一言调用例程

gftluo

这是在论坛看见一大哥的帖子改了一下源码。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

编辑框_答.内容 ＝ 文心一言改写 (编辑框_问)

子程序名	返回值类型	公开	备 注
文心一言改写	文本型
参数名	类 型	参考	可空	数组	备 注
编辑框	编辑框

变量名	类 型	静态	数组	备 注
accesstoken	文本型
APIKey	文本型
SecretKey	文本型
提交数据	文本型
答案	文本型
m_Json	zyJsonValue

APIKey ＝ 编辑框1.内容  ' 自己去[url]https://cloud.baidu.com/product/wenxinworkshop[/url]  申请账号，开通
SecretKey ＝ 编辑框2.内容
accesstoken ＝ 到文本 (编码_编码转换对象 (网页_访问_对象 (“https://aip.baidubce.com/oauth/2.0/token?client_id=” ＋ APIKey ＋ “&client_secret=” ＋ SecretKey ＋ “&grant_type=client_credentials”, 1, , , , , , , , , , , , , , , , , ), , , ))
accesstoken ＝ 文本_取出中间文本 (accesstoken, “access_token” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,” ＋ #引号, , )
m_Json.创建 (, , , , )
m_Json.置文本 (“messages[0].role”, “user”)
如果 (单选框1.选中 ＝ 真)
m_Json.置文本 (“messages[0].content”, 编辑框.内容)


如果 (单选框2.选中 ＝ 真)
m_Json.置文本 (“messages[0].content”, “请帮我润色下面内容：” ＋ 编辑框.内容)


如果 (单选框3.选中 ＝ 真)
m_Json.置文本 (“messages[0].content”, “请帮我把下面内容翻译为中文：” ＋ #换行符 ＋ 编辑框.内容)



如果 (单选框4.选中 ＝ 真)
m_Json.置文本 (“messages[0].content”, “把下面这段话翻译为英文：” ＋ #换行符 ＋ 编辑框.内容)



提交数据 ＝ m_Json.到文本 (, , , )
答案 ＝ 到文本 (编码_编码转换对象 (网页_访问_对象 (“https://aip.baidubce.com/rpc/2.0/ai_custom/v1/wenxinworkshop/chat/completions?access_token=” ＋ accesstoken, 1, 提交数据, , , , , , , , , , , , , , , , ), , , ))
调试输出 (答案)
如果真 (答案 ≠ “”)
编辑框_答.内容 ＝ “”
答案 ＝ 文本_取出中间文本 (答案, #引号 ＋ “result” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,” ＋ #引号, , )
答案 ＝ 文本_替换 (答案, , , , “\r\n\n”, #换行符 ＋ #换行符, “\n\n”, #换行符 ＋ #换行符, “\n”, #换行符, , , , )
返回 (答案)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

编辑框1.内容 ＝ 读配置项 (取运行目录 () ＋ “\AI.ini”, “账号密码”, “百duAPI Key：”, )
编辑框2.内容 ＝ 读配置项 (取运行目录 () ＋ “\AI.ini”, “账号密码”, “百duSecret Key：”, )

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

写配置项 (取运行目录 () ＋ “\AI.ini”, “账号密码”, “百duAPI Key：”, 编辑框1.内容)
写配置项 (取运行目录 () ＋ “\AI.ini”, “账号密码”, “百duSecret Key：”, 编辑框2.内容)

子程序名	返回值类型	公开	备 注
_清空全部内容_被单击

编辑框_问.内容 ＝ “”
编辑框_答.内容 ＝ “”

子程序名	返回值类型	公开	备 注
_按钮2_被单击

置剪辑板文本 (编辑框_答.内容)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框_答.内容 ＝ 文心一言改写 (编辑框_问)<br /> <br /> .子程序 文心一言改写, 文本型<br /> .参数 编辑框, 编辑框<br /> .局部变量 accesstoken, 文本型<br /> .局部变量 APIKey, 文本型<br /> .局部变量 SecretKey, 文本型<br /> .局部变量 提交数据, 文本型<br /> .局部变量 答案, 文本型<br /> .局部变量 m_Json, zyJsonValue<br /> <br /> APIKey ＝ 编辑框1.内容  ' 自己去<a href="https://cloud.baidu.com/product/wenxinworkshop" rel="nofollow" target="_blank">https://cloud.baidu.com/product/wenxinworkshop</a>  申请账号，开通<br /> SecretKey ＝ 编辑框2.内容<br /> accesstoken ＝ 到文本 (编码_编码转换对象 (网页_访问_对象 (“https://aip.baidubce.com/oauth/2.0/token?client_id=” ＋ APIKey ＋ “&client_secret=” ＋ SecretKey ＋ “&grant_type=client_credentials”, 1, , , , , , , , , , , , , , , , , ), , , ))<br /> accesstoken ＝ 文本_取出中间文本 (accesstoken, “access_token” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,” ＋ #引号, , )<br /> m_Json.创建 (, , , , )<br /> m_Json.置文本 (“messages[0].role”, “user”)<br /> .如果 (单选框1.选中 ＝ 真)<br />     m_Json.置文本 (“messages[0].content”, 编辑框.内容)<br /> .否则<br /> <br /> .如果结束<br /> .如果 (单选框2.选中 ＝ 真)<br />     m_Json.置文本 (“messages[0].content”, “请帮我润色下面内容：” ＋ 编辑框.内容)<br /> .否则<br /> <br /> .如果结束<br /> .如果 (单选框3.选中 ＝ 真)<br />     m_Json.置文本 (“messages[0].content”, “请帮我把下面内容翻译为中文：” ＋ #换行符 ＋ 编辑框.内容)<br /> .否则<br /> <br /> .如果结束<br /> <br /> .如果 (单选框4.选中 ＝ 真)<br />     m_Json.置文本 (“messages[0].content”, “把下面这段话翻译为英文：” ＋ #换行符 ＋ 编辑框.内容)<br /> .否则<br /> <br /> .如果结束<br /> <br /> <br /> 提交数据 ＝ m_Json.到文本 (, , , )<br /> 答案 ＝ 到文本 (编码_编码转换对象 (网页_访问_对象 (“https://aip.baidubce.com/rpc/2.0/ai_custom/v1/wenxinworkshop/chat/completions?access_token=” ＋ accesstoken, 1, 提交数据, , , , , , , , , , , , , , , , ), , , ))<br /> <br /> 调试输出 (答案)<br /> .如果真 (答案 ≠ “”)<br />     编辑框_答.内容 ＝ “”<br /> .如果真结束<br /> 答案 ＝ 文本_取出中间文本 (答案, #引号 ＋ “result” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,” ＋ #引号, , )<br /> 答案 ＝ 文本_替换 (答案, , , , “\r\n\n”, #换行符 ＋ #换行符, “\n\n”, #换行符 ＋ #换行符, “\n”, #换行符, , , , )<br /> <br /> 返回 (答案)<br /> <br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> 编辑框1.内容 ＝ 读配置项 (取运行目录 () ＋ “\AI.ini”, “账号密码”, “百duAPI Key：”, )<br /> 编辑框2.内容 ＝ 读配置项 (取运行目录 () ＋ “\AI.ini”, “账号密码”, “百duSecret Key：”, )<br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 写配置项 (取运行目录 () ＋ “\AI.ini”, “账号密码”, “百duAPI Key：”, 编辑框1.内容)<br /> 写配置项 (取运行目录 () ＋ “\AI.ini”, “账号密码”, “百duSecret Key：”, 编辑框2.内容)<br /> <br /> <br /> <br /> .子程序 _清空全部内容_被单击<br /> <br /> 编辑框_问.内容 ＝ “”<br /> 编辑框_答.内容 ＝ “”<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 置剪辑板文本 (编辑框_答.内容)

shaoxing0117

        感谢分享，很给力！~

ckonk1

6666666，参考一下

lyjzyq

66666666666666666666666666666666666

chinasulu

非常不错了

csyswl

谢谢分享

luigiyaoqi

谢谢分享

吃柠檬的包子

        支持开源~！感谢分享

xiaoyi617

感谢楼主

younai

感谢分享，很给力！~