---

Jeg vil gerne lave et script i ASP der kan se om man er online på IRC.
Det skal virke på samme måde som ICQ gør det, men problemet er lige helt
præcis hvordan det skal gøres.
Jeg har lavet noget, men spørgsmålet er hvilken port jeg skal sætte den
til at lytte på, eller om det i det hele taget skal laves sådan. Det er
lavet vha W3SOCKETS, men måske er der en anden mulighed..?

<%
Dim StatusArray(3)
StatusArray(1) = "Timeout"
StatusArray(2) = "Offline"
StatusArray(3) = "Online"

function testIP(inIP) ' inIP: host:port; return: 1:Timeout, 2:Refused,
3:Svarer aktivt
Set w3s=Server.CreateObject("socket.tcp")
w3s.Host=inIP
w3s.TimeOut=1000
Success=3
on Error Resume next
w3s.Open
if Err.Number<>0 Then
EDes=Err.description
Success=1
if Err.Number=-2147418113 AND instr(EDes,"Connection refused")>0 Then
Success=2
End if
End if
w3s.Close
testIP=Success
End Function

Response.Write StatusArray(testIP("IP:PORT"))
%>

--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"