Bien gente! Para apagar el Win 98 y XP haciendo doble clic desde un icono de acceso directo es sencillo ya q creamo el icono y donde dice destino ponemos "C:\WINDOWS\system32\shutdown.exe" (XP) o "C:\WINDOWS\RUNDLL32.EXE user.exe,ExitWindows" (98) pudiento agregar al final parametros como por ejemplo "C:\WINDOWS\system32\shutdown.exe" -s -t 8 (esto hace q demore 8 segundos en apagar la PC).
Ahora bien como hacerlo en VB???; pues la solucion es bastante sencilla lo unico q hacemos es llamar al 'valioso' (en este caso) programa shutdown.exe; ni mas ni menos.
Para los mas novatos aqui dejo el codigo de llamado a este programa desde un boton en el frame:
------------------------------------------------------------------------------------
Private Sub Comando1_Click()
On Error GoTo ErrCommand
Dim stAppName As String
'Para XP
stAppName = "C:\WINDOWS\system32\shutdown.exe"
'Para 98
stAppName = "C:\WINDOWS\RUNDLL32.EXE user.exe,ExitWindows"
'Dejar solo el stAppName = ... para el win ue querramos
Call Shell(stAppName, 1)
Exit Sub
ErrComand:
MsgBox Err.Description
End Sub
------------------------------------------------------------------------------------
Bien espero q les sirva y les sea util; no dejen de informar de cualquier inconveniente. Bye
