|
有如下段代码,想知道如何获得IE的com接口和属性,谢谢了!
package require tcom
set application [::tcom::ref createobject "InternetExplorer.Application"]
$application Visible 1
proc query {application url} {
if {[string equal $url [$application LocationURL]]} {
$application Refresh
} else {
$application Navigate $url
}
while {[$application Busy]==1} {
after 200
}
set int [::tcom::info interface $application]
set H_Document [$application Document]
puts "dddd==$H_Document"
set I_Document [::tcom::info interface $H_Document]
#all methods the handle supports [$I_Document methods]
set H_body [$H_Document body]
# ??????????
#return [$H_body innerHTML]
}
set url "http://www.sina.com.cn"
regexp {torrentmeta_id=(\d+)} $url match id
set content [query $application $url] |
|