sábado, 21 de outubro de 2017
assinantes
   Assinatura Ativo Access


Não Assinantes
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dicas

Como disparar o protetor tela do Windows
Autor:  Marcelo Santos do Nascimento (marcelosn@ig.com.br)
Publicado:  29/05/2005
Visitas: 3456
 
De: 'Marcelosn - IG - SP' Enviado: Thu May 5 9:10
Para: Prioridade: Normal
Assunto: Dica 'disparar' protetor tela do Windows Tipo: Embeded HTML/Text

'Dica para ====== disparar protetor tela do Windows
'somente ativa o protetor padrão no caso deverá escolher o tipo de proteção previamente e usar em seu aplicativo
'
'Quando usar: Arquivos confidenciais, no sistema se ficar inativo por mais de 4 minutos, etc.....

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&
Public Url As String
Public Err As String


'Comando ao clicar no botão
Private Sub BtlComd_Click()
Dim result As Long
result = SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
End Sub

  « Voltar

 

Assine AtivoAccess
     CD Ativo Access = R$ 44,70

 

   Copyright © Ativo Access 2003 - 2017- Todos os direitos reservados   Política de Privacidade | Fale conosco