Como limpar o histórico da área de transferência do Windows 10 via comando VBA e PowerShell

Pré-requisito :

• Você deve estar executando pelo menos o Windows 10 ou pelo menos o Windows Server 2016 com a opção Desktop Experience instalada , pois só assim o recurso de histórico da área de transferência estará disponível.

Existem duas maneiras de limpar o histórico da área de transferência usando o PowerShell

• Usando o ::ClearHistory()método estático da Windows.ApplicationModel.DataTransfer.Clipboardclasse .

  # Windows PowerShell only (not PowerShell 7+)
  [Windows.ApplicationModel.DataTransfer.Clipboard, Windows, ContentType = WindowsRuntime]::ClearHistory()
  

  • Isto tem a vantagem de não exigir elevação (Executar como Administrador).

  • No entanto, por ser uma classe UWP , ela funciona apenas no Windows PowerShell , porque o PowerShell (Core) 7+ pelo menos a partir da versão .NET 8 subjacente à versão atual, 7.4.x, não tem acesso a tais classes.

  • Além disso, isso funciona apenas no espaço de execução em primeiro plano (thread UI) e, portanto, não pode ser usado em trabalhos em segundo plano (incluindo trabalhos baseados em thread , por exemplo).

• Usando o Restart-Servicecmdlet para interromper e reiniciar o serviço do Windows de histórico da área de transferência:

  #requires -RunAsAdministrator
  Set-Clipboard $null; Restart-Service cbdhsvc_*
  

  • Infelizmente, esse método só funciona em uma sessão elevada do PowerShell .

  • No entanto, ele também funciona no PowerShell 7+ e também pode ser usado em chamadas (elevadas) que não sejam de primeiro plano , como em trabalhos.

  • A Set-Clipboard $nullchamada garante que os dados atuais da área de transferência também sejam removidos (algo que a chamada da API .NET acima faz automaticamente), embora observe que no PowerShell 7+ - ao contrário do Windows PowerShell - isso não limpa a área de transferência atual, mas substitui seu conteúdo com uma string vazia , que fica registrada como tal no histórico; no entanto, devido à reinicialização do serviço e, assim, à limpeza do histórico após esta chamada, isso não importará.

  • Se você estiver executando em um sistema mais antigo (anterior ao Windows 10 ou possivelmente uma versão muito antiga e obsoleta do Windows 10), a expressão curinga não corresponderá a um nome de serviço existente e a operação será silenciosa e autônoma .

    • Para descartar este caso, você pode executar o seguinte:

      if (-not (Get-Service cbdhsvc_*)) { throw "Clipboard history service not found." }
      

  • Um padrão curinga é necessário, porque o nome completo do serviço de histórico da área de transferência muda a cada login devido a um sufixo (pseudo) aleatório composto por _5 dígitos hexadecimais, por exemplo cbdhsvc_5e5a8.

    • Isso ocorre porque é um serviço por usuário , conforme explicado nesta resposta do SuperUser . Curiosamente, porém, parar e reiniciar tais serviços ainda requer elevação .

Invoque o comando PowerShell de limpeza do histórico da área de transferência do VBA :

• Use o .Run()método do WScript.Shellobjeto COM...

• ... para invocar powershell.exea CLI do Windows PowerShell com a ::ClearHistory()chamada mostrada na parte superior.

  • Nota : A estipulação do thread de UI, portanto, também se aplica aqui: a chamada deve ser feita a partir do thread de UI do aplicativo que hospeda o VBA.

O código abaixo executa a janela do console do PowerShell que é invariavelmente criada hidden , usando vbHideo estilo de janela na .Run()chamada.
Para solução de problemas, mude para vbNormalFocuse coloque -NoExitantes -Commandna powershell.exechamada.

Dim exitCode as Integer

' Run the PowerShell command hidden (vbHide), synchronously (True)
' and obtain its exit code.
exitCode = CreateObject("WScript.Shell").Run( _
 "powershell.exe -NoProfile -Command [Windows.ApplicationModel.DataTransfer.Clipboard, Windows, ContentType = WindowsRuntime]::ClearHistory()", _
 vbHide, _
 True _
)

If exitCode = 0 Then ' Command succeeded.
    ' Report success.
    MsgBox "Successfully cleared the clipboard history.", vbInformation
Else ' Command indicated failure.
    MsgBox "An unexpected error occurred while trying to clear the clipboard history", vbExclamation
End If

Se, por algum motivo, a powershell.exechamada não puder ser feita a partir do thread de interface do usuário do aplicativo de hospedagem VBA, você precisará usar o Restart-Servicemétodo e, para fazer isso, invariavelmente, será necessária a elevação .

• Você deve então invocar powershell.exede maneira aninhada para que uma powershell.exechamada interna possa solicitar elevação via .Start-Process -Verb RunAs

  • Importante : a menos que o aplicativo que hospeda o VBA esteja sendo executado com elevação, você receberá uma caixa de diálogo do UAC para confirmar ou autorizar a solicitação de elevação .

    • Como no uso direto do PowerShell, a implicação é que um usuário não administrador não poderá executar o comando, a menos que um administrador esteja presente para fornecer suas credenciais a fim de autorizar a solicitação.

    • Por meio de um design voltado para a segurança, você não pode automatizar a resposta às caixas de diálogo do UAC, e a única maneira de evitá- las em um processo não elevado é desabilitar completamente (partes do) UAC, o que é fortemente desencorajado por razões de segurança , ou - mas apenas se você é membro do grupo Administradores em princípio - para definir uma tarefa agendada que execute a operação desejada. Veja esta resposta para detalhes.

  • O código abaixo executa as janelas do console do PowerShell que são criadas ocultas , usando vbHideem vez de vbNormalFocusna .Run()chamada e usando -WindowStyle Hiddenna Start-Processchamada aninhada do PowerShell.
    Para solução de problemas, alterne para vbNormalFocuse use -NoExitem ambas powershell.exeas chamadas.

Dim exitCode as Integer

' Run the PowerShell command with elevation, synchronously, 
' and obtain the exit code.
exitCode = CreateObject("WScript.Shell").Run("powershell.exe Start-Process -Wait -Verb RunAs -WindowStyle Hidden powershell.exe 'Restart-Service cbdhsvc_*'", vbHide, True)

If exitCode = 0 Then ' Command succeeded.
    ' Display the output.
    MsgBox "Successfully cleared the clipboard history.", vbInformation
Else ' Command indicated failure.
    MsgBox "An unexpected error occurred while trying to clear the clipboard history", vbExclamation
End If