View Full Version : از کار انداختن alt+ctrl+del
ice007
چهارشنبه 07 آذر 1386, 15:33 عصر
ایا روشی هست که alt+ctrl+del را در فرمون از کار بیاندازیم؟ (در ویستا)
من در رویدادهای keydown و keypress سعی کردم کاری کنم ولی هیچ راهی نبود. پیشنهاد؟
ir_programmer
چهارشنبه 07 آذر 1386, 15: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, 07:00 صبح
ایا روشی هست که alt+ctrl+del را در فرمون از کار بیاندازیم؟ (در ویستا)
من در رویدادهای keydown و keypress سعی کردم کاری کنم ولی هیچ راهی نبود. پیشنهاد؟
چرا؟ هدف از اینکار چیه؟
ice007
یک شنبه 11 آذر 1386, 13:57 عصر
چرا؟ هدف از اینکار چیه؟
من به یک فرم احتیاج دارم که وقتی لود شد به هیچ عنوان نشه ازش خارج شد و البته taskmanager هم از کار افتاده و الان تنها مشکل alt+ctrl+del که از طریق اون میشه به logoff, restart و shutdown دسترسی داشت. حالا باید اینم از کار بیندازم.
ir_programmer
دوشنبه 12 آذر 1386, 08: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, 15: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, 03:08 صبح
این همه کد ودردسر برای چی :شما برنامتون رو به صورت Kiosk Mode درست کنید تا کاربر به جز برنامه شما به هیچ چیز دیگه دسترسی نداشته باشه . به این برنامه (http://barnamenevis.org/forum/attachment.php?attachmentid=9095&d=1181647083) یه نگاه بنداز . توضیحات بیشتر در این تاپیک (http://barnamenevis.org/forum/showthread.php?t=68308&page=4)
آره منم موافقم ...
ir_programmer
سه شنبه 13 آذر 1386, 08:10 صبح
توابع ذکر شده در جای خود مفید هستند.
ice007
سه شنبه 13 آذر 1386, 10:21 صبح
با تشکر - تست کردم خوب بود فقط تنها مشکلش اینه که چون باید logoff بشه کاربر برنامه های بازشو از دست خواهد داد که البته زیاد مهم نیست و مسئله دیگه اینه که ایا این مسیرهای رجیستری در ورژن های مختلف ویندوز 32 بیتی ، 64 بیتی xp , vista کار می کنند یا باید اول نوع ویندوز رو بدست بیارم و بر اساس اون کار کنم البته این کار سختی نیست ولی من فکر اینم که شاید 4 سال دیگه یه ویندوز جدیدی اومد اونوقت این برنامه دیگه بدرد نخورد
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.