标题: [问题求助] 一个自动备份剪贴板的vbs程序 [打印本页]
作者: swanseabrian 时间: 2022-3-16 10:24 标题: 一个自动备份剪贴板的vbs程序
一个自动备份剪贴板的vbs程序
就是ctrl+c复制的文件
然后备份到我指定的文件路径下,文字的话就统一存到一个txt里面换行就行
就是自动监听复制板和剪贴板
请问这个要怎么弄
作者: holley 时间: 2022-3-17 09:31
使用第三方命令行工具xclip.exe,论坛有下载。
http://www.bathome.net/s/tool/index.html?key=xclip
作者: swanseabrian 时间: 2022-3-17 10:24
回复 2# holley
win10可以用吗
双击一闪就没了
作者: for_flr 时间: 2022-3-18 16:40
- #@&cls&powershell "iex(gc '%~0'|out-string)"&pause&exit /b"
-
- if ([threading.thread]::CurrentThread.GetApartmentState() -ne "STA"){
- powershell -sta
- }
- Add-Type -AssemblyName System.Windows.Forms
- #加载System.Windows.Forms
-
- $folder=get-date -f D
- if(!(test-path $folder)){md $folder}
- $folder=gi $folder
- $folder
- #根据日期建立文件夹$folder
-
- $h=1
- $ms=$h*3600000
- $rate=800
- $loop=$ms/$rate
- #定义监控时间及频率,默认一小时,每500毫秒检查一次剪贴板。
-
- function monitor{
- $clipdata = [System.Windows.Forms.Clipboard]::GetDataObject()
- $filetime=get-date -f MMddHHmmss
- if ($clipdata.ContainsImage()) {
- $clipdata.getimage().save("$folder\$filetime.jpg")
- write-host "存储图片到文件$filetime+.jpg" -fore green
- }
- if($clipdata.containstext()){
- $clipdata.gettext()+"`r`n"|ac $folder\text.txt
- write-host "存储文字到文件text.txt" -fore green
- }
- if($clipdata.containsfiledroplist()){
- copy $clipdata.getfiledroplist() $folder
- write-host "复制文件到文件夹$folder" -fore green
- }
-
- [System.Windows.Forms.Clipboard]::clear()
- write-host "监控剪贴板..."
- Start-Sleep -Milliseconds $rate
- }
-
- for($i=1;$i -lt $loop;$i++){monitor}
- #根据前面定义的时长,循环执行
复制代码
作者: swanseabrian 时间: 2022-3-18 22:58
回复 4# for_flr
好的,谢谢
欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |