darnt 2003-07-09 08:10
Just want to share my setup.
I run 3 monitors all on 1600x1200 so my total desktop space is 4800x1200. Most of the time you don't want a browser or file explorer fullscreen. 1600x1200 is a very nice resolution for 2 windows
vertically tiled.
I have created 6 simple scripts to place the active window at one side of a monitor
example of shortcut 1, places the window on the left monitor at the left side.
Dim wnd
Set wnd = CreateObject("UltraMon.Window")
If wnd.GetForegroundWindow() = True Then
wnd.left = -1600
wnd.top = 0
wnd.Height = 1172
wnd.Width = 800
wnd.ApplyChanges 0
End If
This file is saved as .vbs and I have used the extra keys I have on my logitech keyboard to start these scripts.
So now I have 6 buttons on my keyboard to place the active window on 1 of my monitors at left or right, very handy when browsing the web with multiple browsers open at the same time.
Also created one more script to get a 1024x... size of the active window because some sites need this resoltion
example:
Dim wnd
Set wnd = CreateObject("UltraMon.Window")
If wnd.GetForegroundWindow() = True Then
wnd.Width = 1024
if wnd.left = -800 or wnd.left= 800 or wnd.left = 2400 then
wnd.left = wnd.left - 224
end if
wnd.ApplyChanges 0
End If
|
