1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 |
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 |