'功能: 监视剪贴板内容并将之记录到脚本所在目录下的"clipboardlog.txt"文件
'说明: 本脚本后台运行,没有显示,进程中会出现"wscript.exe"和"IEXPLORER.EXE"这两个进程
'当需要结束脚本时结束上述两个进程就行了
'
'sonic_andy 2007.1.27
'定义常量
Const ForWriting = 2
Const ForAppending = 8
Const TristateUseDefault = -2
'创建一个ie对象
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
'创建一个文件系统对象,并以追加方式打开文件
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objLogFile = objFSO.OpenTextFile("clipboardlog.txt",ForAppending,True,TristateUseDefault)
While True
'得到剪切板的内容
newContent = objIE.document.parentwindow.clipboardData.GetData("Text")
'判断是否改变,是否为空
If newContent<>strClipBoard And newContent<>"" Then
strClipBoard = newContent
objLogFile.Write "[" & Date & " " & Time & "] ***********************************************" & vbCrLf
objLogFile.Write strClipBoard & vbCrLf & vbCrLf
End If
'时间间隔为1秒
wscript.sleep(1000)
Wend
以上内容复制到记事本中,然后保存为"clipboard.vbs",双击运行即可。
用word 它可以的
电脑里设置下
CTRL+C