使用VBScript清除剪贴板

Question

如何在Win32上使用VBScript清除剪贴板？

Answer 1

它不能直接完成,但您可以让应用程序完成工作.这将使用命令行工具清除剪贴板clip:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c echo. >NUL  | clip", 0, True

另一种方法是使用具有COM接口并可以操作剪贴板的应用程序.例如Microsoft Word和Internet Explorer.

这将使用Internet Explorer,但可能会抛出用户对话框:

Set slaveApplication = CreateObject("InternetExplorer.Application")
slaveApplication.Navigate("about:blank")
slaveApplication.document.parentwindow.clipboardData.SetData "text", ""
slaveApplication.Quit