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

软件版本：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

快捷导航

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

登录 注册
返回列表 123456
发新话题 回复该主题
查看: 23851|回复: 109

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

昨夜星辰
头像

QQ250039815

  • 按键认证大神
  • 728264
  • 3501
  • 18
  • 1898 朵
  • 27453 个
  • 1717 个
  • 82980
  • 2011-08-04
按键X开拓者勋章过大年勋章抗战胜利70周年勋章单身汪勋章按键14周年庆纪念勋章羊年勋章按键学院马年勋章鹰眼勋章双蛋勋章黄瓜勋章按键卫士屌丝勋章土豪勋章天使勋章潜水员按键明星黄金之翼按键精灵开发者6级龙年勋章十周年勋章兔年勋章虎年勋章论坛GG学有所成盒子会员
1#
t T
发表于 2022-07-25 01:02 | |只看楼主
平时我们在使用电脑的时候，系统为了方便用户使用，会留下一些使用缓存、记录和快捷访问的方式。系统为用户提供便捷的同时，也留下了一些弊端。如长期使用电脑，系统会越来越臃肿，且容易暴露隐私。最可恨的是，一些游戏还会根据系统使用痕迹来检测用户是否曾经打开过游戏禁止的程序，从而进行打击。这就意味着，即便你开启游戏的时候，被检测的软件(如按键精灵等)没有处于运行状态，也会被检测到。今天我们就通过清除系统使用痕迹，来规避掉这种检测方法。

功能：
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 (, 下载次数:322)



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

最后编辑昨夜星辰 最后编辑于 2022-07-25 01:20:27
点赞
近期制作：
传奇私服各种反外挂插件版本挂机软件，可教可售
原神加速、连发辅助工具
天下3自动钓大鱼辅助工具
承接脚本定制，点击下方联系
QQ：250039815

交流群：101296478
回顶部
dog38cc
头像

dog38cc

  • 高中二年级
  • 5111770
  • 601
  • 0
  • 53 朵
  • 605 个
  • 595 个
  • 720
  • 2018-03-12
按键精灵开发者2级
2#
t T
发表于 2022-07-25 07:37 | |只看该用户

來看看大神

回顶部
suyi113197162
头像

老黑

  • 小学四年级
  • 4000391
  • 85
  • 0
  • -22 朵
  • 333 个
  • 143 个
  • 2880
  • 2016-07-05
按键精灵开发者5级
3#
t T
发表于 2022-07-25 10:44 | |只看该用户

來看看大神

回顶部
Danboy
头像

洛洛米

  • 官方脚本作者
  • 1962989
  • 4206
  • 0
  • 1774 朵
  • 11124 个
  • 1586 个
  • 213980
  • 2013-06-30
按键X开拓者勋章按键剑侠客图灵勋章按键图书勋章天使勋章按键明星黄金之翼骨灰级按键用户按键精灵开发者5级论坛GG学有所成
4#
t T
发表于 2022-07-25 10:46 | |只看该用户

学习学习

脚本定制,欢迎咨询QQ: 2692863915
回顶部
18653318778
头像

18653318778

  • 幼儿园
  • 8730942
  • 1
  • 0
  • 2 朵
  • 2 个
  • 2 个
  • 0
  • 2022-05-08
5#
t T
发表于 2022-07-25 13:08 | |只看该用户

chouchou

回顶部
ichigoQ7
头像

ichigoQ7

  • 初中一年级
  • 8414809
  • 151
  • 0
  • 73 朵
  • 161 个
  • 155 个
  • 0
  • 2021-08-11
6#
t T
发表于 2022-07-25 13:45 | |只看该用户

666

回顶部
春江小鱼儿
头像

春江小鱼儿

  • 幼儿园
  • 4659781
  • 3
  • 0
  • 1 朵
  • 13 个
  • 3 个
  • 0
  • 2017-10-08
7#
t T
发表于 2022-07-25 14:19 | |只看该用户

來看看大神

回顶部
woshinibaw
头像

  • 小学二年级
  • 4533877
  • 37
  • 0
  • 23 朵
  • 48 个
  • 27 个
  • 100
  • 2017-07-04
