Winhttp Download Binary Option

Exemplo VBScript WinHttp. WinHttpRequest.5.1 com tratamento de erros Este script de exemplo WSH pode acessar (usando HTTP GET ou POST) o conteúdo HTML html xml de um determinado URL. Se um tempo limite de conexão WinHttpRequest ou erro ocorrer, ou o servidor remoto responde com um erro, os detalhes do erro são retornados em vez do conteúdo. Para usar o código em uma página ASP em vez de WSH, substitua Wscript. Echo com Response. Write e CreateObject com Server. CreateObject. (Veja também como baixar um arquivo binário usando uma versão derivada deste código.) Função GetDataFromURL (strURL, strMethod, strPostData) Dim lngTimeout Dim strUserAgentString Dim intSslErrorIgnoreFlags Dim blnEnableRedirects Dim blnEnableHttpsToHttpRedirects Dim strHostOverride Dim strLogin Dim strPassword Dim strResponseText Dim objWinHttp lngTimeout 59000 strUserAgentString httprequester 0,1 intSslErrorIgnoreFlags 13056 13056: ignorar todos erram, 0: não aceite nenhuma blnEnableRedirects err blnEnableHttpsToHttpRedirects verdadeiro verdadeiro strHostOverride strLogin strPassword Set objWinHttp CreateObject (WinHttp. WinHttpRequest.5.1) objWinHttp. SetTimeouts lngTimeout, lngTimeout, lngTimeout, lngTimeout objWinHttp. Open strMethod, strURL Se strMethod POST Então objWinHttp. setRequestHeader Conteúdo-tipo, aplicativo x-www-form-urlencoded End If If strHostOverride ltgt Então objWinHttp. SetRequestHeader Host, strHostOverride End If objWinHttp. Option (0) strUserAgentString objWinHttp. Option (4) intSsl ErrorIgnoreFlags objWinHttp. Option (6) blnEnableRedirects objWinHttp. Option (12) blnEnableHttpsToHttpRedirects If (strLogin ltgt) e (strPassword ltgt) Então objWinHttp. SetCredentials strLogin, strPassword, 0 End If On Error Resume Next objWinHttp. Send (strPostData) If Err. Number 0 Então, se objWinHttp. Status 200, então GetDataFromURL objWinHttp. ResponseText Else GetDataFromURL HTTP amp objWinHttp. Status amplificador amp objWinHttp. StatusText End If else GetDataFromURL Erro amp Err. Number amp amp Err. Source amp amp Err. Description End If On Error GoTo 0 Set ObjWinHttp Nothing End FunctionVBScript arquivo binário http downloader Este script WSH pode baixar um arquivo de um determinado URL e salvá-lo no disco usando um fluxo binário. Para usar o código em uma página ASP em vez de WSH, basta usar as funções BinaryGetURL () e SaveBinaryData () e substituir CreateObject por Server. CreateObject. Dim objArgs Dim strURL Dim strFileName Definir objArgs WScript. Arguments Se objArgs. count 0 Então Wscript. echo (Sintaxe: GetBinary URL target file name amp vbcrlf amp vbcrlf amp Exemplos: amp vbcrlf amp GetBinary servidor pasta file. zip amp vbcrlf amp GetBinary server dat. zip c: dlfile. zip amp vbcrlf amp. GetBinary server file. dat secure. dat amp vbcrlf amp GetBinary server news. htm d: dataservernews. html) ElseIf objArgs. count 1 Então strURL objArgs. Item (0) strFileName strURL strFileName Substituir ( StrFileName,,) strFileName Substituir (strFileName, amp,) strFileName Substituir (strFileName,,) strFileName Direito (strFileName, Len (strFileName) - InStrRev (strFileName,)) Se strFileName Então strFileName strURL strFileName Substituir (strFileName,,) strFileName Substituir (strFileName,,) strFileName Substituir StrFileName,,) strFileName Substituir (strFileName,,) End If SaveBinaryData BinaryGetURL (strURL), strFileName ElseIf objArgs. count 2 Então strURL objArgs. Item (0) strFileName objArgs. Item (1) SaveBinaryData BinaryGetURL (StrURL), strFileName Else Wscript. echo (Demasiados argumentos. Se um caminho contiver espaços, o amplificador coloque aspas em torno dos argumentos.) End If Function BinaryGetURL (strURL) Dim objWinHttp Dim lngTimeout Dim strMethod Dim strPostData Dim strUserAgentString Dim intSslErrorIgnoreFlags Dim blnEnableRedirects Dim blnEnableHttpsToHttpRedirects lngTimeout 59000 milissegundos. strMethod GET strPostData strUserAgentString binarygetter 1.0 intSslErrorIgnoreFlags 13056 13056 ignorar todos erram, 0 não aceitar blnEnableRedirects err blnEnableHttpsToHttpRedirects verdadeiro verdadeiro Set objWinHttp CreateObject (WinHttp. WinHttpRequest.5.1) objWinHttp. SetTimeouts lngTimeout, lngTimeout, lngTimeout, lngTimeout objWinHttp. Option (0) strUserAgentString objWinHttp. Opção (4) intSslErrorIgnoreFlags objWinHttp. Option (6) blnEnableRedirects objWinHttp. Option (12) blnEnableHttpsToHttpRedirects objWinHttp. Open strMethod, strURL, False Se strMethod POST Então objWinHttp. setRequestHeader Content-type, aplicação x-www-form-urlencoded End If objWinHttp. Enviar (strPostData) Se (objWinHttp. Status 200) Então BinaryGetURL objWinHttp. ResponseBody End If Set objWinHttp Nothing End Function Function SaveBinaryData (arrByteArray, strFileName) Se VarType (arrByteArray) gt 8192 Então Dim objBinaryStream Set objBinaryStream CreateObject (ADODB. Stream) objBinaryStream. Tipo 1 objBinaryStream. Open ( ) ObjBinaryStream. Write (arrByteArray) objBinaryStream. SaveToFile strFileName, 2 End If End Function