خاموش کردن کامپیوتر با ویژوال بیسیک

علم و دانش

امروز قصد دارم نحوه خاموش کردن کامپیوتر رو بوسیله ویژوال بیسیک 6 آموزش بدم بریم سراغ آموزش

در ویژوال بیسیک یک دستور به نام Shell وجود داره که میتونه یک برنامه رو با دریافت کردن آدرس برنامه اجرا کنه (همانند Run ) در ویندوز و یکی از بهترین کارهایی که این تابع می تونه انجام بده اجرای برنامه هایی که می توان با تایپ مستقیم در Run ویندوز اجرا کرد مانند Calc و Notepad و Regedit و Log Off و ... هستش

من تو این آموزش می خوام از این روش برای خاموش کردن کامپیوتر استفاده کنم البته باید متذکر بشم که راههای دیگری همچون توابع API ای مانند ShellExecute و ExitWindowsEx و... برای خاموش کردن کامپیوتر وجود داره که من راحتترین روش رو برای این کار آموزش می دم

برای شروع کار یه پروژه استاندارد ویندوز در ویژوال بیسیک باز کنین و سه دکمه فرمان (Command Button ) روی فرم رسم کنید و مقدار Caption اونها رو به ترتیب با Log Off و Shut Down و Restart مقدار دهی کنید البته برای بهتر جلوه دادن برنامه می تونید از تصویر به جای دکمه استفاده کنید که در مثال این برنامه از تصویر استفاده کردم

یه کم در مورد دستور Shell توضیح می دم:

شکل کلی این دستور به شکل زیر است:

Shell (pathname,[Windows Style]) ‘Shell Type

همون طور که ملاحضه می فرمایید این تابع دارای دو آرگومان بسیار مهم هستش

Pathname:مسیر برنامهکه نوشتن اون در این تابع الزامی است و از نوع رشته ای هستش و باید در داخل دو کوتیشن محصور بشه ، همون طور که قبلا گفته بودم می تونین از دستورات Run ویندوز به جای آدرس دهی کامل در برخی برنامه ها استفاده کنین

:Windows Style همون طور که از نامش پیداست نوع باز شدن پنجره برنامه رو معین می کنه که نوشتنش الزامی نیست و در صورت ننوشتن پنجره در حالت عادی باز می شه این آرگومان می تونه با یکی از ثابت های زیر مقدار دهی بشه

VbNormalFocus

VbMaximized

VbMinimized

VbHidden

برای خاموش کردن کامپیوتر می تونیم دستور زیر رو در Run ویندوز تایپ کنیم

Shutdown –s –f –t 0

اگه در دستور بالا به جای –s از –r استفاده کنیم سیستم ریستارت می شه و اگه از –L استفاده کنیم سیستم Log Off می شه تقریبا همه چی تموم شده می تونین برای خاموش کردن کامپیوتر از دستور

Shell(“shutdown –s –f –t 0”) ‘Turn Off Windows

و از دستور

Shell(“shutdown –r –f –t 0”) ‘Reboot Windows

برای ریستارت کامپیوتر و همچنین از دستور

Shell(“shutdown –l –f –t 0”) ‘Log off Windows

برای Log Off کردن کامپیوتر می توانید استفاده کنید

کد کامل:

Private sub Cmdlogoff_Click()

Shell(“shutdown –l –f –t 0”,vbHidden) ‘Log Off Windows

End sub

Private sub CmdShutdown_Click()

Shell(“shutdown –s –f –t 0”,vbHidden) ‘Turn Off Computer