Sorry guys, i was used a BBCode code, but don't used a /code. Sorry too for a big code, next time i will give a link to the file. I'm new in TCL, never scripting in this language, but i thing the peace of code checking open proxyes is: # Not a valid host. if {[catch {set sock [socket -async $host 20...