Küçük bir saka programi VB

[azrail050]

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

 

[joaolr]

k.bkma birader ben biraz yeniyimde bu sakayı nasıl yapıcaz acaba ?

 

[yido97]

saol metni değiştirip yapıcam

 

[azrail050]

Örnek O Yaw

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .