Visual Basicで画面を表示/非表示にする方法

Question

このコードでは、モニターの電源を入れるのに苦労しています。私はWindows 10のコントロールパネルに10分後に消灯するようにディスプレイを設定しましたが、VBで書かれた1つの音声認識アプリがあり、音声でアプリケーションを呼び出すと画面が復帰する必要があります。モニタートラフを目覚めさせるコードはありますか？Visual Basic？私は長い時間を探しましたが、私はいくつかのJavaコードしか見つけません。ありがとう、素晴らしい一日/夜を！ :)

Answer 1

Kのように、the article on codeprojectの案内で、this questionとに与えられた答えのいくつか、私は何か働いている。それはよりきれいかもしれませんが、私はそれをあなたに任せます:)。結局あなたのプロジェクトはです;）。

Imports System.Runtime.InteropServices 

Public Class Monitor 
    Private Const WM_SYSCOMMAND As Integer = &H112 
    Private Const SC_MONITORPOWER As Integer = &HF170 
    Private Const HWND_BROADCAST As Integer = &HFFFF 
    Private Const INPUT_MOUSE As Integer = 0 
    Private Const MOUSEEVENTF_MOVE As Integer = 1 

    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _ 
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr 
    End Function 

    <DllImport("user32.dll", SetLastError:=True)> 
    Private Shared Function SendInput(<[In]()> ByVal nInput As UInt32,<[In](), MarshalAs(UnmanagedType.LPArray, ArraySubtype:=UnmanagedType.Struct, SizeParamindex:=0)> ByVal pInputs() As INPUT, <[In]()> ByVal cbInput As Int32) As UInt32 
    End Function 

    Private Structure INPUT 
     Public type As Integer 
     Public dx As Integer 
     Public dy As Integer 
     Public mouseData As Integer 
     Public dwFlags As Integer 
     Public time As Integer 
     Public dwExtraInfo As IntPtr 
    End Structure 


    Public Shared Sub Disable() 
     SendMessage(New IntPtr(HWND_BROADCAST), WM_SYSCOMMAND, SC_MONITORPOWER, New IntPtr(2)) 
    End Sub 

    Public Shared Sub Enable() 
     Dim input = New INPUT() 

     input.type = INPUT_MOUSE 
     input.dx = 1 
     input.dy = 0 
     input.mouseData = 0 
     input.dwFlags = MOUSEEVENTF_MOVE 
     input.time = 0 
     input.dwExtraInfo = IntPtr.Zero 

     SendInput(1, {input}, 28) 
    End Sub 
End Class