dialog thu {
title "TzHaar users"
size -1 -1 200 150
list 1, 5 35 190 90
text %total.thu, 2, 2 5 196 30, center
button "Start Searching" 3, 5 125 190 20
}
on *:dialog:thu:sclick:3:{
Sockclose thu
did -a thu 1 _________________________________________________
did -a thu 1 Finding the users, please wait
/timer 1 3 did -a thu 1 Found the users, putting them in!
/timer 1 5 sockopen thu www.tzhaar.nl 80
}
on *:Sockopen:thu:{
sockwrite -nt $sockname GET /forum/index.php HTTP/1.1
sockwrite -nt $sockname Host: www.tzhaar.nl
sockwrite -nt $sockname $crlf
}
on *:sockread:THU:{
if ($sockerr) { did -a thu 1 Error... | sockclose $sockname | halt }
else {
var %thu.read
sockread %thu.read
if (er zijn in totaal isin %thu.read) {
tokenize 32 $htmlfree(%thu.read)
dialog -x thu
set %total.thu $remove($1-15, ,-)
dialog -dm thu thu
did -a thu 1 $43-
unset %total.thu
}
}
}