maximize active window

[sparkbyte]

Anyone know how to find or set the current active window and maximize it?

Thanks

John Fuhrman
Titan Global Services

http://www.titangs.com

 

[dm4ever]

The only thing I've been able to find to get the active window is this:

http://www.jsware.net/jsware/scripts.php3

I know "Word.Application" can maximize a window, but of course you would need to know which window is active and its title to do so.

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[Remou]

The site mentioned by dm4ever includes JSSys3.dll, which can be used to do a multitude of things, including:
GetOpenWindowTitles
GetActiveWindowTitle
SetWindowActive

For example:

Dim sys 
Set sys = CreateObject("JSSys3.Ops")

v = Sys.GetOpenWindowTitles(a)
If v > 0 Then
   For i = 0 To UBound(a)
      If InStr(1, a(i), "textpad", vbTextCompare) <> 0 Then
        s = a(i)
        Exit For
      End If
   Next

   If s <> "" Then
      Set WshShell = CreateObject("WScript.Shell")

      WshShell.AppActivate s
      WScript.Sleep 1000 
      WshShell.SendKeys ("% x")
   End If
End if