روش غير فعال كردن Ctrl+Alt+Del

Amin_vb

Member
با اين كد شما مي‌توانيد Ctrl+Alt+Del و Alt+Tab از كار بيندازيد.
ابتدا كد زير را در يك كاژول وارد نماييد.

کد:
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Const SPI_SCREENSAVERRUNNING = 97

سپس كد زير را اجرا كنيد تا اين عمل انجام شود.


کد:
Private Sub ToggleCtrlAltDel(IsEnabled As Boolean)
   Dim lReturn  As Long
   Dim lBool As Long
   lReturn = SystemParametersInfo(SPI_SCREENSAVERRUNNING, IsEnabled, lBool, vbNull)
End Sub
 

parshia

Member
salam , man code shomaro emtehan kardam ,ama ba moshkel movajeh shodam misheh , bishtar tozih bedi, ya khodet emtehan koni , badesh ageh lazaem boud bishtar tozih bedi
 

1Program

Member
mehdi siavashian گفت:
به نام خدا. با سلام:
چگونه ميشه اين كا را با C انجام داد؟
با تشكر
سلام
با عرض معذرت از آقا امين ...

كد فوق تابعي از Dll User32 ويندوز را فراخواني كرده است
شما كافيست IsEnabled =False قرار دهيد .

متاسفانه فراخواني Dllها را در C نميدانم ولي مي دانم كه اين تابع بايد در يك فايل سرليستي VC موجود باشد .
 

جدیدترین ارسال ها

بالا