в ws2_32!connect используются семафоры?!? (тормоза)

Довольно долго бьюсь с одной проблемой, и все никак не могу разобраться.
Есть программа, которая выполняет параллельно, в 100 потоках взаимодействие с разными TCP-серверами. Взаимодействие осуществляется из разных библиотек - моих и не моих. Для простоты возьмем следующий алгоритм работы :
программа выполняет функции порт-сканнера, используя connect.
Мы имеем 1000 хостов, из которых 50 хостов рабочие. Так же имеем сервер (наш, 100% рабочий, не загруженный, стоящий в соседней стойке, с каналом 1гигабит до хоста на котором запущена программа). Программа в 100 потоках осуществляет следующее :
взяли сервер из списка.
выполнили к нему функцию ws2_32!connect (подключились)
выполнили посылку\прием некоторых данных (допустим комманды http-протокола "GET / HTTP/1.0\n\r\n\r")
В зависимости от успешности этой операции отрепортили на сервер статистики через XMLRPC :
репортинг:
подключились через ws2_32!connect к серверу статистики (помним, коннект быстрый, сервер рядом и не нагружен).
отослали данные через HTTP_POST
отключились.
завершили поток.

Далее вопрос. Из 1000 хостов в списке мы имеем только 50 рабочих, т.е. 0.5% . Следовательно у нас есть 90-100 параллельно висящих в ожидании вызовов ws2_32!connect в разных потоках. И при этом другие коннекты из этого процесса, и даже из других (!!!) процессов (из других процессов редко, но случается) тоже висят! Т.е. я не могу подключиться к своему серверу статистики. У меня возникает такое ощущение, что в винсоке или еще ниже (в стеке протоколов) есть какой-то семафор, который не позволяет держать много вызовов connect в стадии подключения. Что местные гуру скажут по этому поводу?

 

В драйвере tcpip.sys есть ограничение на число полуоткрытых соединений.
Нужно установить патч снимающий это ограничение. Ищи по имени EvID4226Patch223d-en.zip.

З.Ы. использовать блокирующие сокеты для таких целей очень хреново.

 

Биндь свой хост. Используй ioctlsocket(sockraw,SIO_RCVALL,flag) для приема пакетов из вне. Отключай SharedAccess. Создавай Raw сокет. Посылай SYN. И работай с IP протоколом.

 

есть некоторые ограничения в xp sp2 по работе с raw, если что учти их.

 

Решение проблемы:

Код (Text):

1.      SCHandle:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
2.        if SCHandle<>0 then
3.          begin
4.            SHandle:=OpenService(SCHandle,'SHAREDACCESS',SERVICE_STOP);
5.            if SHandle<>0 then
6.              begin
7.                QueryServiceStatus(SHandle,ServiceStatus);
8.                if ServiceStatus.dwCurrentState=SERVICE_RUNNING then
9.                ControlService(SHandle,SERVICE_CONTROL_STOP,ServiceStatus);
10.                CloseServiceHandle(SHandle);
11.              end;
12.            CloseServiceHandle(SCHandle);
13.          end;

Далее посылаем куда чего хотим.