• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 455
  • Last Modified:

how to launch multiple web browsers evenly on my screen

Hi experts,

Have you guys ever used that website called kayak.com where you can book flight or hotel reservations. You know so you enter in your desired flight date and then when you submit your info. It gives you your flight price on various websites so you can compare.

So for example if you picked expedia, orbitz, travelcity and priceline  then after you submitted your info, 4 browser windows open on my screen with the browser width spaced evenly.
So my default web browser opens with expedia on it taking up 25% width of my screen
and
another web browser window opens with orbitz on it taking up 25% width of my screen
and
another web browser window opens with travelocity on it taking up 25% width of my screen
and
another web browser window opens with priceline on it taking up 25% width of my screen

So my whole screen has bees been taking up with these 4 web browser windows right next to each other.

Anyone know how to do that?

For example, I have the following batch file called   Test1.bat

Here is the code:
set url=http://www.google.com

if exist "C:\Program Files (x86)\Mozilla Firefox\firefox.exe" start "" "C:\Program Files (x86)\Mozilla Firefox\firefox.exe " %url%
if exist "%ProgramFiles(x86)%\Opera\opera.exe" start "" "%ProgramFiles(x86)%\Opera\opera.exe " %url%
if exist "%ProgramFiles(x86)%\Safari\Safari.exe" start "" "%ProgramFiles(x86)%\Safari\Safari.exe " %url%
if exist "%USERPROFILE%\AppData\Local\Google\Chrome\Application\chrome.exe" start "" "%USERPROFILE%\AppData\Local\Google\Chrome\Application\chrome.exe " %url%
if exist "C:\Program Files\Internet Explorer\iexplore.exe" start "" "C:\Program Files\Internet Explorer\iexplore.exe " %url%

Open in new window


When I click on the batch file my 5 web browsers(IE, Firefox, Chrome, Safari, Opera) all launch simultaneously and they launch on www.google.com

Is there a way to modify this so these 5 web browsers launch like the windows on kayak.com?

So I want these 5 web browsers to launch spaced evenly on my screen?
Or is there a better way to do this?
0
maqskywalker
Asked:
maqskywalker
1 Solution
 
Michel PlungjanIT ExpertCommented:
How would you space 5 browsers? You can space an even number.

Anyway, since only IE is a COM object you would need to find a launcher for each. For example XULLauncher for Firefox

For IE only, this saved as launch.vbs would launch IE according to screen size

(Apologies for the not efficient code)

Option Explicit
Dim objIE, objIE1, objIE2, objIE3, objWshShell, strMessage, intResult

' from http://www.informit.com/articles/article.aspx?p=1170490&seqNum=7

' Set up the Automation objects
Set objWshShell = WScript.CreateObject("WScript.Shell")

Set objIE = WScript.CreateObject("InternetExplorer.Application")


' Navigate to a page and customize the browser window

objIE.Navigate "about:blank"
objIE.Toolbar   = False
objIE.StatusBar = False
objIE.MenuBar   = False


' Twiddle thumbs while the page loads
Do While objIE.Busy
Loop

objIE.Top    = 0
objIE.Left   = 0
objIE.Height = objIE.Document.parentWindow.screen.availHeight/2
objIE.Width  = objIE.Document.parentWindow.screen.availWidth/2
objIE.Visible = True
Set objIE = Nothing

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

Set objIE1 = WScript.CreateObject("InternetExplorer.Application")


' Navigate to a page and customize the browser window

objIE1.Navigate "about:blank"
objIE1.Toolbar   = False
objIE1.StatusBar = False
objIE1.MenuBar   = False


' Twiddle thumbs while the page loads
Do While objIE1.Busy
Loop

objIE1.Top    = 0
objIE1.Left   = objIE1.Document.parentWindow.screen.availWidth/2
objIE1.Height = objIE1.Document.parentWindow.screen.availHeight/2
objIE1.Width  = objIE1.Document.parentWindow.screen.availWidth/2
objIE1.Visible = True
Set objIE1 = Nothing

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


Set objIE2 = WScript.CreateObject("InternetExplorer.Application")


' Navigate to a page and customize the browser window

objIE2.Navigate "about:blank"
objIE2.Toolbar   = False
objIE2.StatusBar = False
objIE2.MenuBar   = False


' Twiddle thumbs while the page loads
Do While objIE2.Busy
Loop

objIE2.Top    = objIE2.Document.parentWindow.screen.availHeight/2
objIE2.Left   = 0
objIE2.Height = objIE2.Document.parentWindow.screen.availHeight/2
objIE2.Width  = objIE2.Document.parentWindow.screen.availWidth/2
objIE2.Visible = True
Set objIE2 = Nothing

Set objWshShell = Nothing

Open in new window

0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now