"TCPTimeout" <- funktioniert nicht !

ich habe schon einiges gelesen ... irgendwer schrieb hier das TCPconnect unter den hacker§ fällt ... also wirklich. jedenfalls blieb in allen threads das problem das "TCPTimeout" nicht funktioniert offen... ich brauche es übrigens um zu schauen ob meine und dir gameserver meiner freunde noch online sind! ... der krams freezt mein ganzes script/tool gibt es doch eine möglichkeit den timout festzulegen ?
danke für die hilfe

EDIT: hier übrigens die funktion...

Func _checkport($hostname, $port)
Opt("TCPTimeout",100)
TCPStartup() ; TCP wird initialisiert
$ipornot = 0
$ipornot = StringRegExp($hostname,'^(\d+)\.(\d+)\.(\d+)\.(\d+)$',0 )
if $ipornot = 1 Then
;MsgBox(0,"not", $hostname)
Else
;MsgBox(0,"yes", $hostname)
$hostname = TCPNameToIP($hostname)
EndIf
global $socket = -1
$socket = TCPConnect($hostname, $port)
EndFunc