Restart و ShutDown کردن سیستم در VB

سلام دوستان امروز می خواهم به سوال یکی از دوستان پاسخ دهم . یکی از دوستان پرسیده بود که چگونه می توان برنامه نوشت که بتوان سیستم را Restart و یا ShutDown کرد . خوب برای این کار کافیست که با API ها آشنایی داشته باشید , من در آموزش استفاده از Themes WinXp درباره API ها توضیحاتی دادم بد نیست که یه نگاه به اون داشته باشید . از دو تابع که در کتابخانه shell32.dll ویندوز موجود می باشد استفاده میکنیم . از تابع SHRestartSystemMB برای restart کردن و از تابع SHShutDownDialog برای shutDown کردن استفاده می شود . همچنین برای این برنامه دو ثابت تعریف کردم که در اولی عدد معادل برای restart و در دومی کد معادل برای ShutDown کردن قرار دارد .

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

'Define Const For Use of API
Const Shut_Down = 1
Const Win_Reboot= 4

'Declare API Concern to Windows Restart
Private Declare Function SHRestartSystemMB Lib "shell32" Alias "#59" (ByVal hOwner As Long, ByVal sExtraPrompt As String, ByVal uFlags As Long) As Long

'Declare API Concern to Windows Shut Down
Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As Long

Private Sub CmdRestart_Click()
SHRestartSystemMB Me.hwnd, vbNullString, Win_Reboot
End Sub
Private Sub CmdShutdown_Click()
SHShutDownDialog Shut_Down
End Sub