15 Maj 2008

Lista tabel na stronie

Dim ie4, fso, file
Dim tables,trs,tds

Set ie4=CreateObject("InternetExplorer.Application")
ie4.navigate ("http://www.moa.waw.pl/")

Do while ie4.ReadyState<>4
Loop

ie4.width=640
ie4.height=480
ie4.visible=1
'WebHTML = ie4.document.body.InnerHTML - zrzuca do zmiennej WebHTML, tresc strony z BODY
Set tables = ie4.document.all.tags("TABLE")
cnt_tables = tables.length

for j = 0 to (cnt_tables-1)
  WScript.echo tables(j).innerHTML
next