Como pegar uma página web e transformá-la em um arquivo binário usando ASP 3

 Como pegar uma página web em transformá-la um arquivo binário usando ASP 3  (VBSCRIPT)

  
Utilizando um objeto COM é possível através de uma linguagem de script fazer um GET de uma página web.


No meu caso , utilizei como exemplo a linguagem VBSCRIPT (ASP) , veja a seguir os códigos.

<%

'criamos a função para pegar a página e transformá-la em um array de bytes
Function GetURL(URL)

  Dim Http

  Set Http = CreateObject("WinHttp.WinHttpRequest.5.1") 

  Http.Open "GET", URL, False

  Http.Send

  GetURL = Http.ResponseBody 'recupera em array de bytes

End Function

'nesta função é possível transformar o objeto binário em uma string

Function ToString(Binary)

  Dim I, S

  For I = 1 To LenB(Binary)

    S = S & Chr(AscB(MidB(Binary, I, 1)))

  Next

  ToString = S

End Function

%>