| Pregunta: | 21832 - ACTIVA/DESACTIVAR EL PROTECTOR DE PANTALLA EN VB6 (WINDOWS9X |
| Autor: | jesus diego hernandez canizalez |
| como accesar a la dll del protector de pantalla y poder activarlo y desactivarlo por medio de visualbasic en windows 95,98 รณ 2000 | |
| Respuesta: | KAkunI o |
| es facil solo debes pasarle los parametros necesarios a una funcion de la Api
copia este codigo en un formulario con un boton esto en el area de declaraciones *********** ' declaraciones para activar el protector de pantalla 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 comWM_SYSCOMMAND = &H112& Const cSC_SCREENSAVE = &HF140& ************* ************* y esto obviamente en el evento click del boton Private Sub Command1_Click() Dim Resultado As Long Resultado = SendMessage(Me.hwnd, comWM_SYSCOMMAND, cSC_SCREENSAVE, 0&) End Sub presiona el boton y listo!!! .....KAkunI...... | |