غير فعال کردن کليدهای CTRL+ALT+DELETEاز طریق vb6

[2600]

:در اين يادداشت قصد دارم اسکريپتی به شما معرفی کنم که با استفاده از اون در ويژوال بيسيک ميتونين
سه کليد CTRL+ALT+DELETE را در ويندوز غير فعال کنيد . اميدوارم شما دوستان خوبم اين پروژه رو
بپسنديد :

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97
(Private Sub Form_Unload(Cancel As Integer
' when this app closes, make sure CTRL+ALT+DELETE is re-enabled
Call Command2_Click
End Sub
()Private Sub cmdDisableCTRLALTDEL_Click
Dim Ret As Long
Dim pOld As Boolean
Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
End Sub
()Private Sub cmdEnableCTRLALTDEL_Click
Dim Ret As Long
Dim pOld As Boolean
Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
End Sub

کاربرد اين اسکريپت در پروژه هايی است که شما نمی خواهيد کاربر يک برنام در حال اجرا رو با استفاده
از اين سه کليد ببنده. خوب شايد حالا متوجه شده باشيد کاربرد اين اسکريپت در چه واقعی ميتونه باشه
نظر يادت نره
************************************************** *****