از کار انداختن alt+ctrl+del [بایگانی]

View Full Version : از کار انداختن alt+ctrl+del

ice007

چهارشنبه 07 آذر 1386, 14:33 عصر

ایا روشی هست که alt+ctrl+del را در فرمون از کار بیاندازیم؟ (در ویستا)
من در رویدادهای keydown و keypress‌ سعی کردم کاری کنم ولی هیچ راهی نبود. پیشنهاد؟

ir_programmer

چهارشنبه 07 آذر 1386, 14:55 عصر

اگر هدفت اینه که Task Manager رو غیر فعال کنی:
نمی دونم در ویستا هم کار میده یا نه.

Private Shared Sub EnableTaskManager(ByVal enable As Boolean)
Dim HKCU As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
Dim key As Microsoft.Win32.RegistryKey = HKCU.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Policies \System")
key.SetValue("DisableTaskMgr", IIf(enable, 0, 1), Microsoft.Win32.RegistryValueKind.DWord)
End Sub

اَرژنگ

یک شنبه 11 آذر 1386, 06:00 صبح

ایا روشی هست که alt+ctrl+del را در فرمون از کار بیاندازیم؟ (در ویستا)
من در رویدادهای keydown و keypress‌ سعی کردم کاری کنم ولی هیچ راهی نبود. پیشنهاد؟
چرا؟ هدف از اینکار چیه؟

ice007

یک شنبه 11 آذر 1386, 12:57 عصر

چرا؟ هدف از اینکار چیه؟
من به یک فرم احتیاج دارم که وقتی لود شد به هیچ عنوان نشه ازش خارج شد و البته taskmanager هم از کار افتاده و الان تنها مشکل alt+ctrl+del که از طریق اون میشه به logoff, restart و shutdown دسترسی داشت. حالا باید اینم از کار بیندازم.

ir_programmer

دوشنبه 12 آذر 1386, 07:02 صبح

با یک دستور نمی شه این کارها رو کامل انجام داد.
اما راه حل داره.
به ترتیبی که میگم عمل کن:

این کد که Task Manager رو فعال/غیر فعال میکنه:

Private Shared Sub EnableTaskManager(ByVal enable As Boolean)
Dim HKCU As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
Dim key As Microsoft.Win32.RegistryKey = HKCU.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Policies \System")
key.SetValue("DisableTaskMgr", IIf(enable, 0, 1), Microsoft.Win32.RegistryValueKind.DWord)
End Sub

این هم فعال/غیر فعال کردن Shut Down از Task Barویندوز:

Private Shared Sub EnableShutDownInTaskBar(ByVal enable As Boolean)
Dim HKCU As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
Dim key As Microsoft.Win32.RegistryKey = HKCU.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Policies \Explorer")
key.SetValue("NoClose", IIf(enable, 0, 1), Microsoft.Win32.RegistryValueKind.DWord)
End Sub

این هم فعال/غیر فعال کردن Shut Down از صفحه Logon وبندوز:

Private Shared Sub EnableShutDownInLogOn(ByVal enable As Boolean)
Dim HKCU As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
Dim key As Microsoft.Win32.RegistryKey = HKCU.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Policies \system")
key.SetValue("ShutdownWithoutLogon", IIf(enable, 0, 1), Microsoft.Win32.RegistryValueKind.DWord)
End Sub

و بهمین شکل ادامه بده ...

Sub Zero

دوشنبه 12 آذر 1386, 14:58 عصر

این همه کد ودردسر برای چی :شما برنامتون رو به صورت Kiosk Mode درست کنید تا کاربر به جز برنامه شما به هیچ چیز دیگه دسترسی نداشته باشه . به این برنامه (http://barnamenevis.org/forum/attachment.php?attachmentid=9095&d=1181647083) یه نگاه بنداز . توضیحات بیشتر در این تاپیک (http://barnamenevis.org/forum/showthread.php?t=68308&page=4)

kablayi

سه شنبه 13 آذر 1386, 02:08 صبح

ir_programmer

سه شنبه 13 آذر 1386, 07:10 صبح

توابع ذکر شده در جای خود مفید هستند.

ice007

سه شنبه 13 آذر 1386, 09:21 صبح

با تشکر - تست کردم خوب بود فقط تنها مشکلش اینه که چون باید logoff بشه کاربر برنامه های بازشو از دست خواهد داد که البته زیاد مهم نیست و مسئله دیگه اینه که ایا این مسیرهای رجیستری در ورژن های مختلف ویندوز 32 بیتی ، 64 بیتی xp , vista کار می کنند یا باید اول نوع ویندوز رو بدست بیارم و بر اساس اون کار کنم البته این کار سختی نیست ولی من فکر اینم که شاید 4 سال دیگه یه ویندوز جدیدی اومد اونوقت این برنامه دیگه بدرد نخورد