Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

status de ICQ

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Para ver o status de um usuário ICQ

 

<%@LANGUAGE="VBSCRIPT"%>
    <%
    ' #### Alterar para o UIN correto ####
    sUIN = "123456"
    Dim objFile
    Dim sURL
    Dim sUIN
    Dim sSizeofFile
    Dim sStatus
    sURL = "http://web.icq.com/whitepages/online?icq=" & sUIN & "&img=4"
    Set objFile = Server.CreateObject ("Microsoft.XMLHTTP")
    objFile.open "GET", sURL, False
    objFile.send
    sSizeofFile = objFile.getResponseHeader("Content-Length")
    'Clean up
    Set objFile = Nothing
    ' #### Mudar aqui Se você quiser usar MI ####
    Select Case sSizeofFile
    Case 1216
    sStatus = "Disabled" ' "<IMG SRC=" & chr(34) & "name1.gif" & chr(34) & " BORDER=" & chr(34) & "0" & chr(34) & ">"
    Case 4334
    sStatus = "Online"' "<IMG SRC=" & chr(34) & "name2.gif" & chr(34) & " BORDER=" & chr(34) & "0" & chr(34) & ">"
    Case 1801
    sStatus = "Offline"' "<IMG SRC=" & chr(34) & "name3.gif" & chr(34) & " BORDER=" & chr(34) & "0" & chr(34) & ">"
    End Select
    %>
    <HTML>
    <HEAD>
    <TITLE>ICQ Status</TITLE>
    </HEAD>
    <BODY>
    Status For <% = sUIN %> is <% = sStatus %>
    </BODY>
    </HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

não conheço mas quem use o ICQ

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Acredite, ainda existe, pois um amigo me pediu esse code, e disponibilizei pro pessoal

Compartilhar este post

Link para o post
Compartilhar em outros sites

Traks    6

Traks
Postado

bom.... é mto raro alguem usar o ICQ...

 

mas as veses para quem usa aquele ICQ corporativo feito para colaboradores...... as veses o cara precisa saber quem está online

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

como falei , tem um amigo meu, k a empresa, naun deixa usar msn,skype etc,

diz ele para tentar naun deixar nunguem ficar " de conversa"....

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

heheheheh icq... já tinha até esquecido que ele existia auhuahahuauh este tópico me fez lembrar do primeiro comunicador de mensagens instantaneas que eu testei, o comvc foi em 2000, mais dae apareceu o icq aqui no brasil e dae derrubou o comvc que era do uol... depois apareceu o msn e derrubou o icq.... se continuar no ritimo daqui a uns anos algum novo comunicador instantaneo ira derrubar o msn rsrssrsrsrs

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

pode até ser mas por hora o msn tomou conta

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito