Sleep and Turn Off Monitor

[Ninja-Assassin]

ســــــــلام
اگه میشه سورس sleep کردن و خاموش کردن مانیتور کامپیوتر رو برام بذارید ممنون میشم..

[meys34]

خاموش کردن مانیتور:



Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_SYSCOMMAND = &H112
Private Const SC_MONITORPOWER = &HF170&

Private Sub Command1_Click()
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 2&
End Sub






برای Sleep کردن : (Standby)


Private Declare Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Long, ByVal ForceCritical As Long, ByVal DisableWakeEvent As Long) As Long

Private Sub Command1_Click()
SetSuspendState False, False, False
End Sub


روش های دیگه هم داره...
ولی چون با API حال میکنم دیگه اونا رو نیاوردم... البته اون ها هم نهایتا از همین توابع استفاده می کنن...

[R2du-soft]

یه سوال
دوست عزیز شما این کدهارو چطوری میسازی؟ منظورم اینه که اینارو حفظ کردین؟!!!!
از کجا میشه فهمید برای مثلا خاموش کردن pc از کدوم API باید استفاده کرد!؟
مرسی

[Ninja-Assassin]

وایییییی مرسییییییی واقعا ممنون لطف کردین خیلی لازم داشتم بازم ممنون..

[meys34]

یه سوال
دوست عزیز شما این کدهارو چطوری میسازی؟ منظورم اینه که اینارو حفظ کردین؟!!!!
از کجا میشه فهمید برای مثلا خاموش کردن pc از کدوم API باید استفاده کرد!؟
مرسی

حق با شماست دوست من... طوری پست دادم انگار از خودم این کد ها رو در آوردم...
باید منبع ذکر میکردم...

پوزش...
تشکر از تذکرتون...

[setroyd]

api فقط حفظ کردنیه نه فهمیدنی البته خیلی از اینها از اسمشون پیداس ولی شما میتونی با جستجوی فارسی در google به منبع های خوبی برسی .