8#
t T
发表于 2022-07-26 00:25 | |只看该用户

11111111111111

回顶部
q7412589
头像

  • 幼儿园
  • 8805642
  • 1
  • 0
  • 2 朵
  • 2 个
  • 2 个
  • 0
  • 2022-07-26
9#
t T
发表于 2022-07-26 10:33 | |只看该用户

看下大神

回顶部
qiudi
头像

风闲

  • 官方脚本作者
  • 3892596
  • 2307
  • 0
  • 2118 朵
  • 2376 个
  • 2264 个
  • 92820
  • 2016-04-29
按键精灵开发者6级
10#
t T
发表于 2022-07-26 23:36 | |只看该用户

学习

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

验证码识别,数据监测,网页操作,游戏,办公,抢购,post等
回顶部
shendezuiai
头像

shendezuiai

  • 高中二年级
  • 711725
  • 631
  • 0
  • 21 朵
  • 2766 个
  • 246 个
  • 18420
  • 2011-07-17
11#
t T
发表于 2022-07-27 22:40 | |只看该用户

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

回顶部
yanyan66
头像

yanyan66

  • 小学一年级
  • 8805145
  • 7
  • 0
  • -4 朵
  • -2 个
  • -2 个
  • 0
  • 2022-07-25
12#
t T
发表于 2022-07-28 02:13 | |只看该用户

非常牛逼

回顶部
METLIKE
头像

  • 小学五年级
  • 5801026
  • 96
  • 0
  • 71 朵
  • 8 个
  • 17 个
  • 0
  • 2018-11-11
图灵勋章黄金之翼按键精灵开发者6级
13#
t T
发表于 2022-07-28 09:44 | |只看该用户

2022年7月28日 09:44:33

回顶部
z3090712
头像

  • 高中三年级
  • 3958378
  • 651
  • 0
  • 141 朵
  • 3298 个
  • 128 个
  • 7160
  • 2016-06-07
按键精灵开发者2级
14#
t T
发表于 2022-07-28 09:49 | |只看该用户

666666666666

回顶部
坦克
头像

坦克

  • 初中一年级
  • 27897
  • 217
  • 0
  • 22 朵
  • 334 个
  • 182 个
  • 6220
  • 2004-09-30
按键精灵开发者6级脚本作者
15#
t T
发表于 2022-07-28 09:54 | |只看该用户

测试测试强不强

回顶部
fcu100
头像

永濠奥达

  • 高中一年级
  • 2040492
  • 480
  • 0
  • 26 朵
  • 1418 个
  • 98 个
  • 8480
  • 2013-07-30
16#
t T
发表于 2022-07-29 13:15 | |只看该用户

我来看看

回顶部
excellentzl
头像

excellentzl

  • 小学一年级
  • 601687
  • 18
  • 0
  • 4 朵
  • 25 个
  • 10 个
  • 0
  • 2011-02-18
17#
t T
发表于 2022-07-29 13:45 | |只看该用户

真的有这么好用吗

回顶部
rpdw411
头像

rpdw411

  • 高中二年级
  • 639508
  • 559
  • 0
  • 10 朵
  • 2149 个
  • 262 个
  • 12200
  • 2011-04-13
按键精灵开发者1级
18#
t T
发表于 2022-07-29 14:42 | |只看该用户

6666666666

回顶部
q815719142
头像

  • 小学三年级
  • 4074733
  • 57
  • 0
  • 27 朵
  • 121 个
  • 42 个
  • 440
  • 2016-08-17
19#
t T
发表于 2022-07-29 15:24 | |只看该用户

11111111111111

回顶部
web666
头像

  • 小学三年级
  • 3944412
  • 67
  • 0
  • 45 朵
  • 114 个
  • 39 个
  • 440
  • 2016-05-30
20#
t T
发表于 2022-07-31 16:41 | |只看该用户

学习一下

回顶部
上一主题| 下一主题
返回列表 123456
发新话题 回复该主题
高级编辑器高级编辑器