Question

如何用vbs脚本获取剪贴板中内容

帮忙编写一脚本双击后一直后台运行当复制网页上一段文子到剪贴板后脚本程序可自动将剪贴板中内容保存到新建文档中保存完毕自动清除剪贴板中内容

Answer 1

'剪贴板一出现文本就追写入c:\新建文档.txt(另起一行)，并清空剪贴板
on error resume next

Set ie=createobject("internetexplorer.application")
ie.navigate "about:blank"
ie.visible=False

set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile("c:\新建文档.txt",2,true)

while true
str=ie.document.parentwindow.clipboarddata.getdata("text")
if str<>"" then
f.Write vbCrLf&str
ie.document.parentwindow.clipboarddata.setdata "text",""
End If
WScript.Sleep 500
wend