无忧启动论坛

标题: 监视剪贴版，文本有变化就自动追加字符 [打印本页]
作者: 窄口牛    时间: 2025-4-16 21:56
标题: 监视剪贴版，文本有变化就自动追加字符
本帖最后由 窄口牛 于 2025-4-18 06:43 编辑

剪贴版追加字符串.rar (1.36 KB, 下载次数: 22)
检测频度可以自己酌情修改，不需要了可以结束wscript进程以终止。
  1. On Error Resume Next
  2. set fso=createobject("scripting.filesystemobject")
  3. set fw=fso.createtextfile("结束.bat",2)
  4. fw.writeline("@echo off")
  5. fw.writeline("Setlocal enabledelayedexpansion")
  6. fw.writeline("reg query HKU\S-1-5-20>nul || (")
  7. fw.writeline("echo;CreateObject^(""Shell.Application""^).ShellExecute ""%~f0"", """", """", ""runas"", 1 > ""%temp%\getadmin.vbs"" && cscript //b ""%temp%\getadmin.vbs"" && exit /b & del ""%temp%\getadmin.vbs"" /f /q>nul 2>nul)")
  8. fw.writeline("pushd ""%CD%"" && CD /D ""%~dp0""")
  9. fw.writeline("taskkill /im wscript.exe /f")
  10. fw.writeline("taskkill /im iexplore.exe /f")
  11. fw.writeline("for /f ""tokens=2 delims= "" %%i in ('whoami /user ^|find ""S-1-5""') do set sid=%%i")
  12. fw.writeline("reg add ""HKEY_USERS\%sid%\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3"" /v ""1407"" /t REG_DWORD /d 1 /f")
  13. fw.writeline("reg add ""HKEY_USERS\%sid%\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3"" /v ""CurrentLevel"" /t REG_DWORD /d 70912 /f")
  14. fw.writeline("Del %0")
  15. fw.Close()
  16. set fw = Nothing
  17. set fso = Nothing
  18. Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  19. Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name='explorer.exe'")
  20. strUser = ""
  21. strDomain = ""
  22. For Each objProcess in colProcesses
  23.     objProcess.GetOwner strUser, strDomain
  24.     If strUser <> "" Then Exit For
  25. Next
  26. If strUser = "" Then
  27.     MsgBox "无法获取当前用户", vbCritical
  28.     WScript.Quit
  29. End If
  30. Set colAccounts = objWMIService.ExecQuery("SELECT * FROM Win32_UserAccount WHERE Name='" & strUser & "' AND Domain='" & strDomain & "'")
  31. strSID = ""
  32. For Each objAccount in colAccounts
  33.     strSID = objAccount.SID
  34.     Exit For
  35. Next
  36. If strSID = "" Then
  37.     MsgBox "无法获取用户SID", vbCritical
  38.     WScript.Quit
  39. End If
  40. Set WshShell = CreateObject("WScript.Shell")
  41. regPath = "HKEY_USERS" & strSID & "\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3"
  42. WshShell.RegWrite regPath & "1407", 0, "REG_DWORD"
  43. WshShell.RegWrite regPath & "CurrentLevel", 0, "REG_DWORD"
  44. Set WshShell = CreateObject("WScript.Shell")
  45. Do
  46.     WScript.Sleep 1000
  47.     Set objHTML = CreateObject("htmlfile")
  48.     objHTML.parentWindow.clipboardData.SetData "Text", ""
  49.     objHTML.parentWindow.clipboardData.GetData "Text"
  50.     CurrentText = objHTML.parentWindow.clipboardData.GetData("Text")
  51.     On Error Goto 0
  52.    
  53.     If IsEmpty(CurrentText) Or Not IsString(CurrentText) Then
  54.         LastText = ""
  55.         Exit Do
  56.     End If
  57.    
  58.     If Right(CurrentText, 4) <> ".mp4" Then
  59.         NewText = CurrentText & ".mp4"
  60.         objHTML.parentWindow.clipboardData.SetData "Text", NewText
  61.         WshShell.Run "clip.exe", 0, True
  62.         LastText = NewText
  63.         Set IE = CreateObject("InternetExplorer.Application")
  64.         IE.Navigate("about:blank")
  65.         Set clipboard = IE.document.parentWindow.clipboardData
  66.         clipboard.SetData  "Text", NewText
  67.         'WScript.Echo "已追加：" & NewText
  68.     End If
  69. Loop
  70. Function IsString(var)
  71.     On Error Resume Next
  72.     IsString = (VarType(var) = 8) And (Len(var) > 0)
  73. End Function
复制代码



作者: it323    时间: 2025-4-16 22:11
感谢分享！
作者: yc2428    时间: 2025-4-16 22:50
谢谢分享
作者: 我是李刚    时间: 2025-4-16 23:42
这个有什么实际作用吗？
作者: 俪尚皇    时间: 2025-4-16 23:42
学习到了
作者: Juliany    时间: 2025-4-16 23:47
我是李刚 发表于 2025-4-16 23:42
这个有什么实际作用吗？

不知道你有没有剪过报纸, 把报纸上感兴趣的内容剪下来, 贴在一张纸上. 这个软件大概就是干了这些事
作者: yyz2191958    时间: 2025-4-17 06:50
下来看看 谢谢
作者: 小灰兔    时间: 2025-4-17 07:08
谢谢分享
作者: HXQhxq    时间: 2025-4-17 08:04
感谢分享
作者: wang1126    时间: 2025-4-17 08:17
谢谢楼主分享
作者: sjcjack    时间: 2025-4-17 09:16
感觉剪贴板可以用一些第三方工具
作者: cutebe    时间: 2025-4-17 09:24
感谢分享！
作者: nttwqz    时间: 2025-4-17 09:29
Juliany 发表于 2025-4-16 23:47
不知道你有没有剪过报纸, 把报纸上感兴趣的内容剪下来, 贴在一张纸上. 这个软件大概就是干了这些事

发送到 OneNote
作者: nanan84563    时间: 2025-4-17 09:42
好工具
作者: guong    时间: 2025-4-17 11:10
来看看 谢谢分享！
作者: 窄口牛    时间: 2025-4-17 11:32
已修正错误。
作者: wn168cn@163.com    时间: 2025-4-17 15:43
支持原创
作者: promrhxq    时间: 2025-4-17 17:26
感谢分享好东东  学习了
作者: 窄口牛    时间: 2025-4-17 20:40
再次完善修复，clip方式会增加空格和回车符，改用ie方式，建立了一个结束的批处理，用于关闭它，调用ie前修改允许ie修改剪贴版，之后结束的批处理会恢复修改剪贴版的提示。
作者: fegr    时间: 2025-4-18 16:23
感谢分享
作者: 窄口牛    时间: 2025-4-19 09:36
不知道什么原因，第一次运行会失败？
作者: classMain    时间: 2025-4-19 18:06
谢谢楼主分享




欢迎光临 无忧启动论坛 (http://bbs.wuyou.net/) Powered by Discuz! X3.3