Как отключить монитор с помощью кода VB.NET

Как отключить монитор с помощью кода VB.NET? Хорошо, на самом деле я нашел решение С#. Но мне нужно решение VB.NET. Я пробовал онлайн-конвертер С# в VB.NET, но конвертер жалуется, что в нем есть ошибки.

Как можно перевести следующий код С# на VB.NET?

using System.Runtime.InteropServices; //to DllImport

public int WM_SYSCOMMAND = 0x0112;
public int SC_MONITORPOWER = 0xF170; //Using the system pre-defined MSDN constants that can be used by the SendMessage() function .

[DllImport("user32.dll")]
private static extern int SendMessage(int hWnd, int hMsg, int wParam, int lParam);
//To call a DLL function from C#, you must provide this declaration.

private void button1_Click(object sender, System.EventArgs e)
{
    SendMessage( this.Handle.ToInt32() , WM_SYSCOMMAND , SC_MONITORPOWER ,2 );//DLL function
}

UPDATE:

Я использую онлайновый разработчик Fusion converter.

Ответы

Ответ 1

Попробуйте это

Public WM_SYSCOMMAND As Integer = &H112
Public SC_MONITORPOWER As Integer = &Hf170

<DllImport("user32.dll")> _
Private Shared Function SendMessage(hWnd As Integer, hMsg As Integer, wParam As Integer, lParam As Integer) As Integer
End Function

Private Sub button1_Click(sender As Object, e As System.EventArgs)
    SendMessage(Me.Handle.ToInt32(), WM_SYSCOMMAND, SC_MONITORPOWER, 2)
End Sub

Ответ 2

Да, объявления в принятом ответе неверны. Случайный сбой возможен в 64-битной версии Windows, поскольку переданные аргументы имеют неправильный размер. Они должны выглядеть так:

Private Const WM_SYSCOMMAND As Integer = &H112
Private Const SC_MONITORPOWER As Integer = &HF170
Private Const MonitorToLowPower As Integer = 1
Private Const MonitorShutoff As Integer = 2

<DllImport("user32.dll")> _
Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal hMsg As Integer, _
                          ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    SendMessage(Me.Handle, WM_SYSCOMMAND, 
                CType(SC_MONITORPOWER, IntPtr), CType(MonitorShutoff, IntPtr))
End Sub

Вы можете добавить проверку возвращаемого значения SendMessage(), он должен вернуть IntPtr.Zero. Не уверен, что это полезно, для пользователя будет совершенно очевидно, что команда по какой-то причине не работает.

Ответ 3

этот работает в Windows 7 с использованием VB 2008. и не беспокойтесь о том, чтобы снова включить монитор, потому что это просто "выключить дисплей" в параметрах питания. монитор выключается и для его возврата вам нужно либо нажимать любую клавишу на клавиатуре, либо перемещать мышь.

Imports System.Runtime.InteropServices

Public Class Monitoroff

Public WM_SYSCOMMAND As Integer = &H112

Public SC_MONITORPOWER As Integer = &HF170

<DllImport("user32.dll", SetLastError:=True)> _
Private Shared Function SendMessage(ByVal hWnd As Integer, ByVal hMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    SendMessage(Me.Handle.ToInt32(), WM_SYSCOMMAND, SC_MONITORPOWER, 2)
End Sub
End Class