WinINet Processing

  If p_lInternetSession = 0 Then p_lInternetSession = InternetOpen( _
          Configuration.VersionData, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
  m_lInternetConnect = InternetConnect(p_lInternetSession, strURL, _
                                       INTERNET_DEFAULT_HTTP_PORT, _
                                       vbNullString, vbNullString, _
                                       INTERNET_SERVICE_HTTP, 0, 0)

  m_lHttpRequest = HttpOpenRequest(m_lInternetConnect, "GET", _
                                   strFilePath, "HTTP/1.0", vbNullString, 0, _
                                   INTERNET_FLAG_RELOAD, 0)
  If CBool(m_lHttpRequest) Then
      'prepare string buffer to get server response
      lBufferLength = Len(sBuffer)

      'send request to remote server. On this state we need Interent connection.
      'If system not connected to Internet, dialog with default RAS entry will
      'be showed
      iRetVal = HttpSendRequest(m_lHttpRequest, vbNullString, 0, 0, 0)

      'Use HTTP_QUERY_LAST_MODIFIED flag to try to retrieve value of the iNetResults
      'header of the server response. If server has returned iNetResults header
      'value of CheckURL will be True and sBuffer will consist value of the header
      CheckUrl = CBool(HttpQueryInfo(m_lHttpRequest, HTTP_QUERY_STATUS_CODE, _
                                     ByVal sBuffer, lBufferLength, 0))
      iNetValid = Val(sBuffer)
      If CheckUrl Then
          'OK! We have iNetResults header
          If iNetValid = 200 Then
            lBufferLength = Len(sBuffer)
            iRetVal = InternetReadFile(m_lHttpRequest, sBuffer, lBufferLength, lBufferRead)
            ' iNetResults = TrimToNull(sBuffer)
            If lBufferRead > 0 Then
              iNetResults = Left$(sBuffer, lBufferRead)
              Do
                sBuffer = String$(lBufferLength, Chr$(0))
                iRetVal = InternetReadFile(m_lHttpRequest, sBuffer, lBufferLength, lBufferRead)
                If (lBufferRead = 0) And (iRetVal = True) Then Exit Do
                iNetResults = iNetResults & Left$(sBuffer, lBufferRead)
                ' iNetResults = iNetResults & TrimToNull(sBuffer)
              Loop
            Else
              iNetResults = "Failed to connect"
            End If
          End If
      Else
          'Hm... HttpQueryInfo return 0. Check out response code using
          'HTTP_QUERY_STATUS_CODE flag
          HttpQueryInfo m_lHttpRequest, HTTP_QUERY_STATUS_CODE, ByVal sBuffer, lBufferLength, 0
          If TrimToNull(sBuffer) = "200" Then
              iNetResults = "Not available"
          Else
              iNetResults = "Bad response: " & TrimToNull(sBuffer)
          End If
          PumpInternalMessage iNetResults
      End If
  End If
  InternetCloseHandle m_lHttpRequest
  InternetCloseHandle m_lInternetConnect