Çevrimdışı

Merhabalar, bu kodu mirc remote ekledim fakat şu sorunu almaktayım..
Altını çizerek belirtmek istiyorum ki API key eklenmiştir.
Aldığım hata kodu : [Could not get a reply from ChatGPT.]

Sorunun tam olarak nerd

on *:TEXT:!chatgpt *:#: {
var %apikey = YOUR_OPENAI_API_KEY_HERE
var %message = $2-
var %host = api.openai.com
var %endpoint = /v1/chat/completions
var %model = gpt-3.5-turbo

; JSON verisini tek satır ve escape edilmiş yap
var %json = { "model":"%model", "messages":[ { "role":"user", "content":"%message" } ] }
var %jsonstr = $replace(%json, ",", ",", "{", "{", "}", "}", ":", ":")

sockopen chatgpt %host 443 ssl
set %chatgpt.api_key %apikey
set %chatgpt.data $null
set %chatgpt.json %jsonstr
set %chatgpt.channel $chan
}

on *:SOCKOPEN:chatgpt: {
if ($sockerr) {
msg %chatgpt.channel ChatGPT connection error!
sockclose chatgpt
return
}

var %apikey = %chatgpt.api_key
var %json = %chatgpt.json
var %len = $len(%json)

sockwrite -n chatgpt POST /v1/chat/completions HTTP/1.1
sockwrite -n chatgpt Host: api.openai.com
sockwrite -n chatgpt Authorization: Bearer %apikey
sockwrite -n chatgpt Content-Type: application/json
sockwrite -n chatgpt Content-Length: %len
sockwrite -n chatgpt
sockwrite -n chatgpt %json
}

on *:SOCKREAD:chatgpt: {
var %chunk
sockread %chunk
if (%chunk) inc %chatgpt.data %chunk
}

on *:SOCKCLOSE:chatgpt: {
var %response = %chatgpt.data
var %answer = $regml(1, %response, "content"":\s*""(.*?)""")

if (%answer) {
msg %chatgpt.channel ChatGPT: %answer
}
else {
msg %chatgpt.channel Could not get a reply from ChatGPT.
}

unset %chatgpt.data
unset %chatgpt.channel
unset %chatgpt.api_key
unset %chatgpt.json
}

__________________

 

Çevrimiçi

Yapay zekayı sorusunu önce ona sordum hataya göre düzenlemelere ben bakacağım şu an telefondayım.

Alıntı:

Değişiklikler: inc yerine string birleştirme kullandım ($+). $regex() ve $regml() ile cevabı düzgün çeker hale getirdim. JSON’daki \n ve " gibi kaçış karakterlerini temizledim. Gereksiz %jsonstr $replace işlemini kaldırdım. unset %chatgpt.* ile bütün geçici değişkenleri tek satırda sildim.

Yaptığı değişiklikleri de böyle sıralamış.
Botun diğer önerisi komuta !ai ve !gpt yi de ekle şeklinde sen dene akşam ben bakacağım

__________________
BLaCK_and_WHiTe is now known as SNOOPY

 

Çevrimdışı

SNOOPY Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Yapay zekayı sorusunu önce ona sordum hataya göre düzenlemelere ben bakacağım şu an telefondayım. Kod:   Kodu kopyalamak için üzerine çift tıklayın! on *:TEXT:!chatgpt *:#: { var %apikey = YOUR_OPENAI_API_KEY_HERE var %message = $2- var %host = api.openai.com var %endpoint = /v1/chat/completions var %model = gpt-3.5-turbo ; JSON verisi var %json = { "model": "%model", "messages": [ { "role": "user", "content": "%message" } ] } sockopen chatgpt %host 443 ssl set %chatgpt.api_key %apikey set %chatgpt.data $null set %chatgpt.json %json set %chatgpt.channel $chan } on *:SOCKOPEN:chatgpt: { if ($sockerr) { msg %chatgpt.channel ChatGPT connection error! sockclose chatgpt return } var %apikey = %chatgpt.api_key var %json = %chatgpt.json var %len = $len(%json) sockwrite -n chatgpt POST /v1/chat/completions HTTP/1.1 sockwrite -n chatgpt Host: api.openai.com sockwrite -n chatgpt Authorization: Bearer %apikey sockwrite -n chatgpt Content-Type: application/json sockwrite -n chatgpt Content-Length: %len sockwrite -n chatgpt sockwrite -n chatgpt %json } on *:SOCKREAD:chatgpt: { var %chunk sockread %chunk if (%chunk != $null) { set %chatgpt.data $+(%chatgpt.data,%chunk) } } on *:SOCKCLOSE:chatgpt: { var %response = %chatgpt.data ; JSON'dan cevabı çıkarma if ($regex(resp,%response,/\"content\"\s*:\s*\"(.*?)\"/s)) { var %answer = $regml(resp,1) ; JSON kaçışlarını temizle %answer = $replace(%answer,\\n,$crlf,\\"," ,",\\"," ,\\u0027,',\\u0022,",\\",") msg %chatgpt.channel ChatGPT: %answer } else { msg %chatgpt.channel Could not get a reply from ChatGPT. } unset %chatgpt.* } Yaptığı değişiklikleri de böyle sıralamış. Kod:   Kodu kopyalamak için üzerine çift tıklayın! on *:TEXT:!chatgpt *:#: gpt_query $chan $2- on *:TEXT:!gpt *:#: gpt_query $chan $2- on *:TEXT:!ai *:#: gpt_query $chan $2- Botun diğer önerisi komuta !ai ve !gpt yi de ekle şeklinde sen dene akşam ben bakacağım

Sorun yine aynı, [Could not get a reply from ChatGPT.] hatası alıyorum

__________________

 

Çevrimdışı

Konu güncelliğini devam ettirmektedir, yardımlarınız rica olunur..

__________________

 

Çevrimdışı

sorununuzu CHAT GPT 5 'in kendisine sordum.

Kanka bu kodun mantığı doğru ama senin arkadaşının aldığı

csharp
Kopyala
Düzenle
Could not get a reply from ChatGPT.
hatası şuradan kaynaklanıyor:
SOCKCLOSE aşamasında gelen API cevabı aslında OpenAI'nin JSON formatında ama kod bunu "content" regex’i ile yakalamaya çalışıyor.
Sorun şu olabilir:

OpenAI cevabı tek satırda gelmeyebilir (mIRC socket okuma sockread ile parça parça çalışıyor, JSON bölünürse regex cevabı bulamaz).

API cevabında choices[0].message.content yolu kullanılıyor, ama regex sadece "content": kelimesini yakalıyor. Bazen API cevabında "content": "" (boş) olabiliyor.

SSL bağlantısı mIRC’de doğru açılmazsa veya API’den hata dönüyorsa, %chatgpt.data içinde "error" mesajı olur, bu regex’e uymadığı için “Could not get a reply” çıkar.
bu cevanbı verdi.
son maddede belirttiği SSL olayını mircinizde kontrol etmenizi de ayrıca öneririm. AI nin verdiği cevap belki bir işinize yarar.

 

Çevrimdışı

socket bağlanmıyor http 400 hatası dün akşam 2 dk bakayım dedim ama vaktim olmadı, müsait olunca ilgilenirim.
belki benden önce başka bir arkadaş ilgilenir
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

"sockopen -ea chatgpt %host 443"

kullanıp deneyin, sorun hala devam ederse PM ile API anahtarınızı paylaşın daha düzenli bir kod yazılabilir.

__________________
2b|!2b=? ~ mircscripting.net