elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Ayuda.Auto guardar datos en txt antes de que se apague windows
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda.Auto guardar datos en txt antes de que se apague windows  (Leído 6,010 veces)
iubens

Desconectado Desconectado

Mensajes: 17


Ver Perfil
Re: Ayuda.Auto guardar datos en txt antes de que se apague windows
« Respuesta #10 en: 21 Diciembre 2010, 23:35 pm »

cuando copio el codigo en VB3, me dice que: "expected parameter en las lineas:           ByVal uMsg As Long, _
                    ByVal wParam As Long, _
                    ByVal lParam As Long) As Long

señalando los guines bajos _

que hago?

No se que pasa con el codigo que postee.

con el msgbox funciona perfectamente, detiene el reinicio. Pero si intento que ejecute mas codigo no funciona y se reinicia. alguien save que es lo que puede estar pasando?.

Esto funciona perfectamente.
Código:
Function WindowProc(ByVal Hwnd As Long, _
                    ByVal uMsg As Long, _
                    ByVal wParam As Long, _
                    ByVal lParam As Long) As Long

    ' Mensaje de cierre de sesión o de sistema
    If uMsg = WM_QUERYENDSESSION Then
        ' el valor WM_CANCELMODE anula el cierre
        WindowProc = CallWindowProc(lpPrevWndProc, Hwnd, WM_CANCELMODE, wParam, wParam)
           

MsgBox "Se intentó apagar Windows", vbInformation ----->Se ejecuta despues de detener el apagado
           

' sale
            Exit Function
    End If
    ' continua
    WindowProc = CallWindowProc(lpPrevWndProc, Hwnd, uMsg, wParam, lParam)

Pero aki no me detiene el apagado.
Código:
Function WindowProc(ByVal Hwnd As Long, _
                    ByVal uMsg As Long, _
                    ByVal wParam As Long, _
                    ByVal lParam As Long) As Long

    ' Mensaje de cierre de sesión o de sistema
    If uMsg = WM_QUERYENDSESSION Then
        ' el valor WM_CANCELMODE anula el cierre
        WindowProc = CallWindowProc(lpPrevWndProc, Hwnd, WM_CANCELMODE, wParam, wParam)
           

call myfunction ---------->>> ya no detiene el apagado
           

' sale
            Exit Function
    End If
    ' continua
    WindowProc = CallWindowProc(lpPrevWndProc, Hwnd, uMsg, wParam, lParam)


En línea

79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
[OFF TOPIC]
« Respuesta #11 en: 22 Diciembre 2010, 19:43 pm »

[OFF TOPIC]
Lei mal perdon.


« Última modificación: 22 Diciembre 2010, 19:48 pm por 79137913 » En línea

"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*
Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Topic ASM « 1 2 »
Sugerencias y dudas sobre el Foro
eCORE.GEDZAC 12 5,361 Último mensaje 14 Julio 2008, 02:24 am
por sirdarckcat
no entiendo topic fuera de sus limites?
Foro Libre
jamescua 1 1,576 Último mensaje 21 Diciembre 2011, 02:10 am
por jamescua
El Rey, de nuevo Trending Topic mundial
Noticias
wolfbcn 0 1,525 Último mensaje 18 Abril 2012, 17:42 pm
por wolfbcn
(OFF-TOPIC) ¿Hay mosquitos de 4-5 cm de tamaño? « 1 2 »
Foro Libre
Eleкtro 14 6,827 Último mensaje 14 Agosto 2018, 03:27 am
por Serapis
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines