Programı kapatmak için şifreyi girmek gerekiyor. Windows'u kapatmaya çalışsa bile kapatamaz, Task Manager (Görev Yöneticisi) den bile kapatamaz...


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case UnloadMode
Case 0:
Cancel = True
Case 1:
Cancel = True
Case 2:
If InputBox("Çıkış İçin Şfre:") <> "abduli_t" Then Cancel = True
Case 3:
MsgBox ("Windows Çalıştığı Sürece Beni Kapatamazsın...")
Cancel = True
End Select
End Sub



Kodu kopyalayıp yapıştırmanız yeterli olacak

Beğeniler: 0
Favoriler: 0
İzlenmeler: 1712
favori
like
share