Call IETag(s): WSH VBScript


[iewithurl.vbs]

' Display a URL 
Dim IE
Set IE = CreateObject("InternetExplorer.Application")

With IE
        .left=200
        .top=200
        .height=400
        .width=400
        .menubar=0
        .toolbar=1   
        .statusBar=0
        .navigate "http://tactika.com/realhome/realhome.html" 
        .visible=1
End With

'wait a while until IE as finished to load
Do while IE.busy
loop

Set IE = Nothing

WScript.Quit(0)

[iewithhtml.vbs]

' start IE, and create HTML on-the-fly

Dim IE
Set IE = CreateObject("InternetExplorer.Application")

With IE
        .left=200
        .top=200
        .height=140
        .width=250
        .menubar=0
        .toolbar=0
        .statusBar=0
        .navigate "About:Blank"
        .visible=1
End With

'wait a while until IE as finished to load
Do while IE.busy
loop

With IE.document
        .Open
        .WriteLn "<HTML><HEAD>"
        .WriteLn "<TITLE>HELLO!</TITLE></HEAD>"
        .WriteLn "<BODY>"
        .WriteLn "<b>VBScript says </b> Hello world"
        .WriteLn "</BODY>"
        .WriteLn "</HTML>"
        .Close
End With

Set IE = Nothing
WScript.Quit(0)
Thanks to E. Girardet for this tip
blog comments powered by Disqus