Database Search

TechHome

• !!DISCLAIMER!!
• ADO Table Schemas
• Append RTF files Using COM
• AskFileName Alternative
• Binary OLE example
• Brother Label Printer with b-pac SDK
• Check CDROM Ejected
• COM Object for DLL Calls
• Convert Word Doc to PDF
• Create XML DB from the TXT file then do OLE Lookup
• Creating Shaped Hierarchical Recordset
• Crystal Reports Print Extender
• CSMail Search Inside Mime Messages
• Date Picture Taken
• Delete Message from Exchange
• Directory Browse Dialog Created Using OLE Shell Functions
• Display Spreadsheet as HTML
• Email Address Validator
• Enabling Automatic Updates
• Enumerate Certificates
• Enumerate Windows Updates
• Export Data crom Crystal Reports to Excel
• Forwarding Email Messages
• Get Current Unix TimeStamp
• GroupWise and WinBatch
• IBM Personal Communications Connect Via COM
• IIS UDFs
• Import CSV File Using Office Web Components Spreadsheet
• Inspect mail messages - CDO
• Locate and Validate Credit Card Numbers Using RegExp
• MakeCAB
• Minimize all windows
• Oracle Object for OLE OO4O Access
• Powershell COM
• Publisher SaveAsPicture
• Remove Duplicate Lines from Text File
• Remove SMS Cache Folder
• Set Groupwise Contacts Link
• SkyPe Enumerate Contacts
• SkyPe UDFs
• SNMP v1 Examples
• SQL Syntax Tool
• Symantec LiveStateRecovery ImageJob Code
• Symantec ProtectorAuto OLE Script
• Template Create IIS Site
• Use XMLHTTP to Download a File
• Windows Update Agent

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Use XMLHTTP to Download a File

strFile = StrCat (DirScript (),"wwcpu44i.zip")
strURL = "http://files.winbatch.com/wwwftp/wb01/wwcpu44i.zip"
adTypeBinary = 1
adSaveCreateOverWrite = 2
ForWriting = 2

;Download the file with any available object
ErrorMode(@OFF)
web = CreateObject("WinHttp.WinHttpRequest")
If web == 0
   web = CreateObject("Microsoft.XMLHTTP")
   If web == 0
      web = CreateObject("MSXML2.XMLHTTP")
      If web == 0
         Message("Error","No Support - Invalid Class Strings")
         Exit
      EndIf
   EndIf
EndIf
ErrorMode(@CANCEL)
web.Open("GET", strURL, @FALSE)
web.Send()
result = web.Status
If result <> "200" Then
   Message("Problem Accessing page",result)
   web = 0
   Exit
End If
varByteArray = web.ResponseBody
web = 0
buf = BinaryAllocArray(varByteArray)
data = BinaryWrite(buf, strFile)
BinaryFree(buf)

Message("File Download","Complete")
Exit

Article ID:   W17200

File Created: 2007:07:03:14:28:42

Last Updated: 2007:07:03:14:28:42