# IE Remote Control
package require tcom
set ie [tcom::ref createobject InternetExplorer.Application]
proc ie {cmd args} {
global ie
switch $cmd {
go {$ie Navigate [lindex $args 0]}
where {$ie LocationURL}
html {[[$ie Document] body] innerHTML}
help {join [[::tcom::info interface $ie] methods] \n}
}
}
| enter categories here |
|---|