Add-Type -AssemblyName System.Windows.Forms
function pasarChatGPT($contrato)
{
# Configuración de la solicitud
$uri = "https://api.openai.com/v1/chat/completions"
$apiKey = gc .\clave.txt # Asegúrate de reemplazar 'sk-code' con tu clave de API real
$headers = @{
"Authorization" = "Bearer $apiKey"
"Content-Type" = "application/json; charset=utf-8"
}
# Cuerpo de la solicitud
$body = @{
model = "gpt-3.5-turbo"
messages = @(
@{
role = "user"
content = 'quiero que me digas qué cláusula puede ser incorrecta y por qué: '+$contrato+'
'
}
)
}
# Convertir el cuerpo a JSON con codificación UTF-8
$jsonBody = $body | ConvertTo-Json -Depth 10
$bytes = [System.Text.Encoding]::UTF8.GetBytes($jsonBody)
$stream = [System.IO.MemoryStream]::new($bytes)
# Realizar la solicitud
$response = Invoke-RestMethod -Uri $uri -Method Post -Headers $headers -Body $stream
$decodedResponse = [System.Text.Encoding]::UTF8.GetString([System.Text.Encoding]::Default.GetBytes($response.choices.message.content))
$decodedResponse
Start-Sleep -Seconds 30
}
# Crear el formulario
$form = New-Object System.Windows.Forms.Form
$form.Text = "Buscar y Mostrar Archivo de Texto"
$form.Size = New-Object System.Drawing.Size(500,300)
$form.StartPosition = "CenterScreen"
# Crear el botón de búsqueda de archivo
$buttonBrowse = New-Object System.Windows.Forms.Button
$buttonBrowse.Location = New-Object System.Drawing.Point(10,10)
$buttonBrowse.Size = New-Object System.Drawing.Size(120,23)
$buttonBrowse.Text = "Seleccionar archivo"
$buttonBrowse.Add_Click({
$openFileDialog = New-Object System.Windows.Forms.OpenFileDialog
$openFileDialog.Filter = "Archivos de texto (*.txt)|*.txt"
$openFileDialog.Title = "Seleccionar archivo de texto"
$result = $openFileDialog.ShowDialog()
# Mostrar el contenido del archivo seleccionado en la caja de texto
if ($result -eq "OK") {
$selectedFile = $openFileDialog.FileName
$textBox.Text = pasarChatGPT (Get-Content -Path $selectedFile)
}
})
# Crear la caja de texto para mostrar el contenido del archivo seleccionado
$textBox = New-Object System.Windows.Forms.TextBox
$textBox.Multiline = $true
$textBox.ScrollBars = "Vertical"
$textBox.Location = New-Object System.Drawing.Point(10, 40)
$textBox.Size = New-Object System.Drawing.Size(480,200)
# Agregar controles al formulario
$form.Controls.Add($buttonBrowse)
$form.Controls.Add($textBox)
# Mostrar el formulario
$form.ShowDialog() | Out-Null
Publicado el día 16 de febrero de 2024CATEGORÍAS
Inteligencia artificial, Legaltech, PowerShell