FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
Desactivar MSN
Necesito evitar que la gente de un aula de informática a unas horas determinadas abran el MSN. Mi idea inicial era matar el proceso, pero luego me di cuenta que si un usuario avispado cambia el nombre del ejecutable al msn lo puede lanzar ya que su nombre de proceso cambia.
He pensado en detectar cuando hay actividad por el puerto del msn (1863) y cerrarlo, pero segun he visto, no es posible cerrar puertos con W2000/XP. Acepto ideas porque esto me esta volviendo loco!!!. Gracias. |
#2
|
||||
|
||||
Puedes la "MessengerAPI", existe un objeto Messenger que tiene un evento OnSignIn y tienes un método SignOut!...
Si quieres te puedo pasar código de algo que hice, pero en VB :S Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
Es que me gustaria que fuera algo genérico. es decir, tener la posibilidad tambien de quitar yahoo, etc...
De todas formas gracias. Sigo buscando alguna alternativa. |
#4
|
||||
|
||||
Cada vez que reinstalo una pc con Windows2000 o XP Pro, una de las primeras cosas que hago es habilitar la política de grupo para impedir la ejecución del messenger:
Run -> gpedit.msc -> configuración de usuario -> plantillas administrativas -> Windows Messenger -> No permitir que se ejecute Windows Messenger. // Saludos |
#5
|
|||
|
|||
roman con tu propuesta, bien me lo podria currar para saber en que llave de registro esta situado y desactivarlo. Pero para quitar por ejemplo el yahoo ¿como seria? ya que no me aperece
Gracias por tu aportación. Saludos |
#6
|
|||
|
|||
solucion
Al final di con la solución :
function EnumProcess(hHwnd: HWND;lParam : integer): boolean; stdcall; var pPid : DWORD; title, className : string; i:integer; name:string; begin if(hHwnd=NULL) then begin result := false; end else begin GetWindowThreadProcessId(hHwnd,pPid); SetLength(className, 255); SetLength(className, GetClassName(hHwnd, PChar(className), Length(className))); SetLength(title, 255); SetLength(title, GetWindowText(hHwnd, PChar(title), Length(title))); // ProcessForm.ProcessListBox.Items.Add('Class Name = ' + className + '; Title = ' + title + '; HWND = ' + IntToStr(hHwnd) + '; Pid = ' + IntToStr(pPid)); if ((copy(title,1,3)='MSN') or (copy(title,1,5)='Yahoo')) then begin PostMessage(hHwnd, WM_QUIT, 0, 0); end;} result := true; end; end; procedure matar_procesos; begin EnumWindows(@EnumProcess,0); end; |
#7
|
||||
|
||||
Cuidado!, que si algun alumno te usa el web messenger ya puede chatear sin problemas...
Última edición por marceloalegre fecha: 26-12-2005 a las 17:22:16. |
|
|
|