20/02/2004, 10:00
|
 | | | Fecha de Ingreso: junio-2003
Mensajes: 875
Antigüedad: 20 años, 11 meses Puntos: 5 | |
| yo te recomiendo que uses algo asi
primero tienes que definir esto:
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
luego al server le das este code para que reciba instrucciones y listo....
select case orden
case congelar_pc:
DoEvents
'blokea el teclado y el mouse
BlockInput True
'espero 10 seg para desblokearlo
Sleep 10000
'desblokea ambos
BlockInput False
end select
espero haberte ayudado..
salu2
__________________ La mejor manera de aprender es por medio de un aprendizaje significativo.... http://www.cocert.cl |