Что нового

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

Ganibal95

GreenBytes
Сообщения
876
Репутация
239
Всем привет :smile:
Как можно по 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

Ganibal95

GreenBytes
Сообщения
876
Репутация
239
Re: [Сеть, интернет] IP в Порт

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


Добавлено:
Сообщение автоматически объединено:

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

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

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 473
Репутация
2 403
Re: [Сеть, интернет] IP в Порт

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


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

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

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

Ganibal95

GreenBytes
Сообщения
876
Репутация
239
Также жду помощи...
 

Viktor1703

AutoIT Гуру
Сообщения
1 535
Репутация
410
Вот работает, но оч. медленно

Код:
Opt("TCPTimeout", 1)

TCPStartUp()

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

TCPShutdown()
 
Верх