ممكن كود ايقاف واعادة تشغيل الكمبيوتر

املك مود اعادة التشغيل و هي هكذا:

Private Sub Command1_Click()
Call Shell("Rundll32.exe user,exitwindows")
End Sub

اما عن الايقاف فللأسف لا اعرف..

شكرا ولكن اين الكود الثاني

للرفع

;)

اتمنى ما الاقي فيه اخطاء

لقد تمكنت من ايجاد كود للاغلاق و ها هي:

Private Sub Command1_Click()
WinDir$ = Environ$("windir")
KillWin$ = WinDir$ + "Rundll.exe User.exe,ExitWindows"
Shell KillWin$
End Sub

السلام عليكم

استخدم الداله ExitWindowsEx أو الداله InitiateSystemShutdown . ابحث في google ستجد عشرات الامثله على استخدامهما او راجع المواضيع القديمه في المنتدى .

ان كنت من مستخدمي NT/2K/XP يمكنك أيضا استخدام داله( التسميه الصحيحه لها هي system service ) من النوع native api تدعى ZwShutdownSystem او NtShutdownSystem .

(f)

CIONO1

السلام عليكم يا اخوان

اولا شكرا للاخ بيبوا

وبالنسبة للاخ tmaa

ياريت تساعدني اكثر انا لسه مبتدىء بس في بالي برنامج صغير

ياريت تعطيني الكود منيح انا بستخدم ويندوز xp

بتمنى ماتقصر معي الله يوفقك