TC官方合作论坛

 找回密码
 立即注册
查看: 78|回复: 0

[其他] 利用vbs删除RC资源目录【源码】

[复制链接]
发表于 2019-10-29 23:08:28 | 显示全部楼层 |阅读模式

马上加入TC

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
本帖最后由 一盏青灯 于 2019-10-29 23:13 编辑

改了下论坛上的VBS删除文件夹的代码,改为专门删除 rc 目录的代码
原理:就是写出vbs脚本文件运行,vbs脚本代码里加个延时,就可以等待自身程序完全退出后执行删除代码
rc目录 一般都会自动删除的,以前的tc貌似使用dllcall rc目录的dll会导致残留,现在tc7.0版本好像没这问题l了

  1. function 删除RC目录ByVBS(参_VBS运行延时=500)
  2.    
  3.     if(转整型(参_VBS运行延时) == null)
  4.         参_VBS运行延时 = 500
  5.     else
  6.         参_VBS运行延时 = 转整型(参_VBS运行延时)
  7.     end
  8.    
  9.     var VBS文件路径, VBS文件句柄, VBS脚本源码
  10.    
  11.     VBS文件路径 = 系统获取系统路径(2) & 随机数(100000000, 2147483647) & ".vbs"
  12.     while(文件是否存在(VBS文件路径) != 0)
  13.         VBS文件路径 = 系统获取系统路径(2) & 随机数(100000000, 2147483647) & ".vbs"
  14.     end
  15.    
  16.     VBS文件句柄 = 文件创建(VBS文件路径, "创建文件|读写")
  17.     if(VBS文件句柄 == -1)
  18.         return false
  19.     end
  20.    
  21.     VBS脚本源码 = "On Error Resume Next\r\n"
  22.     VBS脚本源码 = VBS脚本源码 & "WScript.Sleep " & 参_VBS运行延时 & "\r\n"
  23.     VBS脚本源码 = VBS脚本源码 & "Set FSO = CreateObject(\"Scripting.FileSystemObject\")\r\n"
  24.     VBS脚本源码 = VBS脚本源码 & "FSO.DeleteFile \"" & 获取资源路径("rc:*.*") & "\", True\r\n"
  25.     VBS脚本源码 = VBS脚本源码 & "FSO.DeleteFolder \"" & 字符串移除(获取资源路径("rc:"), 1, false) & "\", True\r\n"
  26.     VBS脚本源码 = VBS脚本源码 & "FSO.DeleteFile \"" & VBS文件路径 & "\", True\r\n"
  27.     VBS脚本源码 = VBS脚本源码 & "Set FSO = Nothing"
  28.    
  29.     if(文件写入字符(VBS文件句柄, VBS脚本源码) == false)
  30.         文件关闭(VBS文件句柄)
  31.         文件删除(VBS文件路径)
  32.         return false
  33.     end
  34.     文件关闭(VBS文件句柄)
  35.    
  36.     命令(VBS文件路径, false)
  37.    
  38.     return true
  39. end
复制代码



回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2019-11-21 07:17 , Processed in 0.028619 second(s), 22 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

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