#90418 - 2002-12-09 03:09 AM
TopicReaderTracker 0.2
|
Lonkero
KiX Master Guru
Registered: 2001-06-05
Posts: 22346
Loc: OK
|
HEH! wrong forum at first... trying again.
so, didn't have anything better to do than read your messages so decided to do something. this tracker is add-value for checker as this checks not the posts but the silent reader visits on the topic.
so, it gives you the info as example about how many users are feeling that a discussion or topic is not worth of involving after they've read it
give it a try: 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
[ 09. December 2002, 06:19: Message edited by: Lonkero ]
_________________________
!download KiXnet
|
Top
|
|
|
|
Moderator: Shawn, ShaneEP, Ruud van Velsen, Arend_, Jochen, Radimus, Glenn Barnas, Allen, Mart
|
0 registered
and 272 anonymous users online.
|
|
|