• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[昨夜星辰] 【源码】清除系统使用痕迹 [复制链接]

1#
平时我们在使用电脑的时候,系统为了方便用户使用,会留下一些使用缓存、记录和快捷访问的方式。系统为用户提供便捷的同时,也留下了一些弊端。如长期使用电脑,系统会越来越臃肿,且容易暴露隐私。最可恨的是,一些游戏还会根据系统使用痕迹来检测用户是否曾经打开过游戏禁止的程序,从而进行打击。这就意味着,即便你开启游戏的时候,被检测的软件(如按键精灵等)没有处于运行状态,也会被检测到。今天我们就通过清除系统使用痕迹,来规避掉这种检测方法。

功能:
1、从注册表中清除开始菜单最近打开的程序记录
2、从注册表中清除开始菜单最近使用的项目记录
3、从注册表中清除最近操作的文件记录
4、从注册表中清除开始菜单运行记录
5、从注册表中清除文件搜索记录
6、从注册表中清除文件浏览记录
7、从注册表中清除通知区域图标记录
8、从磁盘中清除开始菜单最近使用的项目记录
9、从磁盘中清除临时文件
10、清除事件查看器日志

注:以上功能仅在Win7 64位系统下通过测试,其他系统请自行测试或更改代码。注册表枚举及文件枚举功能使用懒人插件(lxj_Plug.dll),可在脚本源文件的附件中获取。

调用方法:
  1. Call 从注册表中清除开始菜单最近打开的程序记录
  2. Call 从注册表中清除开始菜单最近使用的项目记录
  3. Call 从注册表中清除最近操作的文件记录
  4. Call 从注册表中清除开始菜单运行记录
  5. Call 从注册表中清除文件搜索记录
  6. Call 从注册表中清除文件浏览记录
  7. Call 从注册表中清除通知区域图标记录
  8. Call 从磁盘中清除开始菜单最近使用的项目记录
  9. Call 从磁盘中清除临时文件
  10. Call 重启explorer
  11. Call 清除事件查看器日志
复制代码
注:重启explorer并不影响清除效果,仅为了即时刷新电脑中显示的内容。

