[решено] Скрипт для Aero Snap.

[teapot08]

есть скрипт выполняющий функцию 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
но беда в том что окна проводника открываются на всю высоту рабочего стола.
возможно ли что то изменить в этом скрипте что бы окна открывались на пол высоты рабочего стола?

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

[Iska]

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».

[teapot08]

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