Timeout con las api de wininet

[raul338]

Holas!
No busque a fondo, pero no pude encontrar la forma de establecer el timeout (tiempo limite) de respuesta a 10 segundos de la API InternetCheckConnection. Ya que si no estas conectado a internet te avisa pero como a los 40 segundos y es mucho para esperar xD
No me digan que voy a tener que usar sockets solo para eso en un form?

[LeandroA]

Hola Raul338 creo que se puede hacer con InternetSetOption

Código: [Seleccionar]

Private Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" (ByVal hInternet As Long, ByVal dwOption As Long, ByRef lpBuffer As Any, ByVal dwBufferLength As Long) As Long

Private Const INTERNET_OPTION_SEND_TIMEOUT As Long = 5
Private Const INTERNET_OPTION_FROM_CACHE_TIMEOUT As Long = 63
Private Const INTERNET_OPTION_DISCONNECTED_TIMEOUT As Long = 49
Private Const INTERNET_OPTION_DATA_RECEIVE_TIMEOUT As Long = 8
Private Const INTERNET_OPTION_DATA_SEND_TIMEOUT As Long = 7
Private Const INTERNET_OPTION_CONNECT_TIMEOUT As Long = 2
Private Const INTERNET_OPTION_RECEIVE_TIMEOUT As Long = 6
Private Const INTERNET_OPTION_CONTROL_RECEIVE_TIMEOUT As Long = INTERNET_OPTION_RECEIVE_TIMEOUT
Private Const INTERNET_OPTION_CONTROL_SEND_TIMEOUT As Long = INTERNET_OPTION_SEND_TIMEOUT
hora me fijo bien cual puede ser.

[LeandroA]

mmm no, no hace nada :/

[ADONAIRAFA]

Saludos !!!

Raul338, el detalle con la API InternetCheckConnection, te sirve para determinar si la conexión con Internet puede ser establecida.
Ahora que tal si pruebas con las API's QueryPerformanceCounter y QueryPerformanceFrequency, con las cuales puedes obtener el tiempo de ejecución de un proceso. Quizás pudiera servirte (eso espero, sino disculpa "la burrada" ).
Ahora, con estas funciones hay que tener, digamoslo así como "un cierto cuidado", ya que pueden tener tendencia a consumir mucho de los recursos (en especial del procesador) .

Espero haberte podido ayudar en algo.


Manuel F. Borrego S.
Barcelona, Edo. Anzoátegui. Venezuela.

[raul338]

ADONAIRAFA Las api QueryPerformance sirven para medir el tiempo que tardo en hacer algo. Yo necesito poner un limite de tiempo distinto al default pero gracias igual por la ayuda. Lo del consumo del procesador, lo dejo a criterio del cliente xDDDD

Por ahora se me ocurre atarlo con alambres usar timers 

[coco]

Código: (vb) [Seleccionar]

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" (ByVal hInternet As Long, ByVal dwOption As Long, ByRef lpBuffer As Any, ByVal dwBufferLength As Long) As Long

Private Const INTERNET_OPTION_CONNECT_TIMEOUT As Long = 2

Private Const IF_NO_CACHE_WRITE = &H4000000

Private Function GetHTML(sURL As String, Optional ByVal lngTimeout As Long = 4500) As String
    Dim sBuffer         As String * 1000
    Dim lInternet       As Long
    Dim lFile           As Long
    Dim lRead           As Long
   
    lInternet = InternetOpen(0, 1, vbNullString, vbNullString, 0)
    If lInternet <> 0 Then
        Call InternetSetOption(lInternet, INTERNET_OPTION_CONNECT_TIMEOUT, lngTimeout, 4)
        lFile = InternetOpenUrl(lInternet, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
        If lFile <> 0 Then
            Do
                Call InternetReadFile(lFile, sBuffer, 1000, lRead): DoEvents
                GetHTML = GetHTML & Left$(sBuffer, lRead)
            Loop While lRead <> 0
        End If
        Call InternetCloseHandle(lInternet)
    End If
End Function