WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

OLE with MSIE
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Internet Explorer No Title Bar Or Options


This example deminstates how to remove the Title Bar, Minimize, Maximize and Close Buttons. in an Internet Explorer Browser!

;*******
:Example
;*******

title="Test IE"
drv=StrSub(DirWindows (0), 1, 3)
tempdir=RegQueryStr(@REGCURRENT,"Environment[Temp]")
HTMLfile=StrCat("%tempdir%\test.html")

winmsg="This is an Internet Explorer Window with all options removed"
tmp='<title>Test IE</title><style>body{margin:3px3px3px3px;border-Top:4px;border-Left:4px;border-Right:3px;border-Bottom:3px;border-color:Darkblue;border-style:solid;padding:10;}'
tmp=StrCat(tmp,'.box{margin:3px3px3px3px;border-Top:1px;border-Left:1px;border-Right:1px;border-Bottom:1px;border-color:Darkblue;border-style:solid;padding:10;background:#f0f4f8;width:200;text-align:center;color:red;font-weight:bold;')
HTMLdata=StrCat(tmp,'cursor:hand;}</style><body scroll=no bgcolor=#D9E0F2><center>',winmsg,'<br><br><div class=box onclick="window.opener=null; window.close(); return false" >Click here to close!</div>')

FilePut(HTMLfile, HTMLdata)

Browser1 = ObjectOpen("InternetExplorer.Application")
Browser1.Fullscreen = @TRUE                    ;Using this option Disables the Title Bar,
                                               ;Minimize, Maximize and Close Buttons.
Browser1.navigate(HTMLfile)

While 1
   a=Browser1.ReadyState
   b=Browser1.Busy
   If a==4 && b==0  Then Break
   TimeDelay(.1)
   Continue
EndWhile


WinPlaceSet(@NORMAL, title, "100 100 285 250")  ;This is where we change the Screen from
                                                ;Fullscreen to the size we want.
Browser1.visible = @TRUE
IntControl (54, title, 1, 0, 0)                 ;This sets the Window to Always on top!

Return


Article ID:   W16124
File Created: 2004:03:30:15:42:56
Last Updated: 2004:03:30:15:42:56