paowershel raspa html

# Solicita ao usuário o link para pesquisa

$link = Read-Host "Digite o link para pesquisa"

# Codifica a URL para uso no DuckDuckGo

$encodedLink = [System.Web.HttpUtility]::UrlEncode($link)

# Gera a URL do DuckDuckGo com o link de pesquisa

$duckDuckGoUrl = "https://duckduckgo.com/?q=$encodedLink"

# Função para extrair e-mails e telefones de uma string

function Extrair-Informaçoes {

    param (

        [string]$conteudo

    )

    # Regex para buscar e-mails

    $emailRegex = '[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,}'

    $telefonesRegex = '\(?\d{2}\)?\s?\d{4,5}-?\d{4}'

    # Extrair e-mails

    $emails = [regex]::Matches($conteudo, $emailRegex) | ForEach-Object { $_.Value }

    # Extrair telefones

    $telefones = [regex]::Matches($conteudo, $telefonesRegex) | ForEach-Object { $_.Value }

    return @{

        Emails    = $emails

        Telefones = $telefones

    }

}

# Baixar o conteúdo do link

try {

    # Usando o Invoke-WebRequest para obter conteúdo de uma página da web

    $resposta = Invoke-WebRequest -Uri $link

    $conteudoPagina = $resposta.Content

    # Extrair e-mails e telefones do conteúdo

    $informacoes = Extrair-Informaçoes -conteudo $conteudoPagina

    Write-Host "E-mails encontrados:"

    $informacoes.Emails | ForEach-Object { Write-Host $_ }

    Write-Host "Telefones encontrados:"

    $informacoes.Telefones | ForEach-Object { Write-Host $_ }

} catch {

    Write-Host "Erro ao acessar o link ou processar o conteúdo. Verifique se a URL está correta."

}

# Abrir os resultados de pesquisa no DuckDuckGo

Start-Process $duckDuckGoUrl

<--------------------------------------------------------------------->

# Solicita ao usuário o link para pesquisa

$link = Read-Host "Digite o link para pesquisa"

# Codifica a URL para uso no DuckDuckGo

$encodedLink = [System.Web.HttpUtility]::UrlEncode($link)

# Gera a URL do DuckDuckGo com o link de pesquisa

$duckDuckGoUrl = "https://duckduckgo.com/?q=$encodedLink"

# Função para extrair e-mails e telefones de uma string

function Extrair-Informaçoes {

    param (

        [string]$conteudo

    )

    # Regex para buscar e-mails

    $emailRegex = '[a-zA-Z0-9._%+-]+@[a-zAZ0-9.-]+\.[a-zA-Z]{2,}'

    $telefonesRegex = '\(?\d{2}\)?\s?\d{4,5}-?\d{4}'

    # Extrair e-mails

    $emails = [regex]::Matches($conteudo, $emailRegex) | ForEach-Object { $_.Value }

    # Extrair telefones

    $telefones = [regex]::Matches($conteudo, $telefonesRegex) | ForEach-Object { $_.Value }

    return @{

        Emails    = $emails

        Telefones = $telefones

    }

}

# Função para buscar links de documentos (PDF, DOCX, etc.)

function Buscar-Documentos {

    param (

        [string]$conteudo

    )

    # Regex para buscar links de documentos (PDF, DOCX, etc.)

    $documentoRegex = '(http[s]?:\/\/[^\s]*\.(pdf|docx|txt|xlsx|pptx))'

    # Extrair links de documentos

    $documentos = [regex]::Matches($conteudo, $documentoRegex) | ForEach-Object { $_.Value }

    return $documentos

}

# Função para buscar links de imagens

function Buscar-Imagens {

    param (

        [string]$conteudo

    )

    # Regex para buscar links de imagens (jpg, jpeg, png, gif, etc.)

    $imagemRegex = '(http[s]?:\/\/[^\s]*\.(jpg|jpeg|png|gif|bmp|svg))'

    # Extrair links de imagens

    $imagens = [regex]::Matches($conteudo, $imagemRegex) | ForEach-Object { $_.Value }

    return $imagens

}

# Baixar o conteúdo do link

try {

    # Usando o Invoke-WebRequest para obter conteúdo de uma página da web

    $resposta = Invoke-WebRequest -Uri $link

    $conteudoPagina = $resposta.Content

    # Extrair e-mails e telefones do conteúdo

    $informacoes = Extrair-Informaçoes -conteudo $conteudoPagina

    Write-Host "E-mails encontrados:"

    $informacoes.Emails | ForEach-Object { Write-Host $_ }

    Write-Host "Telefones encontrados:"

    $informacoes.Telefones | ForEach-Object { Write-Host $_ }

    # Buscar documentos

    $documentos = Buscar-Documentos -conteudo $conteudoPagina

    Write-Host "Documentos encontrados:"

    $documentos | ForEach-Object { Write-Host $_ }

    # Buscar imagens

    $imagens = Buscar-Imagens -conteudo $conteudoPagina

    Write-Host "Imagens encontradas:"

    $imagens | ForEach-Object { Write-Host $_ }

} catch {

    Write-Host "Erro ao acessar o link ou processar o conteúdo. Verifique se a URL está correta."

}

# Abrir os resultados de pesquisa no DuckDuckGo

Start-Process $duckDuckGoUrl

# Solicita ao usuário o link para pesquisa

$link = Read-Host "Digite o link para pesquisa"

# Codifica a URL para uso no Bing

$encodedLink = [System.Web.HttpUtility]::UrlEncode($link)

# Gera a URL do Bing com o link de pesquisa

$bingUrl = "https://www.bing.com/search?q=$encodedLink"

# Função para extrair e-mails e telefones de uma string

function Extrair-Informaçoes {

    param (

        [string]$conteudo

    )

    # Regex para buscar e-mails

    $emailRegex = '[a-zA-Z0-9._%+-]+@[a-zA-Z0-9.-]+\.[a-zA-Z]{2,}'

    $telefonesRegex = '\(?\d{2}\)?\s?\d{4,5}-?\d{4}'

    # Extrair e-mails

    $emails = [regex]::Matches($conteudo, $emailRegex) | ForEach-Object { $_.Value }

    # Extrair telefones

    $telefones = [regex]::Matches($conteudo, $telefonesRegex) | ForEach-Object { $_.Value }

    return @{

        Emails    = $emails

        Telefones = $telefones

    }

}

# Baixar o conteúdo do link

try {

    # Usando o Invoke-WebRequest para obter conteúdo de uma página da web

    $resposta = Invoke-WebRequest -Uri $link

    $conteudoPagina = $resposta.Content

    # Extrair e-mails e telefones do conteúdo

    $informacoes = Extrair-Informaçoes -conteudo $conteudoPagina

    Write-Host "E-mails encontrados:"

    $informacoes.Emails | ForEach-Object { Write-Host $_ }

    Write-Host "Telefones encontrados:"

    $informacoes.Telefones | ForEach-Object { Write-Host $_ }

} catch {

    Write-Host "Erro ao acessar o link ou processar o conteúdo. Verifique se a URL está correta."

}

# Abrir os resultados de pesquisa no Bing

Start-Process "msedge.exe" -ArgumentList $bingUrl