[حل شده] خاموشی کامپیوتر

[sunstar]

سلام علیکمآیا کدی هست که با اجرای آن بدون سئوال از کاربر، کلیه اطلاعات ذخیره و بلافاصله کامپیوتر خاموش گردد؟ آیا برای ریستارت کامپیوتر هم کدی وجود دارد؟

[amir_ts]

با سلام
این کدها رو امتحان کنید.

[LEFT]

Option Explicit


Declare Function ExitWindowsEx& Lib "user32" _
                                (ByVal uFlags&, ByVal wReserved&)
                                


Global Const EWX_LOGOFF = 0
Global Const EWX_SHUTDOWN = 1
Global Const EWX_REBOOT = 2
Global Const EWX_FORCE = 4




'*******************SHUT DOWN*********************
Sub TurnOffXP()


      ActiveWorkbook.Save
      Application.DisplayAlerts = False
      Application.Quit
     
      Shell "shutdown -s -t 02", vbHide
End Sub


'*********************REBOOT***********************
Sub RebootXP()


      ActiveWorkbook.Save
      Application.DisplayAlerts = False
      Application.Quit
   
    Shell "shutdown -r -t 02", vbHide
End Sub[/LEFT]

[sabertb]

با سلام
این کدها رو امتحان کنید.

[LEFT]

Option Explicit


Declare Function ExitWindowsEx& Lib "user32" _
                                (ByVal uFlags&, ByVal wReserved&)
                                


Global Const EWX_LOGOFF = 0
Global Const EWX_SHUTDOWN = 1
Global Const EWX_REBOOT = 2
Global Const EWX_FORCE = 4




'*******************SHUT DOWN*********************
Sub TurnOffXP()


      ActiveWorkbook.Save
      Application.DisplayAlerts = False
      Application.Quit
     
      Shell "shutdown -s -t 02", vbHide
End Sub


'*********************REBOOT***********************
Sub RebootXP()


      ActiveWorkbook.Save
      Application.DisplayAlerts = False
      Application.Quit
   
    Shell "shutdown -r -t 02", vbHide
End Sub
[/LEFT]

اگر بخواهیم مشروط کنیم چه ؟ مثلا سر ساعت مشخصی وقتی این فایل باز بود دستور Shut down اجرا بشود .

[amir_ts]

با سلام

[LEFT]
Sub SetTimer()
    DownTime = Now + TimeValue("00:10:00")
    Application.OnTime EarliestTime:=DownTime, _
      Procedure:="TurnOffXP", Schedule:=True
End Sub
[/LEFT]

با قرار دادن یک تایمر میتونیم در زمان مشخص از زمان اجرا فایل رو ذخیره و دستور Shut down رو اجرا کنیم.

[sunstar]

amir_ts جان ممنون ، بهترینی