يه سري كد ميخاستم.

بچه من براي كارايه زير كد مي خام كسي هست كمكم كنه؟
1-براي ريستارت كردن سيستم
2-براي هيدن كردن فرم
:blush:
3-براي قفل كردن صفحه كيليد

براي هيدن
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
براي ريستارت
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اين دو تاي اخر api هاي ساده هست اگه يك كتاب api بخري بهت كمك ميكنه
اگر يه سرچ هم تو تاپيك ها ميكردي بود و ديگه تاپيك نمي خواست
موفق باشي

بابا ايول دستت درد نكنه

vorojax جان اين كد يه اشكال كوچيك داره. ببين ميتوني پيدا و رفعش كني.

کد:

---

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

Private Sub Form_Load()
    BlockInput True
End Sub

---

رفتم ببينم مشكل كجاست :biggrin: :biggrin: :biggrin: (الكي)

نقل قول:

---

رفتم ببينم مشكل كجاست (الكي)

---

فكر كنم كارت به Reset كشيد.

نه بابا رست چيه با كنترل الت دليت حل شد
كدا واسه ريستارتم جواب نداد رسيتارت نميشه اگه امكان يكي ديگه بگيد.
(پيمان جان من هنوز منتظرم تو اون يكي تايپيك جوابمو بدي)

خوب پس اشكال كد رو پيدا كردي ديگه. حالا راه بر طرف كردنش رو هم بگو.
اين كد هم براي Reboot و logoff و ShutDown و ...

کد:

---

Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Const EWX_POWEROFF = 8
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Command1_Click()
    If optLOGOFF.Value = True Then
        ExitWindowsEx EWX_LOGOFF, 0
    Else
        If optSHUTDOWN = True Then
            ExitWindowsEx EWX_SHUTDOWN, 0
        Else
            If optREBOOT = True Then
                ExitWindowsEx EWX_REBOOT, 0
            Else
                If optFORCE = True Then
                    ExitWindowsEx EWX_FORCE, 0
                Else
                    If optPOWEROFF = True Then
                        ExitWindowsEx EWX_POWEROFF, 0
                    End If
                End If
            End If
        End If
    End If
End Sub

---

دستت درد نکنه ایشالا عروسیت

براي لاگ آف و ريست و ... كه فهميدي بايد چي كار كني. 4 تا آپشن بذار با اون اسم هايي كه جلو if ها هست. بعد هر كدوم رو انتخاب كني و كليد رو فشار بدي اتفاق مربوطه ميفته.
موس و كيبورد قفل كردن هم با همون كدي كه گذاشتم امكان پذيره. فقط اشكالش اينه كه با زدن alt + ctrl + delete قفل باز ميشه. راه حلش اينه كه دستور رو بذاري تو يه تايمر. هر 1 ثانيه اجرا شه.

ok دمت گرم