SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: richard2348 en Lunes 16 de Mayo de 2005, 15:16
-
: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:
-
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:
-
Hola richard2348
Podrias buscar en el foro creo no?
Apagar Reiniciar Cerrar sesion (http://foros.solocodigo.com/index.php?showtopic=3037&hl=apagar)
-
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:
-
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
-
:hola: muchas grcias none123 en un rato lo pruebo. Tu ayuda es muy valiosa otra vez muchas gracias :hola:
-
:hola: Regracias!!! none123 probe el codigo funciona perfecto te pasaste!!!
:kicking:
-
De nada B) , me alegro que te alla servido. Bye :hola: