كيف اعمل شت داون واعادة التشغيل!

x=Shell "shutdown -s -f -t 60"

يقوم هذا الكود بغلق او اعدة تشغيل الجهاز

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

الشفرة 'cmdRestart اصنع زر تحكم باسم
Private Sub cmdRestart_Click()
'Restart Windows (works on Windows 95/NT)
ExitWindowsEx EWX_LOGOFF, 0
End sub

أو استخدام هذا الكود للغلق

Private Const EWX_SHUTDOWN As Long = 1

Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long 

الشفرة 'cmdRestart اصنع زر تحكم باسم
Private Sub cmdRestart_Click()
lngResult = ExitWindowsEx(EWX_SHUTDOWN, 0&) 
End Sub

ويقوم هذا الكود أصلا بإغلاق الجهاز ، كما أنه يقوم بنفس العمل مع ShourtCut

Dim Shut 
Shut = shell("C:\WIN98SE\RUNDLL32.EXE user.exe,exitwindows")

حيث الرقم = الوقت

شكرا اخواني

شكرا لكم جميعا

ويقوم الكود التالي أيضا بنفس العمل السابق

1.لإعادة تشغيل الكمبيوتر

shell "RUNDLL.EXE user.exe,exitwindowsexec"

2.لإطفاء الكمبيوتر نهائياً

shell "RUNDLL.EXE user.exe,exitwindows"

3. لتغيير المستخدم (لوغ اوف)

"RUNDLL.EXE shell32.dll,SHExitWindowsEx 0"