Cierra Ventanas un Ejemplito de control parental x novatos

[BasicOs]

para quien no quiera que abran ciertas páginas o que ejecuten algunos programas en su pc.

Solo cambia el nombre de inforchat o chat por el de las ventanas indeseadas, o sea las letras que estan arriba a la izquierda (titulo de ventana).

Código: Seleccionar todo

Opt("WinTitleMatchMode", 2)
HotKeySet("!f", "fin") ; con alt y f salimos del programa

cierraventanas("inforchat","chat")

Func  cierraventanas($ventana1,$ventana2)
While 1
 	If WinExists($ventana1) Then WinClose($ventana1)
	If WinExists($ventana2) Then WinClose($ventana2)
        sleep(500)
endif

func fin()
exit
endif