Status do icq no ASP

Com essa dica você pode saber o status do icq de alguém (provavelmente você vai usar pra verificar seu próprio status) através do ASP. É preciso que você tenha ASPHTTP e que a visualização do seu status pela web esteja habilitada no icq.

<%
MeuUIN="41910114"
Set HTTPObj = Server.CreateObject("AspHTTP.Conn")
HTTPObj.Url = "http://web.icq.com/wwp/1,,,00.html?Uin=" & MeuUIN
HTTPObj.FollowRedirects = true
strurl=HTTPObj.GetURL
online = (inStr(lcase(strurl), "the user is currently offline")=0)
%>

Pronto, a variável online contém True se vc estiver online e False se não estiver.

Dá pra fazer a mesma coisa baixando aquelas imagenzinhas que o icq disponibiliza, mas o código é mais complicado e eu não vejo nenhum benefício.

Esta dica foi criada pelo meu irmão, Peka (peka_asp@yahoo.com.br)

Esta matéria foi postada originalmente no ASP4Developers por Elcio Luiz Ferreira (site), que na época era " analista-programador apaixonado por javascript, ex-professor, músico amador, ciclista amador, teólogo amador, filósofo amador, escritor amador e comediante amador.". Hoje, vai saber...