Vota por nosotros en el ranking web que participamos

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Octubre 07, 2008, 02:31:34
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Codigos VB6 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Codigos VB6  (Leído 920 veces)
DrakoX
Habitual
*****
Desconectado Desconectado

Mensajes: 365


favor@depreguntar.com
Ver Perfil
« en: Agosto 29, 2005, 07:14:53 »
En línea
DrakoX
Habitual
*****
Desconectado Desconectado

Mensajes: 365


favor@depreguntar.com
Ver Perfil
« Respuesta #1 en: Agosto 30, 2005, 06:59:51 »
Y?Huh Nadie tiene una pagina de estas???
En línea
On[C]raF
^[Maestro De Los VagoS]^
Miembro
*****
Desconectado Desconectado

Mensajes: 40


WindowS Te Da Las VentaS , LinuX Te Da La Casa ;)

Legendaryfelipe@msn.com
Ver Perfil Email
« Respuesta #2 en: Agosto 30, 2005, 04:56:07 »
...Pues No Tengo...Creo...El De Apagar El Pc Es muy Facil Via Comando SHELL Tongue
En línea
Firma No Disponible ^^
Prosutch
Visitante
« Respuesta #3 en: Agosto 30, 2005, 04:57:38 »
Shell (shutdown -r -t 10)

ByTes!
En línea
Xpeed
Visitante
« Respuesta #4 en: Agosto 30, 2005, 07:31:52 »
Para apagar reiniciar y suspender en win lo puedes hacer correctamente de esta manera


Private Declare Function ExitWindowsEx& Lib "user32" (ByVal _
uFlags&, ByVal dwReserved&)

Private Sub Command1_Click()
Dim i as integer
i = ExitWindowsEx(1, 0&) 'Apaga el equipo
End Sub

Private Sub Command2_Click()
Dim i as integer
i = ExitWindowsEx(0, 0&) 'Reinicia Windows con nuevo usuario
End Sub

Private Sub Command3_Click()
Dim i as integer
i = ExitWindowsEx(2, 0&) 'Reinicia el Sistema
End Sub


un saludo.
En línea
DrakoX
Habitual
*****
Desconectado Desconectado

Mensajes: 365


favor@depreguntar.com
Ver Perfil
« Respuesta #5 en: Agosto 30, 2005, 07:55:00 »
En línea
Prosutch
Visitante
« Respuesta #6 en: Agosto 30, 2005, 08:24:52 »
Shell("aca orden de DOS")
En línea
DrakoX
Habitual
*****
Desconectado Desconectado

Mensajes: 365


favor@depreguntar.com
Ver Perfil
« Respuesta #7 en: Agosto 30, 2005, 09:00:47 »
Pueden ser estas ordenes en mas de una linea???
osea como si fuese asi:

algo algo algo
algo algo algo

me explico??, se puedo o no?
En línea
Prosutch
Visitante
« Respuesta #8 en: Agosto 31, 2005, 10:50:58 »
En realidad, nunca lo he probado.Intenta, prueba, y luego dinos.
En línea
DrakoX
Habitual
*****
Desconectado Desconectado

Mensajes: 365


favor@depreguntar.com
Ver Perfil
« Respuesta #9 en: ſeptiembre 03, 2005, 06:43:10 »
En línea
DrakoX
Habitual
*****
Desconectado Desconectado

Mensajes: 365


favor@depreguntar.com
Ver Perfil
« Respuesta #10 en: ſeptiembre 04, 2005, 07:52:32 »
En línea
Prosutch
Visitante
« Respuesta #11 en: ſeptiembre 04, 2005, 08:27:52 »
No se, usa algo mas "extenso" y crea bat's desde vb y luego llamalos.Me explico???

algo asi

open "C:\ooo.bat" for append as #1
...
close #1

y dsp

Shell("c:\ooo.bat")

y listo, ocupa mas mmoria, pero es eficaz!
En línea
Crass
Miembro
*****
Desconectado Desconectado

Mensajes: 57


Ver Perfil
« Respuesta #12 en: ſeptiembre 28, 2005, 01:02:34 »
pero seria mejor poner
open "C:\ooo.bat" for output as #1
ke en lugar de append
En línea
Prosutch
Visitante
« Respuesta #13 en: ſeptiembre 28, 2005, 01:43:52 »
Dime por q seria mejor.
En línea
Crass
Miembro
*****
Desconectado Desconectado

Mensajes: 57


Ver Perfil
« Respuesta #14 en: ſeptiembre 30, 2005, 11:50:19 »
En línea
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Codigos VB6 « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.6 | SMF © 2006-2007, Simple Machines LLC