code:

---

$=createobject("kixtart.form")
$.size=300,50
$.borderstyle=0
$.center
$.caption="Enter URL"
$url=$.textbox("place here the topic URL to keep track of",10,15,220,20)
$go=$.button("shoot it",240,14,50,22)
$go.onclick="$$url=$$url.text $$.hide"
$go.default=1
$.show
$url.setfocus
$url.selstart=0
$url.sellength=-1
while $.visible $nul=execute($.doevents) loop
if 0=(instr($url,"?ubb=get_topic") and instr($url,"kixtart.org") and instr($url,"t=") and instr($url,"f=")) exit 0 endif
redim $go
if instr($url,"p=") $url=split($url,"p=")[0] $url=left($url,len($url)-1) endif
$url="http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=pntf;f="+split($url,"f=")[1]
$.size=120,200
$.caption="tracker"
$.left=$.screen.width-122
$.top=2
$eh=$.timer(60000)
$eh.ontimer="update $$.caption='tracker 0.2 ('+$$log.listcount+' members have read the topic)'"
$log=$.listbox(,10,10,100,160)
$log.sorted=1
$log.fontsize=8
$close=$.button("Exit",10,175,100,22)
$close.appearance=0
$close.borderstyle=2
$close.mousepointer=16
$close.onmouseup="$$.hide"
update
$.show
while $.visible $nul=execute($.doevents) loop

function update()
dim $, $_, $!,$#
$=createobject("microsoft.xmlhttp")
$.open("get",$url, not 1)
$.send
$#=split($.responsebody,'<a href="http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_profile;u=')
for $=1 to ubound($#)-2
 $#[$]=split(split($#[$],'">')[1],"<")[0]
 $!=1
 for $_=0 to $log.listcount
  $log.listindex=$_
  if $log.value=$#[$] $!=0 endif
 next
 if $! $log.additem($#[$]) endif
next
endfunction

---