Visual Basic - jak przełączyć monitor w stan czuwania?

Question

Witam! Czy jest jakies polecenie za pomocą którego można wyłączyć monitor (przełączyc go w stan czuwania) ? Pozdrawiam, Bartek

sivex · Accepted Answer

To powinno byc tak ale nie sprawdzilem.

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

    Const WM_SYSCOMMAND = &H112
    Const SC_MONITORPOWER= &HF170

komendy ktore potrzebujesz:

SendMessage(Form1.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2&) 'Wylacz

SendMessage(Form1.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 1&) ' StandBY

SendMessage(Form1.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1&) 'Wlacz

pozdr

sivex · Accepted Answer

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

Const WM_SYSCOMMAND = &H112
Const SC_MONITORPOWER = &HF170

Private Sub Form_Load()

SendMessage Form1.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2& 'Wylacz
End Sub

Kszol · Accepted Answer

Form1.hwnd musisz zmienic na nazwe klasy okna swojej aplikacji

sivex · Accepted Answer

Dokladnie nazwa formy to Form1. Chyba ze wpiszesz Me.hwnd Oczywiscie deklaracja api to jest jeden wiersz znakow a nie dwa jak pokazuje na elektrodzie pozdr.

Kszol · Answer

Musisz wyslac komunikat WM_SYSCOMMAND do okna z wParam SC_MONITORPOWER i lParam z: 0 - aby wyłączyć monitor 1 - aby go włączyć z powrotem

Bartek_Wosik · Answer

Czy mozesz mi napisac jak powinno wyglądać takie polecenie?

Kszol · Answer

Pisze w Delphi ale to jest standardowa funkcja API więc przeksztalc sobie to na wasza skladnie: SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);

Bartek_Wosik · Answer

Coś mi to zbytnio nie działa. sivex mozesz to sprawdzić? Jesli mogę Cie prosić to podeślij mi jakis przykład zastosowania takiej funkcji. wosik(_at_)op.pl lub umieść to na forum Pozdrawiam

Bartek_Wosik · Answer

Zrobiłem to tak:

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 

Const WM_SYSCOMMAND = &H112 
Const SC_MONITORPOWER = &HF170 


Private Sub Command1_Click()

SendMessage Form1.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2& 'Wylacz 
End Sub

i nie działa, spróbowałem jeszcze zmienic na:

Private Sub Command1_Click()

SendMessage Command1.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2& 'Wylacz 
End Sub

ale to tez nie zadziałało. Mam Windowsa XP Home, czy dzialanie tego programiku jest zależne od systemu?

Pozdrawiam

Bartek_Wosik · Answer

Wielkie dzieki za pomoc. Pozdrawiam wszystkich Forumowiczów. Temat uważam za zamknięty.

Visual Basic - jak przełączyć monitor w stan czuwania?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Podsumowanie tematu