mods/_standard/chat/bings/.html

   1 <html><script language="vbscript">
   2                 option explicit
   3                 Dim IntervalID
   4                 Dim count
   5                 count = 0
   6
   7                 sub loaded
   8
   9                     IntervalID = Window.setInterval("askServer",5000)
  10                 end sub
  11
  12                 sub changedF2
  13                     askServer
  14                 end sub
  15
  16                 sub askServer
  17                     Dim objAsp, theFile
  18                     set objAsp = CreateObject("Microsoft.XMLHTTP")
  19                     objAsp.open "GET", "bing.php?uselessVar=" + CStr(count) + "&chatID=", false
  20                     objAsp.send()
  21                     theFile = objAsp.responsetext
  22                     if InStr(theFile,"yes") > 0 then
  23                         Player.URL = "chime.wav"
  24                     else
  25                     end if
  26                     count = count + 1
  27                     document.f1.f2.value = CStr(count) + theFile
  28                     objAsp = 3
  29                     theFile = ""
  30                 end sub
  31
  32                 </script>
  33                 <body onLoad="loaded" language="vbscript">
  34                 <form name=f1><input type=text name=f2 length="200" /></form>
  35                 <OBJECT ID="Player" height="0" width="0" CLASSID="CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6"></OBJECT>
  36                 </body>
  37                 </html>