Re: How To Pull Data File From Web

[RicksPlace]

        Thanks Aaron:
I have a version now wworking.
Rick USA


  From: Aaron Smith 
  To: gw-scripting@gwmicro.com 
  Sent: Wednesday, September 19, 2012 8:16 AM
  Subject: Re: How To Pull Data File From Web


  You can use the Toolkit to do this. Using Immed, for example:

  Set downloadObj = 
SharedObjects("com.GWMicro.GWToolkit.Download").NewDownload()
  downloadObj.URL = "http://www.gwmicro.com";
  downloadObj.FileName = "robots.txt"
  downloadObj.GetFile()

  To see the results:

  print downloadObj.ReturnString()

  If you want to roll your own, here's an example that supports authentication, 
along with proxy access, and a custom user agent string:

  Function GetData(strUrl, strUser, strPass, strProxy, strProxyUser, 
strProxyPass, strUA)
      Dim winhttp, attempts, done

      ' Init
      Set winhttp = Nothing
      GetData = -1
      
      ' Begin    
      Set winhttp = CreateObject("WinHttp.WinHttpRequest.5.1")
      If Not winhttp Is Nothing Then
          LoadClassInformation
          winhttp.SetTimeouts 30000, 60000, 120000, 60000
          If strProxy <> "" Then
              winhttp.SetProxy 2, strProxy
          End If
          winhttp.Open "GET", strUrl, False
          winhttp.Option(0) = strUA ' User Agent string
          winhttp.Option(4) = 13056 ' Ignore all SSL errors
          Do
              attempts = attempts + 1
              On Error Resume Next
              winhttp.Send()
              If Err.Number <> 0 Then
                  MessageBox Hex(Err.Number) & ": " & Err.Description, vbOkOnly 
+ vbCritical, "HTTP Error"
                  Exit Do
              End If
              On Error Goto 0
              Select Case winhttp.Status
                  Case "200"
                      done = True
                  Case "401"
                      winhttp.SetCredentials strUser, strPass, 0
                  Case "407"
                      If strProxyUser <> "" And strProxyPass <> "" Then
                          winhttp.SetCredentials strProxyUser, strProxyPass 
HTTPREQUEST_SETCREDENTIALS_FOR_PROXY
                      End If
                  Case Else
                      done = True
              End Select
          Loop While Not done And (attempts < 3)

          GetData = winhttp.ResponseText
      End If
      
      Set winhttp = Nothing
  End Function

  Aaron


  On 9/18/2012 7:56 PM, RicksPlace wrote:

    Hi:
    I want to access the Yahoo Finance Data File which is a csv file.
    To download it I need to issue a http request.
    Does anyone have code that downloads a file from the internet using http 
orsomething similar?
    Rick USA 


-- 
Aaron Smith 
Web Development * App Development * Product Support Specialist
GW Micro, Inc. * 725 Airport North Office Park, Fort Wayne, IN 46825
260-489-3671 * gwmicro.com

To insure that you receive proper support, please include all past
correspondence (where applicable), and any relevant information
pertinent to your situation when submitting a problem report to the GW
Micro Technical Support Team.