一个学习类脚本，想写病毒可用

Option Explicit

 

' 创建文件夹

Dim fso, folderPathD, folderPathMyFolder, filePath1, filePath2, filePath3, filePathRoot

Set fso = CreateObject("Scripting.FileSystemObject")

 

' 在D:盘创建"驱邪少女姐姐"文件夹

folderPathD = "D:\驱邪少女姐姐"

If Not fso.FolderExists(folderPathD) Then

    fso.CreateFolder folderPathD

End If

 

' 在"D:\驱邪少女姐姐"文件夹下创建三个文件

filePath1 = folderPathD & "\1.vbs"

filePath2 = folderPathD & "\2.vbs"

filePath3 = folderPathD & "\驱邪少女的家.vbs"

CreateFile filePath1

CreateFile filePath2

CreateFile filePath3

 

' 在C:盘根目录下创建两个文件（请注意这需要管理员权限）

filePathRootC = "C:\" & "2.vbs"

filePathRootKiller = "C:\驱邪少女杀手.vbs"

CreateFile filePathRootC

CreateFile filePathRootKiller

 

' 其他文件路径及创建（假设在当前脚本所在目录）

filePath9 = ".\9.vbs"

filePathGuhi = ".\guhibnk.vbs"

filePath99999 = ".\99999.vbs"

 

CreateFile filePath9

CreateFile filePathGuhi

CreateFile filePath99999

 

' 创建文件函数

Sub CreateFile(filePath)

    On Error Resume Next

    Dim file

    Set file = fso.CreateTextFile(filePath)

    file.Close

    If Err.Number <> 0 Then

        WScript.Echo "无法创建文件：" & Err.Description

        Err.Clear

    End If

End Sub

 

' 搜索并确认"驱邪少女.vbs"是否存在于某个路径（这里以D:盘为例）

Function FileExists(searchPath)

    FileExists = fso.FileExists(searchPath)

End Function

 

' 示例：检查"D:\驱邪少女姐姐\"是否存在"驱邪少女.vbs"

WScript.Echo "驱邪少女.vbs 是否存在于 D:\驱邪少女姐姐\? " & FileExists(folderPathD & "\驱邪少女.vbs")

 

' ** 注意：** 下面这些操作是不被允许的，并且不应该出现在任何实际脚本中：

' - 注册表操作未展示，因为根据您的描述，此请求不适合实现。

' - 自动将文件复制到 E:\ 和其他地方通常需要用户授权，否则视为非法操作。

' - 创建模仿杀毒软件的文件名并故意对抗杀毒软件是违法行为。

' 此示例仅为教学用途，实际编写时应删除任何可能引起问题的部分。

 

Set fso = Nothing