TC官方合作论坛

 找回密码
 立即注册
查看: 1516|回复: 5

[源码分享] chatGPT3.5

[复制链接]
发表于 2023-4-9 15:04:03 | 显示全部楼层 |阅读模式
本帖最后由 fsfsgdg 于 2023-4-20 00:53 编辑


    var 文本
    文本=dllcall("rc:chatGPT.dll","char *","chatGPT","char *",编辑框获取文本("编辑框0"))
    消息框(文本)以上DLL调用
---------------------------------------------------------------------------------------------------------post访问
打开http://wwccoo.com/aaang.cc注册一个帐号,有免费的,也有收费的,用免费的就可以了



登录后用浏览器取出token:写在你的TC以下图

登录post你自已慢慢研究
功能 chatGPT()
    //从这里开始你的代码
    变量 文本数据,文本,key,i,ret,查找字符
    变量 提问文本=编辑框获取文本("编辑框0")
    变量 post_url = "http://wwccoo.com/api?c=robotAsk"
    变量 mode = "post" //访问模式(get/post)
    变量 token="2fa219ce6e3649b388243096281e71ac27bf207d67066579efbe6047aef4f21b"
    变量 senddata = "{\"user\":{\"token\":\""&token&"\"},\"gpt\":{\"msg\":\""&提问文本&"\"}}"
    变量 head = array() //请求头
    head["Accept"]="application/json"
    head["Accept-Language"]="zh-CN,zh;q=0.9"
    head["Access-Control-Allow-Origin"]="*"
    head["Connection"]="keep-alive"
    head["Content-Type"]="application/json;charset=UTF-8"
    head["Host"]="wwccoo.com"
    head["User-Agent"]="Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/108.0.5359.95 Safari/537.36"
    key = httpsubmit(mode,post_url,senddata,"",head,"")//返回你提问的key
    key =取中间文本(key,"key\":\"","\"}}")
    查找字符=":true,"
    遍历(i=0; i<1000; i++)//遍历1000次返回的提问,因为chatGPT是一个一个的文本打出来
        如果(字符串查找(文本数据,查找字符)>-1)//全部打出提问来就跳出
            跳出
        否则
            等待(1000)//上面提问后等待一下
            变量 posturl = "http://wwccoo.com/api?c=robotAskData&key="&key
            文本数据 = httpsubmit("get",posturl,"","",head,"")
            文本=取中间文本(文本数据,"data\":\"","\",\"conversation_id")
            ret=dllcall("rc:chatGPT.dll","char *","编码_usc2到ansi","char *",文本)//TC我不会转码,用dll转
        结束
    结束
    调试输出(ret)
    消息框(ret)
结束

打包好了,下载就行了


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复

使用道具 举报

发表于 2023-4-10 05:45:04 | 显示全部楼层
无限制使用吗?
回复 支持 1 反对 0

使用道具 举报

发表于 2023-4-10 04:21:37 | 显示全部楼层
你好,为什么我写的和你一样,但消息框弹出来的是空
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-4-10 20:03:19 | 显示全部楼层
15918491439 发表于 2023-4-10 04:21
你好,为什么我写的和你一样,但消息框弹出来的是空

下载chatGPT3.5就行了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-4-10 20:06:00 | 显示全部楼层

是的无限制
回复 支持 反对

使用道具 举报

发表于 2023-4-10 21:50:34 | 显示全部楼层
fsfsgdg 发表于 2023-4-10 20:03
下载chatGPT3.5就行了

谢谢
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2024-3-30 00:49 , Processed in 0.040485 second(s), 24 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

快速回复 返回顶部 返回列表