<%@ LANGUAGE=VBScript %> 

<% 
'----------- CONEXÃO COM O VELOX USANDO UM SCRIP ASP ---------------
' By Marcelo Morgade <marcelomorgade@ig.com.br>
' Este script pode ser distribuído e modificado livremente desde que se mantenham os créditos do autor

' Necessita do componente "Coalesys.CSHttpClient" que pode ser baixado
' gratuitamente em http://www.coalesys.com/products/httpclient/download


Set objHTTP = Server.CreateObject("Coalesys.CSHttpClient") 

Randomize
cookie = Int((10000 - 9000 + 1) * Rnd + 9000) &""& Int((10000 - 9000 + 1) * Rnd + 9000)
user = "Escreva aqui o login do provedor"
senha = "Sua senha"
' Descomente a linha referente ao seu "provedor habilitado velox"
' A Tarde
PROVEDOR="_ATARDE"
' iG
'PROVEDOR="_IG"
' Internett
'PROVEDOR="_INTERNETT"
' Terra
'PROVEDOR="_TERRA"
' Empresarial
' PROVEDOR=""


Dim steps(8)
steps(0)="http://www.veloxzone.com.br"
steps(1)="http://www.veloxzone.com.br/dashboard?fcn=accountLogonPrompt"
steps(2)="http://www.veloxzone.com.br/dashboard?fcn=viewToolbar&JSESSID="+cookie
steps(3)="http://www.veloxzone.com.br/dashboard?fcn=viewServiceList&JSESSID="+cookie
steps(4)="http://www.veloxzone.com.br/dashboard?fcn=viewDashBoardFrame&serviceViewFcn=viewService&service=internet"+PROVEDOR+"&JSESSID="+cookie
steps(5)="http://www.veloxzone.com.br/dashboard?fcn=viewService&service=internet"+PROVEDOR+"&JSESSID="+cookie
steps(6)="http://www.veloxzone.com.br/dashboard?&fcn=serviceLogon&service=internet"+PROVEDOR+"&username="+user+"&password="+senha+"&x=55&y=12&JSESSID="+cookie
steps(7)="http://www.veloxzone.com.br/dashboard?&JSESSID="+cookie+"&service=internet"+PROVEDOR+"&fcn=viewService"

for i=0 to 7 
	objHTTP.RequestURL = steps(i) 
	objHTTP.Execute("GET") 
	HTTPResponseStatus = objHTTP.ResponseStatus
	HTTPResponseHeaders = objHTTP.ResponseHeaders 
	HTTPResponseBody = objHTTP.ResponseBody(0)
Next
if InStr(HTTPResponseBody,"Voc&ecirc; est&aacute; conectado no servi&ccedil;o") then
	response.write "Conexão com velox completa"
else
	response.write "Conexão com velox falhou"
end if


%>