Programación General > Visual Basic 6.0 e inferiores

 Apagar Equipo

(1/2) > >>

arrebiato:
:ph34r: hola a todos, el problema es que tengo que apagar remotamente, un equipo q funciona con windows 98 desde mi aplicacion.

si pueden ayudarme se los agradesco............ :rolleyes:

tyron:
Holaa, a ver si esto te puede servir:

En un modulo:

--- Código: Text ---Option Explicit        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        Public Declare Function AbortSystemShutdown Lib "advapi32.dll" Alias       "AbortSystemShutdownA" (ByVal lpMachineName As String) As Long  

En un formulario:

--- Código: Text ---  'Crea un formulario con dos botones       Private Sub Command1_Click()           'Inicia el apagado de la maquina llamada MYPC con un mensaje de aviso,tardará           '30 seg en apagarse,cerraras las aplicaciones abiertas y reiniciara la maquina.           InitiateSystemShutdown "\\MYPC", "The system is Shutting Down", 30, True, True       End Sub        Private Sub Command2_Click()           'Si antes de los 30 seg, este botón es pulsado, el apagado se detendrá           AbortSystemShutdown "\\MYPC"       End Sub 

arrebiato:
B) Sorry man is not woking ........Uso el codigo lo incluyo en los modulos de mi aplicacion y no funciona...............help me please

tyron:
Hola, por ir descartando problemas....
Has cambiado 'MYPC' por el nombre del pc ke kieres apagar?
Un saludo.

arrebiato:
:blink: por supuesto que si ....pero sinebargo no funcionó...... :scream:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente