roman
20 de Enero del 2004

hola campeon... estpy haciendo un programa para controlar un cyber. y necesito saber alguna idea de como bloquear hasta los juegos como el counter. es decir q la corte de una sin vueltas ni q quede ninguna ventanita colgada..
bueno desde ya muchas gracias
feliz año nuevo
roman sampacho cordoba

Jordi
20 de Enero del 2004

Prueba con shell("c:windowssystem32shutdown -f")
dentro de un if cuando ocurra lo que quieras.... el contador a 0 etc...., con esto lo que haces es deslogar al usuario, si quires saber mas sobre shutdown ponte en el cmd o command y pon shutdown.

sdemingo
20 de Enero del 2004

Hola,

lo único que puedo añadir es que depende del SO el comando estará en c:windows, o c:winnt, en System o System32, o incluso puede tener otro nombre la carpeta si el usuario ha querido darle otro nombre....

Para saber donde tienes la carpeta de sistema hazlo así...

Dim fs as Object
Dim rutaSistema as String

Set fs = CreateObject("Scripting.FileSystemObject")
rutaSistema = fs.GetSpecialFolder(1)

y entonces ya puedes hacer:
Shell(rutaSistema & "shutdown -f")

Saludos
sdemingo