Saturday, July 11, 2009

KiXtart: Open Browser / Display Web Page

Great for login banners and bulletins...


Function OpenWebPage($url, $show, Optional $height, $width, $fixed)
$ie = CreateObject("InternetExplorer.Application")
If $ie <> 0 and @ERROR = 0
$ie.Navigate($url)
If $show = 1
If $height > 0
$ie.Height = $height
EndIf
If $width > 0
$ie.Width = $width
EndIf
If $fixed = 1
$ie.Resizable = 0
$ie.StatusBar = 0
$ie.Toolbar = 0
EndIf
$ie.Visible = 1
Sleep 1
Else
? "(openwebpage): accessing document in silent-mode"
Sleep 1
$ie.Quit
$ie = 0
EndIf
Else
? "(openwebpage): error / unable to launch IE application object"
EndIf
EndFunction

No comments:

Post a Comment