So deaktivieren Sie einen monitor mit VB.NET code

Wie schalte ich einen monitor mit VB.NET code? OK, eigentlich fand ich die C# - Lösung. Aber ich brauche das VB.NET Lösung. Ich habe versucht ein online-C# VB.NET Konverter, aber der Konverter beschwert sich, dass es Fehler in ihm.

Wie kann der folgende C# - code übersetzt werden 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:

Ich die online-Entwickler-Fusion-Konverter.

  • Welche Fehler haben Sie?
  • Der Konverter wahrscheinlich beschwert sich, weil es gibt keine Klasse-Konstrukt in diesem code. Versuchen Sie das einwickeln alles nach den using-Anweisung nach der letzten Zeile in diese: class MonitorShutdown { ...code here }.
  • Beachten Sie, dass sowohl die C# - code und den übersetzten code-mäßig schrecklich. Ein hWnd sollte ein IntPtr, nicht ein int. Und das eine Magische Konstante (2) im code ist auch nicht so eine gute Idee.
  • Rudolph: ich weiß nicht, C# oder Win32-API. Wenn Sie die perfekte Antwort, dann tun Sie es bitte. Es wird mir helfen und alle zukünftigen Besucher.
  • versuchen Sie, out codechanger.com - entfernte ich die Kommentare im code und es perfekt umgesetzt;)
  • In Bezug auf die überprüfung der aktuellen monitor-Zustand, dies kann relevant sein stackoverflow.com/questions/203355/...

InformationsquelleAutor user774411 | 2011-06-03
  1. 16

    Versuchen, diese

    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
    InformationsquelleAutor Bala R
  2. 6

    Ja, die Erklärungen in der akzeptierten Antworten sind nicht korrekt. Zufällige Fehler möglich ist auf einem 64-bit-version von Windows, da werden die übergebenen Argumente haben die falsche Größe. Sie sollte wie folgt Aussehen:

    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

    Könnte man hinzufügen, ein prüfen auf den Rückgabewert von SendMessage(), sollte es wieder IntPtr.Null. Nicht so sicher, ob es sinnvoll ist, wird es ziemlich offensichtlich für den Benutzer, der den Befehl hat nicht funktioniert, für einige reason.

    • Ich verstehe, warum Sie geändert Me.Handle.ToInt32() zu Me.Handle. Aber ist es notwendig, cast/convert SC_MONITORPOWER und MonitorShutoff zu IntPtr?
    • Ja, die beiden letzten Argumente der SendMessage sind IntPtr, nicht Integer. Die Nachricht Konstanten sind eigentlich Integer. So dass eine Umwandlung erforderlich ist. Aus 4 bytes, 4 bytes in 32-bit-Modus, von 4 bytes, 8 bytes in 64-bit-Modus. CType() kümmert, gibt es keine CIntPtr () - Funktion. SendMessage ist einfach nicht sehr hübsch.
    • Nur eine Idee, die würden mit dem IntPtr - Konstruktor anstelle der expliziten Konvertierung etwas übersichtlicher? also New IntPtr(SC_MONITORPOWER) ich denke, die 3 weniger charachters (+1 oder so)
    • Gibt es eine Möglichkeit, zu wecken den monitor wieder?
    InformationsquelleAutor Hans Passant
  3. 0

    dieser funktioniert auf Windows 7 mit VB 2008.
    und keine sorgen über, drehen Sie den monitor wieder ein, denn dies ist genau wie bei "Bildschirm ausschalten" in den Energieoptionen.
    schaltet sich der monitor aus-und wieder einschalten, müssen Sie entweder drücken Sie eine beliebige Taste auf der Tastatur oder bewegen Sie Ihre Maus.

    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
    InformationsquelleAutor Starkternate
Schreibe einen Kommentar