Re: OT: Batch File Help

["Graham Howe" <graham@xxxxxxx>]

--- In ukha_d@y..., Frost Neil <Neil.Frost@s...> wrote:
> Like this....
> 
> copy and paste into notepad, change the URL's and save as .vbs.
> 
> You can run as an AT job or if you need a batch file just put the 
path in.
> 
> eg c:\test.vbs
> 
> Neil
> 
For maximum flexibility try this

'----------------------------
Dim ie
Dim screen_width
Dim screen_height
Dim screen_columns
Dim screen_rows
Dim screen_count
Dim screen_urls

screen_width = 1024
screen_height = 768
screen_columns = 3 ' number of windows horizontally
screen_rows = 2 ' number of windows vertically

screen_urls = array( _
                   
"http://www.theregister.co.uk",
_
                   
"http://www.google.com",
_
                   
"http://www.yahoo.com", _
                   
"http://www.bbc.co.uk", _
                   
"http://www.automatedhome.co.uk",
_
                   
"http://www.letsautomate.com"
_
                  
)

' urls in the array above will be placed in windows
' from left to right and top to bottom

screen_count = -1

Set WshShell = WScript.CreateObject("WScript.Shell")

for thisRow = 0 to screen_rows - 1
    for thisColumn = 0 to screen_columns - 1
        screen_count = screen_count +
1
        Set ie =
CreateObject("InternetExplorer.Application")
        ie.left=thisColumn *
(screen_width/screen_columns)
        ie.top=thisRow *
((screen_height/screen_rows) - 10)
       
ie.height=(screen_height/screen_rows)
       
ie.width=(screen_width/screen_columns)
        ie.menubar=0
        ie.toolbar=0
        ie.navigate
screen_urls(screen_count)
        ie.visible=1
    next
next

Set WshShell = Nothing
Set ie = Nothing
wscript.quit

'----------------------------


Graham

Yahoo! Groups Sponsor

ADVERTISEMENT

http://www.automatedhome.co.uk
Post message: ukha_d@xxxxxxx 
Subscribe:  ukha_d-subscribe@xxxxxxx 
Unsubscribe:  ukha_d-unsubscribe@xxxxxxx 
List owner:  ukha_d-owner@xxxxxxx
List of UKHA Groups here - http://groups.yahoo.com/group/UKHA_Grouplists/

Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.