Question

VBS,如何获取剪贴板的内容.

想达到如下要求:

1.希望读取剪贴板内的文本信息,然后赋值给一个变量.
例:当用户复制一段文本后,然后双击这个VBS文件,将msgbox这段文本信息.

2.当用户复制的不是纯文本内容,也就是VBS读取不了的东东,将弹出提示.

谢谢.在线等....~!
谢谢,但这样会弹出一个空白的网页窗口..

我电脑装了腾讯TT,貌似visible=flase不管用了.

要静默处理的.能想想办法解决下么.?

Answer 1

Set ie=createobject("internetexplorer.application")
ie.navigate "about:blank"
ie.visible=False
str=ie.document.parentwindow.clipboarddata.getdata("text")
msgbox str

第二个 先判断复制的文件名字是不是txt文件格式， 在读不读取不就行了吗

补充：首先通过“工具”的“Internet选项”中的“安全”，点击“自定义级别”，然后你就要仔细了，在出现的很多选择栏目中找到“允许对剪切板进行编程访问”，选择“启用”，最后确认就OK了。
提醒下，这样设置浏览网页时候安全性会降低的哟！

Answer 2

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
strURL = objIE.document.parentwindow.clipboardData.GetData("text")
objIE.Quit
Wscript.Echo strURL