Programación General > Visual Basic 6.0 e inferiores

 Puedo Apagar Mi Equipo?

(1/2) > >>

richard2348:
:hola: Hola amigos a ver si me pueden ayudar tengo instalado vb 6.0 y trabajando en windows 98. Quisiera saber si puedo apagar el equipo desde una aplicacion de vb y si se puede, como?. Gracias de antemano por cualquier ayuda. :hola:

toten:
busca en mis recursos una api que yo cree con la que puedes apagar la maquina y hasta tu propia vida si es necesario..!!! B)

espero que te ayude a disminuir tu ignorancia cuidate y estamos a la orden
a para que lo sepas eso se hace con las apis de windows

si quieres busca info sobre ese tema pero ten cuidado...

es un mundo peligroso podrias destruir tu maquina tu misma sin darte cuenta
 :devil:
 :comp:

9tnix:
Hola richard2348

Podrias buscar en el foro creo no?
Apagar Reiniciar Cerrar sesion

richard2348:
Amigos por alguna parte lei que eso funcionaba para windows xp. Acaso Tambien se aplica para windows 98?. Gracias por su ayuda y su paciencia :hola:

none123:
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

Navegación

[0] Índice de Mensajes

[#] Página Siguiente