VBS
ipoler
这个作者很懒,什么都没留下…
展开
-
VBS统计目录下包含指定字符串的文件名的数量
Function TotalNum(str) dim n n = 0 Dir = "template" set fso = CreateObject("Scripting.FileSystemObject") set Folder = fso.GetFolder(Dir) For each oFile in Files FileName = oFile.name If InStr(FileName,str) <> .原创 2020-11-13 16:28:23 · 363 阅读 · 0 评论 -
VBS设置自启动
使用VBS脚本注册注册表,使目标自启动 dim AutoRun set AutoRun = CreateObject("WScript.Shell") RegPath = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" type_name = "REG_SZ" key_name = "template" key_data = "C:\" & key_name & ".exe" AutoRun.RegWr原创 2020-11-13 15:56:24 · 4131 阅读 · 0 评论