[Сеть, интернет] По IP узнать порт

[Ganibal95]

Всем привет
Как можно по IP(IP активен все норм) узнать какой он содержит порт?

Вот мой скрипт но баг, до 20 доходит(Если подставиш под переменную $i=20 он дойдет до 40) и сразу потом как метеор находит!

Func _Scan_PORT($IP)
	Local $Port = '-Port'
	Opt("TCPTimeout",1)
	TCPStartup()
	For $i=100 to 10000 Step 1
		$Port = TCPConnect($IP,$i)
		if $Port <> -1 Then
			TCPCloseSocket($Port)
			ExitLoop
		EndIf
	Next
	TCPShutdown()
	Return $Port
EndFunc

 

[Ganibal95]

Re: [Сеть, интернет] IP в Порт

Проблема решена, надо просто в начале цикла подставить: $i += 20


Добавлено:

Сообщение автоматически объединено: 9 Окт 2011

Но не точно выводится :(

Поиск решения продолжается

 

[CreatoR]

Re: [Сеть, интернет] IP в Порт

Предупреждение

За нарушение правил форума (пункт Б.5):

Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.

Как правильно называть темы

"[Сеть, интернет] IP в Порт" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, Администратор форума.

 

[Ganibal95]

Также жду помощи...

 

[Viktor1703]

Вот работает, но оч. медленно

Opt("TCPTimeout", 1)

TCPStartUp()

For $i = 100 To 9999
    If TCPConnect(@IPAddress2, $i) <> -1 Then
		ConsoleWrite($i & @CRLF)
	EndIf
Next

TCPShutdown()