قفل کردن کامل ویندوز.

[VirGil]

سلام.

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

ویندوز رو ازاد کنه.یه جوری باشه که به غیر پسورد هیچ جور دیگه ای نشه ویندوز رو ازاد کرد.

تا حد ممکن یه کد اسون و قابل فهم لطف کنید.

دست همگیتون درد نکنه.

[morteza_261]

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

[VirGil]

ااق مرتضی حتما مزاح میفرمایید.البته خوب بود ولی خیلی ناقص بود.

من یه پروژه ی کامل تر میخوام.گفتم که.می خوام به هیچ وجه کاربر نتونه نفوذ کنه.

[MORTEZA66]

با سلام
برای ساختن این جور فرم ها به این صورت میتونی عمل کنی
1)باید فرمت روی تمام پنجره ها باشه به این صورت :

me.TopMost=True
2)باید کاری کنی که کاربر نتونه پنجره رو ببنده به این صورت :

PrivateSub Form_FormClosing(ByVal sender AsObject, ByVal e As System.Windows.Forms.FormClosingEventArgs) HandlesMe.FormClosing
e.Cancel = True
EndSub

3)باید پروسس های Explorer و Tskmgr رو هر چند میلی ثانیه ببندی به این صورت :

Dim a As Process() = Process.GetProcessesByName("explorer")
Dim b As Process() = Process.GetProcessesByName("taskmgr")
If a.Length > 0 Then a(0).Kill()
If b.Length > 0 Then b(0).Kill()

4)باید فرمت تمام صفحه باشه به این صورت :

me.WindowState=FormWindowState.Maximized

5)وقتی کاربر پسورد رو درست وارد کرد تمام عملیات بالا متوقف بشه و پروسه ها استارت بشن به این صورت:

Process.Start("explorer.exe")

6)از همه مهمتر باید اسم برنامتو به Services.exe تغییر بدی تا دیگه به هیچ وجه کاربر نتونه اونو end کنه

در صورتی که میخوای این برنامه رو ScreenSaver کنی میتونی پسوند فایل exe تو به scr تغییر بدی و سپس فایلتو به عنوان screensaver ویندوز قرار بدی

[VirGil]

دسستون درد نکنه.نکته ی 3 خیلی عالی بود.

فقط اگه برنامه رو به عنوان اسکرین سیور قرار بدی چه فرقی با همین حالت معمولی داره؟

یه سوال کوچولوی دیگه.چه جوری میشه کلید ویندوز و کلید Ctrl و کلید Alt رو غیر فعال کرد؟

[VirGil]

بالاخره کسی قصد کمک داره یا نه؟

[MORTEZA66]

براي غير فعال كردن هر كليدي در رويداد KeyDown كد زير را بنويسيد مثلا


Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If (e.KeyCode = Keys.Control) Or (e.KeyCode = Keys.Alt) Then
e.SuppressKeyPress = True
End If
End Sub

[msh_gold]

با سلام .آقا morteza اگه ما بخواهيم ماوس و كيبورد رو هم قفل كنيم بايد چي كار كنيم اگه ممكنه لطف كنيد كد اونم بزاريد. با تشكر

[amirsajjadi]

با سلام
برای قفل کردن صفحه کلید و موس از این API استفاده کن (فقط مواظب باش)
API :


Private Declare Function BlockInput Lib "user32.dll" (ByVal fBlock As Integer) As Integer

برای قفل کردن :


BlockInput(True)

برای باز کردن :


BlockInput(False)

[VirGil]

نه اصلا قرار نیست که keyboard یا mouse قفل بشه.

به هر حال خیلی ممنون.ولی قراره کلید ویندوز قفل بشه که هنوز نشده.:دی

کسی نمیتونه کمک کنه؟

[parsavb]

این یکی رو تواینترنت پیدا کردم البته با vb6 بود که به دات نت تبدیلش کردم اشکالاتی داره که به بزرگی خودتون می بخشید امتحانش کنید بد نیست

[Sub Zero]

این تاپیک (http://barnamenevis.org/forum/showthread.php?t=68308) رو هم مطالعه کنید