Seven Library

Conteúdo atual do site:
[807] ítens, entre artigos, funções e documentos.
Pesquisa Rápida:

Pesquisa Avançada
Últimos 3 acessos:
Alexandre Neves 03/03/2015 11:08:01 167 acesso(s) alexandre neves 03/03/2015 11:06:42 1 acesso(s) Marcelo Torres 21/01/2015 15:24:53 61 acesso(s)

Opções:
Listagem completa Listagem simples

Ranking Colaboradores:

Adenilton Rodrigues - [304] Alexandre Neves - [61] Douglas Freire - [54] Marcelo Giovanni - [53] Marcelo Torres - [43] Angelita Bernardes - [31] Addy Magalhães Cunha - [28] Manuel Fraguas - [24] Ludmila Valadares - [20] Marcelo Capelo - [18]

:: Programação / ASP

Script ASP para autenticar no serviço velox ADSL da Telemar

Este script faz a autenticação automática no site veloxzone da telemar. Assim você pode autenticar um servidor remotamente, ou chamar o script logo após a conexão do velox

<%@ LANGUAGE=VBScript %> <html> <body bgcolor="#CCCCCC"> <div align="center">Abrindo conexão à aplicação de autenticação ... <% '----------- 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 = "seulogin" senha = "suasenha" 'Descomente a linha do seu provedor 'Se seu provedor não consta aqui, cheque o parâmetro na página do veloxzone ' 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) %> Passo<%=i%> <% Next if InStr(HTTPResponseBody,"Você está conectado no serviço") then%> Autenticação em <%= PROVEDOR %> completa <%else %> Autenticação em<%= PROVEDOR %> falhou <%end if%> </div> </body> </html>

Quebra-Linha

Colaborador..: Marcelo Burgos Morgade Cortizo
Categoria(s).: ASP;
Versão.......: 1.0
Data.........: 14/07/2003 09:18:51
Visualizado..: 5574 vezes
Fonte........: Marcelo Morgade

Marcelo Burgos Morgade Cortizo	ASP
Últimos Artigos deste colaborador Script ASP para autenticar no serviço velox ADSL da Telemar - 14/07/2003 09:18:51	Últimos Artigos desta categoria Gerador de Codigo de Verificação REDECARD - 14/05/2008 23:53:10 Gerar um Excel apartir de um ASP - 18/07/2007 14:11:57 LongIP para StringIP - 11/02/2005 18:00:05

3 pessoa(s) on-line neste site.