window raspe html poewr

# Verifique se o Selenium está instalado corretamente

# Instale com: Install-Module -Name Selenium -Scope CurrentUser

Import-Module Selenium

# Inicia o driver do Selenium

Function Start-Driver {

    try {

        return Start-SeChrome

    } catch {

        Write-Host "Erro ao iniciar o navegador Selenium: $_"

        return $null

    }

}

# Realiza pesquisa no Bing

Function Realizar-Pesquisa {

    param (

        [Parameter(Mandatory=$true)][string]$termo,

        [Parameter(Mandatory=$true)][Object]$driver

    )

    try {

        $driver.Url = "https://www.bing.com"

        Start-Sleep -Seconds 2 # Aguarda o carregamento da página

        $searchBox = $driver.FindElementByName("q")

        $searchBox.Clear()

        $searchBox.SendKeys($termo)

        $searchBox.SendKeys([OpenQA.Selenium.Keys]::Enter)

        Write-Host "Pesquisa realizada com sucesso."

    } catch {

        Write-Host "Erro ao realizar a pesquisa: $_"

    }

}

# Raspa o conteúdo HTML de um site

Function Raspar-HTML {

    param (

        [Parameter(Mandatory=$true)][string]$url

    )

    try {

        $response = Invoke-WebRequest -Uri $url -UseBasicParsing

        return $response.Content

    } catch {

        return "Erro ao raspar o HTML: $_"

    }

}

# GUI

Add-Type -AssemblyName System.Windows.Forms

$form = New-Object System.Windows.Forms.Form

$form.Text = "Automatizador Bing e Raspagem"

$form.Width = 800

$form.Height = 600

# Driver Selenium

$driver = Start-Driver

if (-not $driver) { Write-Host "Erro ao iniciar o Selenium. Finalizando."; return }

# Elementos de pesquisa

$searchLabel = New-Object System.Windows.Forms.Label

$searchLabel.Text = "Pesquisa no Bing:"

$searchLabel.Top = 10

$searchLabel.Left = 10

$form.Controls.Add($searchLabel)

$searchBox = New-Object System.Windows.Forms.TextBox

$searchBox.Top = 30

$searchBox.Left = 10

$searchBox.Width = 600

$form.Controls.Add($searchBox)

$searchButton = New-Object System.Windows.Forms.Button

$searchButton.Text = "Pesquisar"

$searchButton.Top = 30

$searchButton.Left = 620

$searchButton.Add_Click({

    $termo = $searchBox.Text

    if ($termo -ne "") {

        Realizar-Pesquisa -termo $termo -driver $driver

    } else {

        [System.Windows.Forms.MessageBox]::Show("Insira um termo para pesquisar.")

    }

})

$form.Controls.Add($searchButton)

# Elementos de raspagem

$urlLabel = New-Object System.Windows.Forms.Label

$urlLabel.Text = "URL para Raspar:"

$urlLabel.Top = 70

$urlLabel.Left = 10

$form.Controls.Add($urlLabel)

$urlBox = New-Object System.Windows.Forms.TextBox

$urlBox.Top = 90

$urlBox.Left = 10

$urlBox.Width = 600

$form.Controls.Add($urlBox)

$rasparButton = New-Object System.Windows.Forms.Button

$rasparButton.Text = "Raspar"

$rasparButton.Top = 90

$rasparButton.Left = 620

$rasparButton.Add_Click({

    $url = $urlBox.Text

    if ($url -ne "") {

        $htmlContent = Raspar-HTML -url $url

        $htmlArea.Text = $htmlContent

    } else {

        [System.Windows.Forms.MessageBox]::Show("Insira uma URL válida.")

    }

})

$form.Controls.Add($rasparButton)

# Área de texto para exibir o resultado da raspagem

$htmlArea = New-Object System.Windows.Forms.TextBox

$htmlArea.Top = 130

$htmlArea.Left = 10

$htmlArea.Width = 760

$htmlArea.Height = 400

$htmlArea.Multiline = $true

$htmlArea.ScrollBars = "Vertical"

$form.Controls.Add($htmlArea)

# Mostra a janela

$form.Add_FormClosed({

    $driver.Quit()

})

$form.ShowDialog()