Splash box acting funny with IE 7 installed

Bill Mosca, MS Access MVP

unread,

May 2, 2008, 2:36:34 PM5/2/08

to

I wrote a script to include a splash box while a file is downloading off a
server within our LAN. The box is a few inches wide and tall. It worked fine
until I installed IE7. Now it fills the screen. Any error messages are
hidden behind it so the user has no clue as to why the splash box stays open
forever.

Is there a way to fix this or am I stuck with a monster box?

Here is the code:

Function SplashBox(sTitle)
'Purpose : Creates Splash screen while front end downloads.
'DateTime : 1/11/2007 11:18
'Author : Bill Mosca
Dim s, sBody, item
Set oIE = CreateObject("InternetExplorer.Application")
With oIE
.FullScreen = True
.Toolbar = False: .RegisterAsDropTarget = False
.StatusBar = False: .Navigate ("about:blank")
Do Until .ReadyState = 4: WScript.Sleep 100: Loop
.Width = 300: .Height = 200
With .Document
With .ParentWindow.Screen
oIE.Left = (.availWidth - oIE.Width) \ 2
oIE.Top = (.availheight - oIE.Height) \ 2
End With

sBody = "Please wait while latest version of Project Management
Tracker loads..."

s = "<html><head><title>" & sTitle _
& "</title></head><script language=vbs>bWait=true<" &
"/script>" _
& "<body bgColor=#0d8499><center>" _
& "<center> </center>" _
& "<center> </center>" _
& "<center>" _
& "<font face=" & Chr(34) & "Comic Sans MS" & Chr(34) & "
color=#d4d4d4>" _
& sBody & "</font><p>" _
& "<img alt=" & Chr(34) & Chr(34) _
& "src=" & Chr(34) & "file:///" & cSVRPATH & "\" & CANIGIF
& Chr(34) _
& "align=bottom>"
s = s & "</center></body></html>"

.Open
.Write (s)
.Close
Do Until .ReadyState = "complete": WScript.Sleep 50: Loop
With .body
.Scroll = "no"
.Style.BorderStyle = "outset"
.Style.BorderWidth = "3px"
End With
oIE.Visible = True
CreateObject("Wscript.Shell").AppActivate sTitle
On Error Resume Next
On Error GoTo 0
End With
End With

End Function

--
Bill Mosca, MS Access MVP
http://mvp.support.microsoft.com/profile/Bill.Mosca
http://tech.groups.yahoo.com/group/MS_Access_Professionals
http://www.thatlldoit.com

Bill Mosca, MS Access MVP

unread,

May 2, 2008, 2:39:31 PM5/2/08

to

I forgot to add that this is using Win XP Pro.

--
Bill Mosca, MS Access MVP
http://mvp.support.microsoft.com/profile/Bill.Mosca
http://tech.groups.yahoo.com/group/MS_Access_Professionals
http://www.thatlldoit.com

"Bill Mosca, MS Access MVP" <bill...@domain.com> wrote in message
news:%23uMqyNI...@TK2MSFTNGP02.phx.gbl...

Tom Lavedas

unread,

May 2, 2008, 4:33:01 PM5/2/08

to

On May 2, 2:39 pm, "Bill Mosca, MS Access MVP" <billmo...@domain.com>
wrote:

> I forgot to add that this is using Win XP Pro.
>
> --

> Bill Mosca, MS Access MVPhttp://mvp.support.microsoft.com/profile/Bill.Moscahttp://tech.groups.yahoo.com/group/MS_Access_Professionalshttp://www.thatlldoit.com
>
> "Bill Mosca, MS Access MVP" <billmo...@domain.com> wrote in messagenews:%23uMqyNI...@TK2MSFTNGP02.phx.gbl...

This code looks like it was derived from the example of an editable
message box at my website (that's what it's there for), so I can state
unequivocally that with IE 7 the line of code ...

.Fullscreen = True

must be removed or commented out. Supposedly for security reasons
that little hack was purposely defeated in IE7.

This will mean the title caption and border will remain visible.
Therefore, you may also want to add some lines to explicitly remove as
much other 'chrome' as possible (see the IE7 update to the Password
example at my website). That is ...

' Not in IE7 .FullScreen = True

.Toolbar = False
.RegisterAsDropTarget = False
.StatusBar = False

.Menubar = False
.Addressbar = False

.Navigate ("about:blank")

Oh, and the border style statement won't have any effect anymore,
either.

Tom Lavedas
===========
http://members.cox.net/tglbatch/wsh/