VBSCRIPT - Window Always On Top

Introduction

This program's purpose is to load the target url and keep it in focus and covering the whole screen until the user selects a button on the screen which closes the window or hit's <ALT-F4>. 

Using the code

The code is pretty self documenting.  Just cut and paste it into a .vbs file.  Change the URL to any address, be it on the web or a network UNC path.< /p>< /p>

'**************************************************************************************************
'This code will open a web browser and point it at the url specified.
'sURL is the url to the website you want to load.
'This vbscript will not allow the user to switch to any other window till this script ends.
'**************************************************************************************************
dim sURL
'**************************************************************************************************
'**************************************************************************************************



'The url to the webpage that you want the user to go to.
sURL= "http://www.google.com"




'**************************************************************************************************
'**************************************************************************************************
'**************************************************************************************************
'!!!!!!!!!!DO NOT CHANGE BELOW HERE UNLESS YOU KNOW WHAT YOU DOING!!!!!!
'**************************************************************************************************
'**************************************************************************************************
'**************************************************************************************************
dim objIE, bExit
bExit = 0
on error resume next

'Create an Internet Explore Browser
Set objIE = CreateObject("InternetExplorer.Application")    

objIE.navigate(surl) 'Navigate to the website

'Set the browser to fullscreen and theatermode
objIE.Fullscreen=true                                

'This makes the window not closable until the user exits the page using a script on the html
'page that has a window.close command or they use Alt-F4
'Setting the TheaterMode on and then off makes the object show properly.

objIE.TheaterMode=true                                        
objIE.TheaterMode=false                            

'Turn off the status bar
objIE.statusbar=false                                

'Turn off the toolbar
objIE.toolbar=false                                    

'Turn off Resizable
objIE.Resizable=false

while bExit=0                                        
    'While the browser is showing loop

    objIE.document.focus()                                
    'Set the browser to focus which brings it to the top.

    objIE.top =0            
    objIE.Left=0                            
    'Sets the window to the upper left hand corner

    if err.number <>0 then                            
        'if an error occured exit the program
    bExit = 1
    end if
wend
'Clean up the objects 

set objIE = nothing                                    

Points of Interest

The key to this working of course is the loop which moves the window into focus and to position 0,0.  It took a little playing around but it works very effectively.

History

Written on 2/22/2004