Maximize (almost) All Windows vbscript

[Fredledingue]

-Copy-Paste this into notepad and save it as "MaximizeAll.vbs"

-Create a shortcut or copy the file to the quick launch folder (if you use quick launch).

As you will see it will ask how many windows to maximize... not realy fully automatic but I don't know how to count the number of open windows in vbs and I don't know if it's possible (without 3d party dll).

If you insert a value too high or too low, it won't cause any error. So let's say you have 9 windows open and don't want to bother counting them, dash "10" in the input box and click "ok".

Note:

Reduce or increase this value:

wscript.sleep 200

to fit better with the speed of your computer.

On my machine these values work perfectly until I got some crazy errors from the applications I want to maximize but I must say that my system is barely stable at the moment and is not a reference.

set WshShell=wscript.createobject("wscript.shell")
Title = "Maximize (almost) all"
n = InputBox("How many windows do you want to maximize?", Title, 2, 5120, 3840)
For i=1 To n
Tabs = Tabs & "{TAB}"
WshShell.SendKeys "%(" & Tabs & ")"
wscript.sleep 100
WshShell.SendKeys "% x" 
wscript.sleep 200
Next
msgbox "ok"

HF

[PROBLEMCHYLD]

Thanks Fred it works great

I really appreciate your hard work and dedication thanks

One thing

If i open Freecell and use the VB script it Maximize it but

after i close it

it returns to it default settings is there a way to keep it Maximize.

Edited July 8, 2006 by PROBLEMCHYLD

[Fredledingue]

I don't know.

Can you spot an ini file or a reg key where the windows statu of freecell is stored?

If not, it's hardcoded in freecell.

What I can do is to write a VBS to launch freecell maximized. Then you create a shortcut to this VBS instead of the freecell exe.

[PROBLEMCHYLD]

There is no ini file for it.

[randiroo76073]

Easiest way is to create shortcut, rt clk to properties,go to run box and set at maximised

[Fredledingue]

Of course! I forgot that!