i think i solved my problem, at least i dont wait about 2 minutes from ftp server answer.....
easy...
on module add
Public Const INTERNET_OPTION_CONNECT_TIMEOUT = 2
Public Const INTERNET_OPTION_RECEIVE_TIMEOUT = 6
Public Const INTERNET_OPTION_SEND_TIMEOUT = 5
before call InterConnect
Dim dwTimeOut As Long
dwTimeOut = 2000
iRetVal = InternetSetOption(m_hSession, INTERNET_OPTION_CONNECT_TIMEOUT, _
dwTimeOut, 4)
iRetVal = InternetSetOption(m_hSession, INTERNET_OPTION_RECEIVE_TIMEOUT, _
dwTimeOut, 4)
iRetVal = InternetSetOption(m_hSession, INTERNET_OPTION_SEND_TIMEOUT, _
dwTimeOut, 4)
and now i just wait about 17seconds...not bad....
hope in future dont get more problems...
thanks