源码:
  1. Function EnumKeyEx(项全名)
  2. Dim EnumKey_ret, Keys, SubKeys
  3. Keys = ""
  4. SubKeys = ""
  5. Dim i, 新项全名
  6. 新项全名 = 项全名
  7. EnumKey_ret = Plugin.LXJ_PLUG.lxj_EnumKey(新项全名)
  8. If EnumKey_ret(0) <> 0 Then
  9. For i = 1 To EnumKey_ret(0)
  10. 新项全名 = 项全名 & "\" & EnumKey_ret(i)
  11. If Keys = "" Then
  12. Keys = 新项全名
  13. Else
  14. Keys = Keys & "|" & 新项全名
  15. End If
  16. SubKeys = EnumKeyEx(新项全名)
  17. If SubKeys <> "" Then
  18. Keys = Keys & "|" & EnumKeyEx(新项全名)
  19. End If
  20. Next
  21. End If
  22. EnumKeyEx = Keys
  23. End Function
  24. Function 从注册表中清除开始菜单最近打开的程序记录
  25. Dim Keys, i, KeyValues, k
  26. Keys = Split(EnumKeyEx("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\USERASSIST"), "|")
  27. U_Keys = UBound(Keys)
  28. For i = 0 To U_Keys
  29. KeyValues = Plugin.LXJ_PLUG.lxj_EnumValue(Keys(i))
  30. For k = 1 To KeyValues(0)
  31. If KeyValues(k) <> "Version" Then
  32. Call Plugin.LXJ_PLUG.lxj_DelValue(Keys(i), KeyValues(k))
  33. End If
  34. Next
  35. Next
  36. End Function
  37. Function 从注册表中清除开始菜单最近使用的项目记录
  38. Dim Keys, i, KeyValues, k
  39. KeyValues = Plugin.LXJ_PLUG.lxj_EnumValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\RECENTDOCS")
  40. For k = 1 To KeyValues(0)
  41. Call Plugin.LXJ_PLUG.lxj_DelValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\RECENTDOCS", KeyValues(k))
  42. Next
  43. Keys = Split(EnumKeyEx("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\RECENTDOCS"), "|")
  44. U_Keys = UBound(Keys)
  45. For i = 0 To U_Keys
  46. KeyValues = Plugin.LXJ_PLUG.lxj_EnumValue(Keys(i))
  47. For k = 1 To KeyValues(0)
  48. Call Plugin.LXJ_PLUG.lxj_DelValue(Keys(i), KeyValues(k))
  49. Next
  50. Next
  51. End Function
  52. Function 从注册表中清除最近操作的文件记录
  53. Dim Keys, i, KeyValues, k
  54. Keys = Split(EnumKeyEx("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\COMDLG32"), "|")
  55. U_Keys = UBound(Keys)
  56. For i = 0 To U_Keys
  57. KeyValues = Plugin.LXJ_PLUG.lxj_EnumValue(Keys(i))
  58. For k = 1 To KeyValues(0)
  59. Call Plugin.LXJ_PLUG.lxj_DelValue(Keys(i), KeyValues(k))
  60. Next
  61. Next
  62. End Function
  63. Function 从注册表中清除开始菜单运行记录
  64. Dim KeyValues, k
  65. KeyValues = Plugin.LXJ_PLUG.lxj_EnumValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\RUNMRU")
  66. For k = 1 To KeyValues(0)
  67. Call Plugin.LXJ_PLUG.lxj_DelValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\RUNMRU", KeyValues(k))
  68. Next
  69. End Function
  70. Function 从注册表中清除文件搜索记录
  71. Dim KeyValues, k
  72. KeyValues = Plugin.LXJ_PLUG.lxj_EnumValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\WORDWHEELQUERY")
  73. For k = 1 To KeyValues(0)
  74. Call Plugin.LXJ_PLUG.lxj_DelValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\WORDWHEELQUERY", KeyValues(k))
  75. Next
  76. End Function
  77. Function 从注册表中清除文件浏览记录
  78. Dim KeyValues, k
  79. KeyValues = Plugin.LXJ_PLUG.lxj_EnumValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\TYPEDPATHS")
  80. For k = 1 To KeyValues(0)
  81. Call Plugin.LXJ_PLUG.lxj_DelValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\EXPLORER\TYPEDPATHS", KeyValues(k))
  82. Next
  83. End Function
  84. Function 从注册表中清除通知区域图标记录
  85. Dim KeyValues, k
  86. KeyValues = Plugin.LXJ_PLUG.lxj_EnumValue("HKEY_CURRENT_USER\SOFTWARE\CLASSES\LOCAL SETTINGS\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\TRAYNOTIFY")
  87. For k = 1 To KeyValues(0)
  88. Call Plugin.LXJ_PLUG.lxj_DelValue("HKEY_CURRENT_USER\SOFTWARE\CLASSES\LOCAL SETTINGS\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\TRAYNOTIFY", KeyValues(k))
  89. Next
  90. End Function
  91. Function 从磁盘中清除开始菜单最近使用的项目记录
  92. Dim path, files, i
  93. path = 获取appdata目录() & "\Microsoft\Windows\Recent"
  94. files = Plugin.LXJ_PLUG.lxj_LookFile(path,"*.*",-1,false,false)
  95. For i = 1 To files(0)
  96. Call Plugin.File.DeleteFile(files(i))
  97. Next
  98. End Function
  99. Function 从磁盘中清除临时文件
  100. Dim path, files, i
  101. path = 获取临时目录()
  102. files = Plugin.LXJ_PLUG.lxj_LookFile(path,"*.*",-1,false,false)
  103. For i = 1 To files(0)
  104. Call Plugin.File.DeleteFile(files(i))
  105. Next
  106. End Function
  107. Function 清除事件查看器日志
  108. Dim wsh
  109. set wsh = CreateObject("Wscript.Shell")
  110. wsh.run "wevtutil.exe cl appliction", 0, true
  111. wsh.run "wevtutil.exe cl security", 0, true
  112. wsh.run "wevtutil.exe cl system", 0, true
  113. Set wsh = nothing
  114. End Function
  115. Function 重启explorer
  116. Dim wsh
  117. set wsh = CreateObject("Wscript.Shell")
  118. wsh.run "taskkill /IM explorer.exe /F", 0, true
  119. wsh.run "%systemroot%/explorer.exe", 0, false
  120. Set wsh = nothing
  121. End Function
  122. Function 获取临时目录
  123. Dim wsh
  124. Set wsh = createobject("WScript.shell")
  125. 获取临时目录 = wsh.ExpandEnvironmentStrings("%temp%")
  126. Set wsh = Nothing
  127. End Function
  128. Function 获取appdata目录
  129. Dim wsh
  130. Set wsh = createobject("WScript.shell")
  131. 获取appdata目录 = wsh.ExpandEnvironmentStrings("%appdata%")
  132. Set wsh = Nothing
  133. End Function
复制代码


源文件:

temp.zip (, 下载次数:89)



注:本源码不清除特定软件的缓存和记录,如浏览器、图片查看器、电影播放器、音乐播放器、聊天工具等。

最后编辑昨夜星辰 最后编辑于 2022-07-25 01:20:27
近期制作:
传奇私服各种反外挂插件版本挂机软件,可教可售
原神加速、连发辅助工具
天下3自动钓大鱼辅助工具

承接脚本定制,点击下方联系
QQ:250039815

交流群:101296478

2#

來看看大神

3#

來看看大神

4#

学习学习

脚本定制,欢迎咨询QQ: 2692863915
5#

chouchou

6#

666

7#

來看看大神

8#

11111111111111

9#

看下大神

10#

学习

官方脚本作者风闲 联系QQ:15177407

验证码识别,数据监测,网页操作,游戏,办公,抢购,post等

11#

上功能仅在Win7 64位系统下通过

12#

非常牛逼

13#

2022年7月28日 09:44:33

14#

666666666666

15#

测试测试强不强

16#

我来看看

17#

真的有这么好用吗

18#

6666666666

19#

11111111111111

20#

学习一下

发新话题 回复该主题