formGet.tcl

   1 package require TclCurl
   2
   3 curl::transfer -url "http://www.google.com/search?q=TclCurl&hl=en&btnG=Google+Search+&lr=" \
   4         -file tclcurl.html -cookiejar [file join [file dirname [info script]] cookieJar.txt]
   5 puts "Transfer saved in 'tclcurl.html'"
   6 puts "Cookies en el fichero: [file join [file dirname [info script]] cookieJar.txt]"
   7
   8
   9
  10
  11
  12
  13