[Richard Suchenwirth] 2006-01-24 - Triggered by a question by [lvirden] on [comp.lang.tcl], 
I hacked up this little thing that uses [DDE] to display the specified URLs, in order, 
in an Internet Explorer:

 package req dde 

 proc every {ms body} {eval $body; after $ms [info level 0]}

 proc cycle _list {
    upvar 1 $_list list
    set list [concat [lrange $list 1 end] [list [lindex $list 0]]]
 }
 set URLs {
    wiki.tcl.tk
    wiki.tcl.tk/4
    groups.google.com/group/comp.lang.tcl
 }
 eval exec [auto_execok start] http://[lindex $URLs 0] &
 after 10000
 every 10000 {
    catch {dde execute iexplore WWW_OpenURL [lindex [cycle ::URLs] 0]}
 }
 vwait forever

----
[Arts and crafts of Tcl-Tk programming] 

[Category Example] | 
[Category Internet] | 
[Category Windows]