diff --git a/demo/lang/tcl/2_webpage_extract.tl b/demo/lang/tcl/2_webpage_extract.tl index bcfdc12a3c3eaa5b0bb448110be2b5f1a5228988..b242c19238b4c9d39e9f69f42eef0da24edca5cf 100755 --- a/demo/lang/tcl/2_webpage_extract.tl +++ b/demo/lang/tcl/2_webpage_extract.tl @@ -7,7 +7,7 @@ pid=0 1. Load web page from url http://xxx 2. Retrieve img element zt-logo.png in html -3. Check img exist >> `Apple` +3. Check img exist >> `Bing images` } @@ -16,7 +16,7 @@ package require tls http::register https 443 tls::socket -set url https://www.apple.com +set url https://cn.bing.com/images/trending set http [::http::geturl $url] set html [::http::data $http]