07/02/2004, 11:38
|
| | | Fecha de Ingreso: diciembre-2003
Mensajes: 288
Antigüedad: 20 años, 4 meses Puntos: 0 | |
| Reiniciar ordenador
Estoy haciendo una aplicacion la cual debe reinciar el ordenador en win XP, he utiliazado esto pero no funciona, alguien podria hecharme una mano???
Dim i As String
i = ws.LocalIP
i = "\\" & i
Call InitiateSystemShutdown(i, "Debe cerrar todos los programas", 30, True, True)
y en su correspondiente modulo sta la api:
Public Declare Function InitiateSystemShutdown Lib "advapi32.dll" Alias "InitiateSystemShutdownA" (ByVal lpMachineName As String, ByVal lpMessage As String, ByVal dwTimeout As Long, ByVal bForceAppsClosed As Long, ByVal bRebootAfterShutdown As Long) As Long 'APAGAR PC |