Извините за беспокойство, нужна помощ.
Мне надо найти на каком из адресов даппазона 0.0.0.0 - 0.0.255.255 находится сервер чтобы к нему подключиться.
Программу я написал. Ну там перебор всех этих адресов к каждому пытаюсь подключиться и проверяю есть ли соединение

If Wsk(1).State = sckConnected Then     Label3.Caption = "Есть связь " & TexIp    GoTo ProvOk Else     Label3.Caption = "Нет связи c " & TexIp    Wsk(1).close End If

Если соединение есть, выхожу из цикла, если нет разъединяю и проверяю следующий IP
Проблема возникает если сервер дальше чем 7ой от начала поиска
Даже если соединение установлено вышенаписанная проверка пишет что связи нет.
Если после каждого 6го ставить задержку на 6 сек все работает.
Мне надо проверить 65000 адресов если после каждого 6го делать такую паузу на проверку от начала до конца уйдет около 24 часа.
Подскажите как сделать это быстрее или альтернативу Winsock.
Или хотя-бы почему это происходит.