Click here to Skip to main content
Click here to Skip to main content
Go to top

VBSCRIPT - Window Always On Top

, 22 Feb 2005
Rate this:
Please Sign up or sign in to vote.
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 .

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

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Share

About the Author

Vincegee

United States United States
No Biography provided

Comments and Discussions

 
Question[Message Deleted] Pinmemberunifav14-Jun-06 3:57 
AnswerRe: Thanks, but does not work [XP-SP2] PinmemberVincegee14-Jun-06 4:05 
GeneralRe: Thanks, but does not work [XP-SP2] PinmemberVincegee14-Jun-06 4:05 
GeneralThanks for sharing PinmemberTodd Davis25-Feb-05 3:49 
GeneralPlease nuke this now PinmemberShog922-Feb-05 8:58 
GeneralRe: Please nuke this now PinmemberChristian Graus22-Feb-05 9:03 
GeneralRe: Please nuke this now Pinmemberdeceptus22-Feb-05 15:26 
GeneralRe: Please nuke this now PinmemberShog922-Feb-05 17:15 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Mobile
Web02 | 2.8.140905.1 | Last Updated 22 Feb 2005
Article Copyright 2005 by Vincegee
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid