利用vbs删除RC资源目录【源码】

一盏青灯

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

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

复制代码

一盏青灯

jh668