Programación General > Visual Basic 6.0 e inferiores

 Ayuda De Codigo

(1/1)

crow7827:
Tengo el siguiente codigo executable que es utilizado para apagar un equipo:

Shell "rundll32.exe user.exe,ExitWindows"

pero el detalle es que no funciona en win xp

he pensado en utlizar el siguiente formato
Shell "rundll32.exe user.exe,shutdown"

Mucho les agradeceria si me ayudfaran con la duda

Cyclop:
uhmmm .... y esto funcionara?



--- Código: Text ---'In general sectionConst EWX_LOGOFF = 0Const EWX_SHUTDOWN = 1Const EWX_REBOOT = 2Const EWX_FORCE = 4Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongPrivate Sub Form_Load()    'KPD-Team 1998    'URL: http://www.allapi.net/    'E-Mail: KPDTeam@Allapi.net    msg = MsgBox("This program is going to reboot your computer. Press OK to continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title)    If msg = vbCancel Then End    'reboot the computer    ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)End Sub  

Salu2


Cyclop

crow7827:
probe tu codigo pero no funciona en sistemas operativos con Win Xp Pro, no si si fueras tan amable de proporcinarmelo de manera correcta.

De antemano muchas gracias
Saludos

arielb:
k tal amigo esto lo encontré hace un par de días y de pronto te sirva en lo k necesitas, saludos.

Hay una API llamada ExitWindowsEx que sirve para reiniciar o apagar la máquina. Lo que no sé es si andará con XP. Es cuestión de probarla.

Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long


Parámetros

uFlags Uno o mas de los siguentes indicadores que indican como apagar o reiniciar el ordenador.:

EWX_LOGOFF = 0 Cierra la sesión de forma segura, cerrando los programas.

EWX_SHUTDOWN = 1 Cierra el sistema de forma segura, cerrando todos los programas.

EWX_REBOOT = 2 Realiza un reinicio completo del ordenador.

EWX_FORCE = 4 Fuerza el cierre de las aplicaciones sin preguntarle al usuario si quiere cerrarlo.

EWX_POWEROFF = 8 Cierra el sistema y si es posible apaga el ordenador.

dwReserved Reservado para futuras versiones de Windows. Poner siempre a 0.

Esta información fué extraída de http://www.silared.com/usuarios/vbasic/api...itWindowsEx.htm

Navegación

[0] Índice de Mensajes