برنامه نويسي مانيتور در ویژوال بیسیک

اطلاعاتی در زمینه کد نویسی مربوط به دستکاری(خاموش و روشن کردن) مانیتور و قفل کردن دسک تاپ در ویژوال بیسیک می خواهم .
از دوستانی که در این زمینه تجربه دارند طلب یاری دارم.

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

کد:

---

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const MONITOR_ON = -1&
Private Const MONITOR_OFF = 2&
Private Const SC_MONITORPOWER = &HF170&
Private Const WM_SYSCOMMAND = &H112

Private Sub Command1_Click()
Do
Call SendMessage(Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_OFF)
Loop
End Sub

---

جالب بود
حالا پيغام كوتاه بود چرا قبول نميكنه

uhgd f,n :tongue: :tongue: :tongue: :tongue: :tongue: :tongue: :tongue: :tongue:
عالی بود

bad_boy_2007خوبي ارشيو تكوني مي كني عزيز

می تونید این کارم بکنید :

یه ماژوول بسازید (project==>add module) بعد داخلش بنویسید :

[PHP]Option Explicit

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

Private Const MONITOR_ON = -1&
Private Const MONITOR_LOWPOWER = 1&
Private Const MONITOR_OFF = 2&
Private Const SC_MONITORPOWER = &HF170&
Private Const WM_SYSCOMMAND = &H112

Public Function MonitorOff(Form As Form)

Call SendScreenMessage(Form.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_OFF)

End Function

Public Function MonitorOn(Form As Form)

Call SendScreenMessage(Form.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_ON)

End Function

Public Function MonitorPowerDown(Form As Form)

Call SendScreenMessage(Form.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_LOWPOWER)

End Function




[/PHP]

بعد میتونید با ساختن یه کاماند باتون و وارد نمودن این کد اونو خاموش کنید :

[PHP]Call MonitorOff(Form1)[/PHP]

;)

:biggrin: :biggrin: آرشیو تکونی :biggrin: :biggrin: