غیرفعال کرد کیلد alt+tab,alt+esc,Alt+ctr+del

[azizgh]

چگونه می توان فعالیت کیلدalt+tab,alt+esc,Alt+ctr+dell vb.net را در vb غیرفعال کرد

[Developer Programmer]

نمی شه عزیزم
من یه برنامه می نوشتم که کل سیستم قفل می کرد تا رمز رو وارد نمی کردین قفل رو باز نمی کرد اما تو XP , 2000 جواب نداد...
چون با فشار کلید ویندوز همه چیز بهم می ریخت

MSDN گفته به منظور امنیت نمی تونین اینکار رو بکنین ....

[ساران سافت]

شدن که میشه ولی باید ببین کدوم Api اینکار رو می کنه.
می یه برنامه دارم به نام ApiGuid لیست تمام api ها را توش با مثال و راهنما داره باید یوقت جستجو کنم. :|
تازه سایتش دائم اطلاعاتش رو اپگرید می کنه! :mrgreen:

[ایران ویج]

این لینک رو ببینید .
http://www.iranvig.com/modules.php?name=News&file=article&sid=146

[Developer Programmer]

منم اون برنامه رو دارم اما نمی تونه خودش رو بروز کنه...

[ایران ویج]

یه راهشم توی XP اینه که فایل taskmgr.exe رو توی شاخه سیستم ویندوزت حذفش کنی یا تغییر نام بدی.(البته این ازون راه هاهست :mrgreen: )
یه راه دیگه هم خودم تست نکردم ولی به احتمال 90 درصد جواب میده اینه که یه برنامه با تایمر داشته باشی کنترل کنه آیا پنجره تسک بار واز شده یا نه اگه باز بود اونو هیدن کنه.(من اینو برای پنجره برنامه خودم کردم).

[Omid.Mafakher]

-------------------------------------

[Developer Programmer]

عزیزم تو ویندوز XP هم جواب می ده ؟
شرمندم عین همین کد رو منهم قبلا نوشتم ولی...

[Voldemort]

کد زیر برای غیر فعال کردن کلیدهای Ctrl+Alt+Del است البته در VB . شما می توانید آن را براحتی به VB.NET تبدیل کنید:
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 cmdDisableCTRLALTDEL_Click()
Dim Ret As Long
Dim pOld As Boolean
Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
End Sub
کدهای موارد دیگر را هم قبلا نوشته ام البته باز هم در VB . به محض اینکه پیدایشان کردم برایتانمی نویسم. راستش اصلا حس دوباره نویسی ندارم. شرمنده :roll:

Private Sub cmdEnableCTRLALTDEL_Click()
Dim Ret As Long
Dim pOld As Boolean
Ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
End Sub

[Omid.Mafakher]

-------------------------------------

[Developer Programmer]

من هم این رو تو دلفی در سایت DelphiTips.com پیدا کردم
<span dir=ltr>
How can I remove my program from the "Kill task" menu (CTRL+ALT+DEL)?

2001-04-27 18:34:02 Gustav Evertsson Ratings: 9, Votes: 1

Start by declaring this function in you program:

function RegisterServiceProcess (ProcessID,RType:DWord):DWord; stdcall;external 'KERNEL32.DLL';



In your FormCreate and FormDestroy events put this code:

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID,1);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID,0);
end;