一个自动备份剪贴板的vbs程序

swanseabrian

一个自动备份剪贴板的vbs程序
就是ctrl+c复制的文件

然后备份到我指定的文件路径下，文字的话就统一存到一个txt里面换行就行
就是自动监听复制板和剪贴板

请问这个要怎么弄

holley

使用第三方命令行工具xclip.exe,论坛有下载。
http://www.bathome.net/s/tool/index.html?key=xclip

swanseabrian

回复 2# holley


    win10可以用吗
双击一闪就没了

for_flr

1. #@&cls&powershell "iex(gc '%~0'|out-string)"&pause&exit /b"
   
2. 
   
3. if ([threading.thread]::CurrentThread.GetApartmentState() -ne "STA"){
   
4.   powershell -sta
   
5. }
   
6. Add-Type -AssemblyName System.Windows.Forms
   
7. #加载System.Windows.Forms
   
8. 
   
9. $folder=get-date -f D
   
10. if(!(test-path $folder)){md $folder}
    
11. $folder=gi $folder
    
12. $folder
    
13. #根据日期建立文件夹$folder
    
14. 
    
15. $h=1
    
16. $ms=$h*3600000
    
17. $rate=800
    
18. $loop=$ms/$rate
    
19. #定义监控时间及频率，默认一小时，每500毫秒检查一次剪贴板。
    
20. 
    
21. function monitor{
    
22.   $clipdata = [System.Windows.Forms.Clipboard]::GetDataObject()
    
23.   $filetime=get-date -f MMddHHmmss
    
24.   if ($clipdata.ContainsImage()) {
    
25.     $clipdata.getimage().save("$folder\$filetime.jpg")
    
26.     write-host "存储图片到文件$filetime+.jpg" -fore green
    
27.   }
    
28.   if($clipdata.containstext()){
    
29.     $clipdata.gettext()+"`r`n"|ac $folder\text.txt
    
30.     write-host "存储文字到文件text.txt" -fore green
    
31.   }
    
32.   if($clipdata.containsfiledroplist()){
    
33.     copy $clipdata.getfiledroplist() $folder
    
34.     write-host "复制文件到文件夹$folder" -fore green
    
35.   }
    
36. 
    
37.   [System.Windows.Forms.Clipboard]::clear()
    
38.   write-host "监控剪贴板..."
    
39.   Start-Sleep -Milliseconds $rate
    
40. }
    
41. 
    
42. for($i=1;$i -lt $loop;$i++){monitor}
    
43. #根据前面定义的时长，循环执行

复制代码

swanseabrian

回复 4# for_flr


    好的,谢谢