Vb.net SendMessage关闭监视器使某些系统在vb中休眠

我一直停留在一个地方，我必须关闭显示器，在后台，我的所有进程都应该正常工作，比如只关闭显示器，但cpu等应该正常工作。实际上，我的后端发送screenoFF命令，相应地，我发送一个“SendMessage”命令关闭显示器，它在我的笔记本电脑上工作正常，但在生产端系统进入睡眠模式。 如果有人能帮忙，我将不胜感激。谢谢

Private Const WM_SYSCOMMAND As Integer = &H112
Private Const SC_MONITORPOWER As Integer = &HF170

<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

SendMessage(Me.Handle, WM_SYSCOMMAND, CType(SC_MONITORPOWER, IntPtr), CType(2, IntPtr))

Private Const WM_SYSCOMMAND作为整数=&H112
专用常量SC_监视器电源为整数=&HF170
私有共享函数SendMessage（ByVal hWnd作为IntPtr，ByVal hMsg作为整数，
ByVal wParam作为IntPtr，ByVal lParam作为IntPtr）作为IntPtr
端函数
SendMessage（Me.Handle、WM_SYSCOMMAND、CType（SC_MONITORPOWER、IntPtr）、CType（2、IntPtr））

尝试发布的变体。基本上，我的代码关闭了监视器，我正在运行一个计时器，该计时器应在1分钟的间隔内更新数据库。当我的显示器打开时，这个定时器工作，但当它关闭时，数据库也不会更新。