ATIVAR PROTECAO DE TELA
Como faço para ativar proteção de tela do windows preciso de um codigo. Alguem consegue me ajudar?
[ô]----- COLOQUE EM GENERAL DECLARATIONS --------------------------------------------------------------------
Private Declare Function SendMessage Lib [Ô]user32[Ô] Alias [Ô]SendMessageA[Ô] (ByVal hWnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const WM_SYSCOMMAND = &H112&
Const SC_SCREENSAVE = &HF140&
Dim NumErro As Integer
[ô]-------------------------------------------------------------------------
Em um botao coloque este codigo
Dim result As Long
result = SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
Private Declare Function SendMessage Lib [Ô]user32[Ô] Alias [Ô]SendMessageA[Ô] (ByVal hWnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const WM_SYSCOMMAND = &H112&
Const SC_SCREENSAVE = &HF140&
Dim NumErro As Integer
[ô]-------------------------------------------------------------------------
Em um botao coloque este codigo
Dim result As Long
result = SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
Para mim da erro no hWnd ele não reconhece a declaração. Eu uso o VB 2008 com Windows 7. Teria alguma outra forma ?
Faça seu login para responder