come posso rendere questo in forma globale, mi spiego meglio se riesco, questo codice era l'esperimento del vecchio post che ho ripreso e adattato, il problema che vorrei stoppare o riavviare e mantenere la stessa connessione aperta (come succede con le pagine sul browser fino a che non chiudi la pagina)
httpjob:
Dim m As Map = CreateMap("n":1,"stop":"None","model": "text-davinci-003", "prompt": Text,"max_tokens":350,"temperature":0.2)
Dim js As JSONGenerator
js.Initialize(m)
Log(js.ToString)
Dim req As HttpJob ' questa dichiarazione non può stare nella sezione globale
req.Initialize("",Me)
req.PostString("https://api.openai.com/v1/completions",js.ToString)
req.GetRequest.SetHeader("Authorization", GPT3_AUTH)
req.GetRequest.SetHeader("OpenAI-Organization", GPT3_ORG)
req.GetRequest.SetContentType("application/json")
Wait For (req) JobDone(req As HttpJob)
If req.Success Then
Waiting.Hide
Dim parser As JSONParser
parser.Initialize(req.GetString)
Dim jRoot As Map = parser.NextObject
Dim choices As List = jRoot.Get("choices")
For Each colchoices As Map In choices
Dim Text As String = colchoices.Get("text")
Dim value() As String = Regex.Split(Chr(10),Text)
For i =0 To value.Length-1
If value.Length > 12+level/3 Then
Exit
End If
If value(i).Length >0 Then
If value(i) = "Risposte:" Then Continue
If value(i).Contains("Risposta") Then
result = value(i)
Exit
End If
ListView1.Items.Add(value(i))
End If
Next
Next
Else
Log(req.ErrorMessage)
req.Release
End If
Catch
Log(LastException)
End Try
req.Release
Return True