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

[lenovo]

با سلام.
امیدوارم که تکراری نباشه
از دوستان vb کار می خوام اگه کدی برای قفل کردن سیستم هم Ctrl+Alt+Del , هم دکمه Start و ... توی XP دارن ما رو شرمنده خودشون کنن.
در ضمن اگه DLL باشه خیلی بهتره چون واسه دات نت هم بدرد میخوره.
با آرزوی موفقیت

[اوبالیت به بو]

بيا حالا اين يكم سطحش پايين تره.
KeyBoard رو قفل مي كنه.

Function:

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


Dim block As Long
block = BlockInput(1)

[lenovo]

این کد رو برای قفل کردن سیستم کلاینت تو یک برنامه کلاینت سروری میخواستم که خوشبختانه حل شد .
برخورد بعضی ها خیلی جالب بود
اونم با اون کد

[.:KeihanCPU:.]

میتونی از طربق Notaskmanager توی رجیستری هم اینکارو بکنی و با زدن رمز دوباره به حالت اول بگردونی

[H4i0 ACP]

سلام
بهترین راه اینه که شما فایلهای Reg رو از اینترنت پیدا کنید و بعد اونهارو با API یا خود رجیستری ادیتور ( فراخونی) در رجیستری قرار بدید .
این کار ها برای نوشتن برنامه های امنیت شبکه و کافینت خوبه .