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

[teapot08]

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

вот скрипт:



скрипт

[spoiler]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[/spoiler]




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

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



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

[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]

спасибо.

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