设为首页收藏本站
开启辅助访问 切换到宽版

无忧启动论坛

 找回密码
 注册
搜索
无忧启动论坛»论坛 › ::启动制作:: › 脚本讨论区 › 监视剪贴版，文本有变化就自动追加字符
系统gho:最纯净好用系统下载站投放广告、加入VIP会员，请联系 微信:wuyouceo
返回列表 发新帖
查看: 1396|回复: 21
打印 上一主题 下一主题

监视剪贴版，文本有变化就自动追加字符

[复制链接]
跳转到指定楼层
1#
发表于 2025-4-16 21:56:37 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
加入VIP会员，获无忧币，赠积分，送勋章，下载无限制，获论坛最高级会员权限 !
本帖最后由 窄口牛 于 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
2#
发表于 2025-4-16 22:11:00 | 只看该作者
感谢分享！
回复

使用道具 举报

yc2428
3#
发表于 2025-4-16 22:50:14 | 只看该作者
谢谢分享
回复

使用道具 举报

4#
发表于 2025-4-16 23:42:24 | 只看该作者
这个有什么实际作用吗？
回复

使用道具 举报

5#
发表于 2025-4-16 23:42:53 | 只看该作者
学习到了
回复

使用道具 举报

Juliany
6#
发表于 2025-4-16 23:47:19 | 只看该作者
我是李刚 发表于 2025-4-16 23:42
这个有什么实际作用吗？

不知道你有没有剪过报纸, 把报纸上感兴趣的内容剪下来, 贴在一张纸上. 这个软件大概就是干了这些事

点评

nttwqz
发送到 OneNote  详情 回复 发表于 2025-4-17 09:29
回复

使用道具 举报

7#
发表于 2025-4-17 06:50:22 | 只看该作者
下来看看 谢谢
回复

使用道具 举报

8#
发表于 2025-4-17 07:08:07 | 只看该作者
谢谢分享
回复

使用道具 举报

HXQhxq
9#
发表于 2025-4-17 08:04:46 | 只看该作者
感谢分享
回复

使用道具 举报

10#
发表于 2025-4-17 08:17:08 | 只看该作者
谢谢楼主分享
回复

使用道具 举报

sjcjack
11#
发表于 2025-4-17 09:16:23 | 只看该作者
感觉剪贴板可以用一些第三方工具
回复

使用道具 举报

cutebe
12#
发表于 2025-4-17 09:24:18 | 只看该作者
感谢分享！
回复

使用道具 举报

nttwqz
13#
发表于 2025-4-17 09:29:10 来自手机 | 只看该作者
Juliany 发表于 2025-4-16 23:47
不知道你有没有剪过报纸, 把报纸上感兴趣的内容剪下来, 贴在一张纸上. 这个软件大概就是干了这些事

发送到 OneNote
回复

使用道具 举报

14#
发表于 2025-4-17 09:42:16 | 只看该作者
好工具
回复

使用道具 举报

guong
15#
发表于 2025-4-17 11:10:45 | 只看该作者
来看看 谢谢分享！
回复

使用道具 举报

16#
 楼主| 发表于 2025-4-17 11:32:21 | 只看该作者
已修正错误。
回复

使用道具 举报

17#
发表于 2025-4-17 15:43:40 | 只看该作者
支持原创
回复

使用道具 举报

18#
发表于 2025-4-17 17:26:40 | 只看该作者
感谢分享好东东  学习了
回复

使用道具 举报

19#
 楼主| 发表于 2025-4-17 20:40:07 | 只看该作者
再次完善修复，clip方式会增加空格和回车符，改用ie方式，建立了一个结束的批处理，用于关闭它，调用ie前修改允许ie修改剪贴版，之后结束的批处理会恢复修改剪贴版的提示。
回复

使用道具 举报

fegr
20#
发表于 2025-4-18 16:23:42 来自手机 | 只看该作者
感谢分享
回复

使用道具 举报

21#
 楼主| 发表于 2025-4-19 09:36:38 来自手机 | 只看该作者
不知道什么原因，第一次运行会失败？
回复

使用道具 举报

22#
发表于 2025-4-19 18:06:51 | 只看该作者
谢谢楼主分享
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2025-5-23 21:54

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表