saka virusu yapma!

[bilalgzkys]

Bu kodu oldugu gibi form a yapistir


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 "Kaydi len senin bilgisayara, bu virusu açin diyee "
End Sub
Private Sub form_Terminate()
kapat = ExitWindowsEx(EWX_SHUTDOWN, 1)
If kapat = True Then
Else
MsgBox ("virus bulasti hehehe mgzkysl ")
End If

End Sub
vürüs değildir denendi

 

[elektronick_bjk]

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 "Kaydi len senin bilgisayara, bu virusu açin diyee "
End Sub
Private Sub form_Terminate()
kapat = ExitWindowsEx(EWX_SHUTDOWN, 1)
If kapat = True Then
Else
MsgBox ("virus bulasti hehehe mgzkysl ")
End If

End Sub

 

[polat21]

tşler saol