Sending up a flair to any coderz left
Hey guys, interesting concept im working on a as a plugin in: As u can see, its all about XML.im like a broken record here
Chime in any time
Do NOT run this and then COMPLAIN, oh oh cyber f**Ked me up, This is a concept test..... Im just doing it publicly
If this can work reliably ill Port a hard copy as a training model for Hal stock Brains. Using GPT to train UltraHal out of the box . No small feat.
Rem Type=Plugin
Rem Name=ChatGpt
Rem Author= cyberjedi
Rem Host=All
Rem PLUGIN: PRE-PROCESS
'The preceding comment is actually a plug-in directive for
'the Ultra Hal host application. It allows for code snippets
'to be inserted here on-the-fly based on user configuration.
HalBrain.ReadOnlyMode = False
'Determines that you are talking about chatgpt
If InStr(1,InputString, "chatgpt",1) > 0 Then
UltraHal = chatgpt(HalCommands)
ElseIf InStr(1,InputString, "chatgpt",1) > 0 Then
End If
Rem PLUGIN: FUNCTIONS
Function chatgpt(HalCommands)
' Replace with your own API key from OpenAI
apiKey = "YOUR_OPENAI_API_KEY"
' Function to send a message to ChatGPT and get a response
Function SendMessageToChatGPT(message)
Dim xmlhttp
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
' API endpoint
url = "
https://api.openai.com/v1/chat/completions"
' JSON payload
payload = "{""model"": ""gpt-4"", ""messages"": [{""role"": ""user"", ""content"": """ & message & """}]}"
' Open a connection to the API
xmlhttp.Open "POST", url, False
' Set the necessary headers
xmlhttp.setRequestHeader "Content-Type", "application/json"
xmlhttp.setRequestHeader "Authorization", "Bearer " & apiKey
' Send the request with the payload
xmlhttp.Send payload
' Wait for the response
Do While xmlhttp.readyState <> 4
WScript.Sleep 100
Loop
' Parse the JSON response (basic parsing, assuming a simple structure)
Dim response, jsonResponse
response = xmlhttp.responseText
Set jsonResponse = ParseJson(response)
' Get the assistant's reply from the JSON response
SendMessageToChatGPT = jsonResponse("choices")(0)("message")("content")
' Clean up
Set xmlhttp = Nothing
Set jsonResponse = Nothing
End Function
' Basic JSON parser function
Function ParseJson(jsonText)
Dim sc
Set sc = CreateObject("ScriptControl")
sc.Language = "JScript"
Set ParseJson = sc.Eval("(" & jsonText & ")")
End Function
' Main script
Dim userMessage, chatgptResponse
userMessage = "Hello, ChatGPT! How are you?"
chatgptResponse = SendMessageToChatGPT(userMessage)
HalMenu.HalCommand "<SPEAK>" & chatgptResponse & "</SPEAK>"
End Function
cyber jedi
Show Posts
