[решено] Скрипт для Aero Snap. - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Хочу все знать (http://forum.oszone.net/forumdisplay.php?f=23)

- - [решено] Скрипт для Aero Snap. (http://forum.oszone.net/showthread.php?t=291746)

Скрипт для Aero Snap.

есть скрипт выполняющий функцию Aero Snap одним нажатием, то есть один клик и два окна проводника открыты.
вот скрипт:

скрипт

Dim tesbs
Set tesbs = CreateObject("Shell.Application")

tesbs.MinimizeAll

tesbs.ShellExecute "explorer.exe", "D:\", 1
tesbs.ShellExecute "explorer.exe", "C:\", 1

WSH.Sleep 2000

tesbs.TileVertically

но беда в том что окна проводника открываются на всю высоту рабочего стола.
возможно ли что то изменить в этом скрипте что бы окна открывались на пол высоты рабочего стола?

п.с. про тк в курсе но вопрос не об этом.

Код:

Option Explicit



Dim objWebBrowser



With WScript.CreateObject("Shell.Application")

        .MinimizeAll

        WScript.Sleep 500

        

        .Explore "c:\"

        .Explore "d:\"

        WScript.Sleep 500

        

        .TileVertically

        WScript.Sleep 500

        

        For Each objWebBrowser In .Windows

                If StrComp(objWebBrowser.FullName, "C:\WINDOWS\Explorer.EXE", vbTextCompare) = 0 Then

                        Select Case LCase(objWebBrowser.document.Folder.self.Path)

                                Case "c:\", "d:\"

                                        objWebBrowser.Height = objWebBrowser.Height / 2

                        End Select

                End If

        Next

End With



WScript.Quit 0

Если не успевает отрабатывать — увеличьте время задержек в «WScript.Sleep».

спасибо.
всё работает как надо.