ник: NexWir
Извините за беспокойство, нужна помощ.
Мне надо найти на каком из адресов даппазона 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.
Или хотя-бы почему это происходит.