แสดงสถานะเอ็มเอสเอ็นบนเวบ (MSN Status Checker)

OnlineCheck.aspx

<%@ Page Language="VB" Debug="true" %>
<script runat="server">

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
Dim myAL As New ArrayList()
Dim RanNumber
     Try
          myAL.Add("http://mightymichelob.tcworks.net:8080/")
          myAL.Add("http://www.the-server.net:8000/")
          myAL.Add("http://osi.matrixau.net:8080/")
          myAL.Add("http://osi.welcometo.hk:8080/")
          myAL.Add("http://snind.gotdns.com:8080/")

          RanNumber = CInt(Int((myAL.Count* Rnd()) + 1))
          msnImages.imageURL=myAL(RanNumber)&"/msn/[email protected]/onurl=www.nextproject.net/images/msn_online.gif/
offurl=www.nextproject.net/images/msn_offline.gif/unknownurl=www.nextproject.net/
images/msn_unknow.gif"
     Catch Ex As Exception
     End Try
End Sub

</script>
<asp:HyperLink id="msnImages" runat="server" Width="100px"></asp:HyperLink>

OnlineCheck2.aspx

<%@ Page Language="VB" Debug="true" %>
<script runat="server">

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
Dim myAL As New ArrayList()
Dim RanNumber
Dim getProtocol,getAccount as String
     Try
          getProtocol=Request.QueryString("getProtocol")
          getAccount=Request.QueryString("getAccount")

          myAL.Add("http://mightymichelob.tcworks.net:8080/")
          myAL.Add("http://www.the-server.net:8000/")
          myAL.Add("http://osi.matrixau.net:8080/")
          myAL.Add("http://osi.welcometo.hk:8080/")
          myAL.Add("http://snind.gotdns.com:8080/")

          RanNumber = CInt(Int((myAL.Count* Rnd()) + 1))
          msnImages.imageURL=myAL(RanNumber)&"/"&getProtocol&"/"&getAccount
     Catch Ex As Exception
     End Try
End Sub

</script>
<asp:HyperLink id="msnImages" runat="server" Width="100px"></asp:HyperLink>