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

%>


Para executar as funções use algo similar as instruções abaixo:

<%
 dim binaryUrl
 binaryUrl = GetURL("www.seusite.com.br")  'pegamos a página e transformamos em um array de bytes

 response.write(ToString(binaryUrl)) 'você poderá imprimí-la na tela para análise.



%> 

Ivaldo de Oliveira é desenvolvedor sênior de softwares