Back again. Made the IE sreen work. Just fill in the blanks or call before the 'sleeps'. Good luck
code:
break on
setconsole("HIDE")
flushkb
;Creating the IE form
$ie = olecreateobject ( "internetexplorer.application" )
$= oleputproperty ( $ie, "addressbar", "s", "0" )
$= oleputproperty ( $ie, "menubar", "s", "0" )
$= oleputproperty ( $ie, "statusbar", "s", "0" )
$= oleputproperty ( $ie, "toolbar", "s", "0" )
$= oleputproperty ( $ie, "width", "s", "520" )
$= oleputproperty ( $ie, "height", "s", "90" )
$= oleputproperty ( $ie, "left", "s", "40" )
$= oleputproperty ( $ie, "top", "s", "60" )
$= olecallfunc ( $ie, "Navigate", "s", "about:blank" );Getting the IE form
$= oleputproperty ( $ie, "Visible", "s", "1" )
while olegetproperty ( $ie, "Busy" ) <> "0" loop
$doc = val ( "&" + olegetproperty ( $ie, "Document" ) )
$= olecallfunc ( $doc, "open" )
;Style defined
$HTMLCode = '<html>'+chr(10)+
'<div id="Layer1" style="position:absolute; width:420px; height:20px; z-index:2; left: 43px; top: 16px; visibility: visible"> '+chr(10)+
'<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Progress Indicator</b></font></div></div>'+chr(10)+
'<div id="Layer1" style="position:absolute; width:420px; height:10px; z-index:2; left: 43px; top: 36px; visibility: visible"> '+chr(10)+
'<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">'+chr(10)
$HTMLProgress = '<img src="10px.gif" width="40" height="10">'
;Fill the IE Screen
$= olecallfunc ( $doc, "write", "s", "$HTMLCode" )
sleep 1
$= olecallfunc ( $doc, "write", "s", "$HTMLProgress" )
sleep 1
$= olecallfunc ( $doc, "write", "s", "$HTMLProgress" )
sleep 1
$= olecallfunc ( $doc, "write", "s", "$HTMLProgress" )
sleep 1
$= olecallfunc ( $doc, "write", "s", "$HTMLProgress" )
sleep 1
$= olecallfunc ( $doc, "write", "s", "$HTMLProgress" )
sleep 1
$= olecallfunc ( $doc, "write", "s", "$HTMLProgress" )
sleep 1
$= olecallfunc ( $doc, "write", "s", "$HTMLProgress" )
sleep 1
$= olecallfunc ( $doc, "write", "s", "$HTMLProgress" )
sleep 1
$= olecallfunc ( $doc, "write", "s", "$HTMLProgress" )
sleep 1
$= olecallfunc ( $doc, "write", "s", "$HTMLProgress" )
sleep 2
$= olecallfunc ( $doc, "close" )
$= olecallfunc ( $ie, "Quit")
$= olereleaseobject ( $ie )
sleep 1
exit
