Markus: TCL/TK

Beitrag lesen

... funktioniert leider auch ned ...

Hier nochmal das komplette Script, vieeleicht hilft Dir das weiter:

---------------
#!/bin/sh

\

exec wish $0 ${1+"$@"} || exit 1

proc ServerProzedur { channel client_host_address client_port } {
   while { [gets $channel line] >= 0 } {

.lnewmsg configure -text "\n$line\n"
     after 5000 "exec {C:\Program Files\Internet Explorer\IEXPLORE.EXE} $line"
     after 7000 {.lnewmsg configure -text ""}
  }
}

#--------Hauptprogramm----------
button .bquit -text "Shut down" -command "exit"
label .lnewmsg -width 50
pack configure .bquit -side bottom
pack .lnewmsg -side top

socket -server ServerProzedur 8888