Visual Basic - Apagar ordenador
Códigos Visual Basic
Esta seria una de las formas de apagar el ordenador o computadora
Tutores.org
Mostrando Codigo - Visual Basic
CODIGO
// Codigo ofrecido por Tutores.org
- ' Declaraciones
- Private Const EWX_SHUTDOWN As Long = 1
- Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
- ' Codigo
- lngResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Apagar ordenador" href="http://www.tutores.org/codigo/1606/" target="_blank">Apagar ordenador</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Apagar ordenador" href="http://www.tutores.org/codigo/1606/" target="_blank">Apagar ordenador</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
TNS-Tinny
19-01-2009 18:08:18
3
5
No me funciona el codigo y lo copie tal cual esta.
Utilizo:
Visual Basic 6
Windows XP SP2
Utilizo:
Visual Basic 6
Windows XP SP2
Comentario usuario
TNS-Tinny
19-01-2009 18:08:18
3
5
Para ser mas especifico no marca error en la compilacion pero cuando doy click al boton no hace nada...
Comentario usuario
TNS-Tinny
19-01-2009 18:08:18
3
5
Miren hice esto:
Private Const EWX_LOGOFF As Long = 0
Private Const EWX_SHUTDOWN As Long = 1
Private Const EWX_REBOOT As Long = 2
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
Private Sub Command1_Click()
lngResult = ExitWindowsEx(EWX_LOGOFF, 0&)
End Sub
Private Sub Command2_Click()
lngResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
End Sub
Private Sub Command3_Click()
lngResult = ExitWindowsEx(EWX_REBOOT, 0&)
End Sub
Y solo funciona el que cierra la sesion
Por Favor necesito ayuda es para un proyecto GRACIAS
Private Const EWX_LOGOFF As Long = 0
Private Const EWX_SHUTDOWN As Long = 1
Private Const EWX_REBOOT As Long = 2
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
Private Sub Command1_Click()
lngResult = ExitWindowsEx(EWX_LOGOFF, 0&)
End Sub
Private Sub Command2_Click()
lngResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
End Sub
Private Sub Command3_Click()
lngResult = ExitWindowsEx(EWX_REBOOT, 0&)
End Sub
Y solo funciona el que cierra la sesion
Por Favor necesito ayuda es para un proyecto GRACIAS
INSERTAR COMENTARIO