غير فعال کردن کليدهای CTRL+ALT+DELETE در وِیژوال بیسیک

[roomezonline]

با این کد شما می توانید از باز شدن تسک منیجر جلوگیری کنید و مانع از بستن شدن پروسه برنامه خود توسط قربانی یا کاربر شوید


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


با تشکر
:چشمک:مصطفی

[ebrahimashori]

اين کد کار نمی کنه.ممنون میشم اگه کد درست رو بنویسی چون من خیلی بهش احتیاج دارم

[roomezonline]

یه راه بهتر
اما کد قبلی من تست کردم مشکلی نداره خودم دارم استفاده میکنم

راه دوم
شما میتونید هندل پنجره تسک منیجر رو بگیرید و مانع از باز شدن اون بشید با کد زیر

تو قسمت جنرال:

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Dim handel As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long


یه تایمر برای فرم بذارید و کدهای زیر را وارید کنید


Private Sub Timer1_Timer()


handel = FindWindow(vbNullString, "Windows Task manager")
If handel <> 0 Then
SetForegroundWindow handel
SendKeys "%{f4}", 1
End If
End Sub


و این کد هم را در قسمت from_load بنویسید


Private Sub Form_Load()
MsgBox "Windows Task manager", vbCritical, "This is not a virus !!"
Timer1.Enabled = True
End Sub

موفق باشید

[roo.row]

با سلام خدمت دوستان
با تشکر از شما
در کد بالا خط
SendKeys "%{f4}", 1

ارور دیباگ میده
چیکار کنم برطرف بشه ؟ ممنون

[meys34]

از ویندوز 7 به بعد این مشکل هست کلمه SendKey رو سرچ میکردید راحت پیدا میشد...

http://barnamenevis.org/showthread.php?469254-%DA%A9%D8%A7%D8%B1-%D9%86%DA%A9%D8%B1%D8%AF%D9%86-sendkeys

درضمن تاپیک قدیمی هست اگه سوال حدید دارید تاپیک بسازید....

[roo.row]

با سلام
فقط اگه ممکنه بفرمایید چطور از ماژولی که قرار دادید استفاده کنم در داخل صفحه ای که معرفی کردید
آخه داخل برنامه گذاشتمش ولی بازم ارور گرفت گفتم شاید من اشتباه قرار دادمش
با تشکر