And the code:
Code: (Select All)
Option Explicit
$NoPrefix
$Console:Only
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_DEFAULT_HTTPS_PORT = 443
Const INTERNET_SERVICE_HTTP = 3
'Flags
Const INTERNET_FLAG_SECURE = &H00800000
Const INTERNET_FLAG_RELOAD = &H80000000
Const TRUE = 1
Const BASE_URL = "api.openai.com"
Const SUB_URL = "/v1/chat/completions"
Const MODEL = "gpt-4o"
Const API_KEY = "getyourowndamnapikey" 'REMEMBER!!!! CHANGE TO LITERALLY ANYTHING ELSE BEFORE POSTING TO FORUM
Const CONFIG = "chatgpt_template.json"
Const SYSTEM_INSTRUCTIONS = "You are a helpful AI that is determined to assist others in their quest for knowledge. You should provide detailed responses that are factual and informative. You should be extremely friendly. Avoid using emojis or any character outside of codepage 437."
Declare Dynamic Library "Wininet"
Function InternetOpen%& Alias "InternetOpenA" (ByVal lpszAgent As Offset, Byval dwAccessType As Unsigned Long, Byval lpszProxy As Offset, Byval lpszProxyBypass As Offset, Byval dwFlags As Unsigned Long)
Function InternetConnect%& Alias "InternetConnectA" (ByVal hInternet As Offset, Byval lpszServerName As Offset, Byval nServerPort As Long, Byval lpszUserName As Offset, Byval lpszPassword As Offset, Byval dwService As Long, Byval dwFlags As Long, Byval dwContext As Unsigned Offset)
Function HTTPOpenRequest%& Alias "HttpOpenRequestA" (ByVal hConnect As Offset, Byval lpszVerb As Offset, Byval lpszObjectName As _Offset, Byval lpszVersion As Offset, Byval lpszReferrer As Offset, Byval lpszAcceptTypes As _Offset, Byval dwFlags As Long, Byval dwContext As Unsigned Offset)
Function HTTPSendRequest& Alias "HttpSendRequestA" (ByVal hRequest As Offset, Byval lpszHeaders As Offset, Byval dwHeadersLength As Unsigned Long, Byval lpOptional As Offset, Byval dwOptionalLength As Unsigned Long)
Sub HTTPAddRequestHeaders Alias "HttpAddRequestHeadersA" (ByVal hRequest As Offset, Byval lpszHeaders As Offset, Byval dwHeadersLength As Unsigned Long, Byval dwModifiers As Unsigned Long)
Sub InternetCloseHandle (ByVal hInternet As Offset)
Sub InternetReadFile (ByVal hFile As Offset, Byval lpBuffer As Offset, Byval dwNumberOfBytesToRead As Unsigned Long, Byval lpdwNumberOfBytesRead As Offset)
End Declare
Declare CustomType Library
Function GetLastError~& ()
End Declare
ConsoleTitle "ChatGPT API - " + MODEL
Dim As String response
response = ChatGPT("Hi, there!")
WriteFile "chatgpt_response.json", response
Print GetFormattedResponse(response)
Print: Print: Print String$(Len("Edit the 'SYSTEM_INSTRUCTIONS' constant to change AI behavior"), "-"): Print "Edit the 'SYSTEM_INSTRUCTIONS' constant to change AI behavior."
Function ChatGPT$ (prompt As String)
Dim As String server: server = BASE_URL + Chr$(0)
Dim As Offset hInternet: hInternet = InternetOpen(0, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0)
If hInternet = 0 Then
Exit Function
End If
Dim As Offset hConnect: hConnect = InternetConnect(hInternet, Offset(server), INTERNET_DEFAULT_HTTPS_PORT, 0, 0, INTERNET_SERVICE_HTTP, 0, 0)
If hConnect = 0 Then
InternetCloseHandle hInternet
Exit Function
End If
Dim As String sessiontype, accepttypes
sessiontype = "POST" + Chr$(0)
accepttypes = "*/*" + Chr$(0)
Dim As String apiPath: apiPath = SUB_URL + Chr$(0)
Dim As Offset hRequest: hRequest = HTTPOpenRequest(hConnect, Offset(sessiontype), Offset(apiPath), 0, 0, Offset(accepttypes), INTERNET_FLAG_RELOAD Or INTERNET_FLAG_SECURE, 0)
If hRequest = 0 Then
InternetCloseHandle hConnect
InternetCloseHandle hInternet
Exit Function
End If
Dim As String header1: header1 = "Content-Type: application/json" + Chr$(13) + Chr$(10) + Chr$(0)
Dim As String header2: header2 = "Authorization: Bearer " + API_KEY + Chr$(13) + Chr$(10) + Chr$(0)
Dim As String gptPrompt: gptPrompt = ReadFile$(CONFIG)
'Print gptPrompt: End
gptPrompt = String.Replace(gptPrompt, "YOUR_TEXT_HERE", prompt)
gptPrompt = String.Replace(gptPrompt, "YOUR_MODEL_HERE", MODEL)
gptPrompt = String.Replace(gptPrompt, "YOUR_INSTRUCTIONS_HERE", SYSTEM_INSTRUCTIONS)
WriteFile "last_prompt_gpt.json", gptPrompt
'Clipboard$ = gptPrompt
HTTPAddRequestHeaders hRequest, Offset(header1), Len(header1), &H20000000
HTTPAddRequestHeaders hRequest, Offset(header2), Len(header2), &H20000000
If HTTPSendRequest(hRequest, 0, 0, Offset(gptPrompt), Len(gptPrompt)) <> TRUE Then
InternetCloseHandle hRequest
InternetCloseHandle hConnect
InternetCloseHandle hInternet
Exit Function
End If
Dim As String szBuffer: szBuffer = Space$(4097)
Dim As String response
Dim As Unsigned Long dwRead
Do
InternetReadFile hRequest, Offset(szBuffer), Len(szBuffer) - 1, Offset(dwRead)
If dwRead > 0 Then response = response + Mid$(szBuffer, 1, dwRead)
Loop While dwRead
InternetCloseHandle hRequest
InternetCloseHandle hConnect
InternetCloseHandle hInternet
ChatGPT = response
End Function
Function GetFormattedResponse$ (response As String)
Dim As String formattedResponse
formattedResponse = Mid$(response, InStr(response, Chr$(34) + "content" + Chr$(34) + ":") + Len(Chr$(34) + "content" + Chr$(34) + ":") + 2)
formattedResponse = Mid$(formattedResponse, 1, InStr(formattedResponse, Chr$(10)) - 3)
formattedResponse = String.Replace(formattedResponse, "\n", Chr$(10))
formattedResponse = String.Replace(formattedResponse, "\" + Chr$(34), Chr$(34))
GetFormattedResponse = formattedResponse
End Function
Function GetKey$ (JSON As String, keyname As String)
Dim jkey As String
jkey = JSON
If InStr(jkey, Chr$(34) + keyname + Chr$(34)) Then
jkey = Mid$(jkey, InStr(jkey, Chr$(34) + keyname + Chr$(34)) + Len(keyname))
jkey = Mid$(jkey, InStr(jkey, ":") + 2)
jkey = String.Replace(jkey, "\" + Chr$(34), "'")
If Mid$(jkey, 1, 1) = Chr$(34) Then
jkey = Mid$(jkey, 2)
End If
jkey = Mid$(jkey, 1, InStr(jkey, Chr$(34)) - 1)
If Right$(jkey, 1) = "," Then
jkey = Mid$(jkey, 1, Len(jkey) - 1)
End If
Else
GetKey = ""
End If
GetKey = jkey
End Function
Function String.Replace$ (a As String, b As String, c As String)
Dim j
Dim r
Dim r$
j = InStr(a, b)
If j > 0 Then
r$ = Left$(a, j - 1) + c + String.Replace(Right$(a, Len(a) - j + 1 - Len(b)), b, c)
Else
r$ = a
End If
String.Replace = r$
End Function
Save the attached text file as "chatgpt_template.json" and put it in the same directory as the executable.
