|
本帖最后由 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
|