ANTICHAT — форум по информационной безопасности, OSINT и технологиям

LOCAL timeout: timeval
LOCAL fds: fd_set
LOCAL block: DWORD

;подключение
	mov block, 1
	invoke ioctlsocket, hSock, FIONBIO, addr block
	invoke connect, hSock, addr sin, sizeof sin
	mov block, 0
	invoke ioctlsocket, hSock, FIONBIO, addr block
;таймаут
	mov timeout.tv_sec, 3
	mov timeout.tv_usec, 0
	mov eax, 1
	mov fds.fd_count, eax
	mov eax, hSock
	mov fds.fd_array, eax
	invoke select, 0, addr fds, addr fds, 0, addr timeout
	.if eax==0
		invoke closesocket, hSock
		mov eax, 5
		ret
	.endif

var
	timeout: timeval;
	fds: fd_set;
	block: DWORD;
begin
	block:=1;
	ioctlsocket(hSock, FIONBIO, block);
	connect(hSock, sin, sizeof (sin));
	block:=0;
	ioctlsocket(hSock, FIONBIO, block);
	timeout.tv_sec:= 3;
	timeout.tv_usec:= 0;
	fds.fd_count:= 1;
	fds.fd_array:= hSock;
	if select(0, fds, fds, 0, timeout)=0 then
	begin
		\\Подключиться не удалось
	end;
end;