روش خاموش كردن كامپيوتر در VB

[Amin_vb]

با استفاده از اين كد مي‌توانيد كامپيوتر را خاموش نماييد.
ابتدا بايد كد زير را در يك ماژول وارد نماييد

Private Const EWX_SHUTDOWN As Long = 1
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long

سپس كد زير را وارد كنيد تا كامپيوتر خاموش شود.

lngResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)

 

[farsinuke]

فكر كنم اين كار هم بد نباشه

result = shell("shutdown -s -t 0",vbHide)

 

[Amin_vb]

درسته

سلام دوست عزير كار شما نيز درست است
ولي هدف من استفاده از api ها بود
البته api ها بسيار اطمينان بالاتري دارند
در هر صورت متشكر از نظرتان

 

[saman_sweden]

سلام

خاموش کردن کامپیوتر ازطریق یک برنامه دیگر کلا خوب نیست چون شما باید API مربوط به تمام قسمتهای فعال در رجیستری را بنویسید و این کار شما شباهتی به ساختن برنامه های ویروس هست و توضیح مختصر در مورد یک کد کوچک که آقایی بنام farsiNuke نوشته بجای VBHIDE بهتره VBEND بنویسی به این صورت

result = shell("shutdown -s -t 0",vbEnd

http://members.lycos.co.uk/negaresh/farsi.html

سامان

امروز: سه شنبه 30 ارديبهشت 1382