[Сеть, интернет] Динамическое обновление _FTP_FileRead

Case $SUMBIT
	GUICtrlSetData($STATUS, 'Ожидание...')
	GUICtrlSetColor($STATUS, 0x0000FF)
	$CHR = GUICtrlRead($CHR)
	$FILE = GUICtrlRead($FILE)
	$FILEOPEN = _FTP_FileOpen($hConnect, $FILE)
	$FILEREAD = _FTP_FileRead($FILEOPEN, 100000)
	$STR = BinaryToString($FILEREAD)
	$a = StringSplit($CHR, ',')
	For $i = 1 To $a[0]
	   If StringInStr($STR, $a[$i]) Then $LOG &= $a[$i] & ' найдено!' & @CRLF
	Next	
	GUICtrlSetData($STATUS, 'Соединено')
	GUICtrlSetColor($STATUS, 0x00FF00)
	TrayTip('', $LOG, 30)
	_FTP_FileClose($FILEOPEN)