Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
;******* :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