запуск бат файла с указанием месторасположения окна

[Yoshimura]

Iska, Я пробовал играться абсолютно разными значениями обоих этих параметров. указывал их всех от маленьких (1-10) до очень больших (999999) и никакого результата на размер окна они не имели.
Повторюсь изменение цвета и положения окна работает исправно. Так же работает изменение параметров ShowWindow = ... Разные параметры влияют на открытие этого окна как положено - свернутое, на весь экран и т.д. Но вот задание размера увы никак. При чем что интересно скорее всего размер задан абсолютно - на ноутбуке (1366х768) и на мониторе 1024х768 окно имеет одинаковый размер в пикселах. Субъективно по относительным размерам окна к экрану. Линейкой не мерял, но на глаз явно видно.

[icefalcon]

Извиняюсь на наглость, прошу добавить лог файл для каждого окна

[Iska]

icefalcon, что Вы подразумеваете под логом? Каким должно быть его содержимое?

[Serguei Kouzmine]

для изменения defaults на use legacy mode
' origin: https://www.tenforums.com/tutorials/94146-enable-disable-legacy-console-mode-all-consoles-windows-10-a.html#option2
' see also: https://stackoverflow.com/questions/8539821/how-to-get-reg-strvalue-from-hkcu-using-vbscript
Const HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")

strKeyPath = "Console"
strValueName = "ForceV2"
oReg.GetDwordValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
Wscript.echo "ForceV2 = " & strValue

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
oReg.SetDwordValue HKEY_CURRENT_USER,strKeyPath,strValueName,0

[Iska]

Serguei Kouzmine, зачем повторно пересоздавать oReg?!

[Serguei Kouzmine]

@Iska наскоро сделано было

' origin: https://www.tenforums.com/tutorials/94146-enable-disable-legacy-console-mode-all-consoles-windows-10-a.html#option2
' see also: https://stackoverflow.com/questions/8539821/how-to-get-reg-strvalue-from-hkcu-using-vbscript
Option Explicit

Const bDebug = false

Const HKEY_CURRENT_USER = &H80000001

Dim strComputer: strComputer = "."

Dim myRegExp: Set myRegExp = New RegExp
myRegExp.IgnoreCase = True
myRegExp.Global = True
myRegExp.Pattern = "^10\..*"

Dim objWMIService: Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Dim objOperatingSystems: Set objOperatingSystems = objWMIService.ExecQuery ("select * from Win32_OperatingSystem")
Dim objOperatingSystem
For Each objOperatingSystem in objOperatingSystems
if bDebug then
Wscript.echo objOperatingSystem.Caption & " " & objOperatingSystem.Version, 0 + 32,"Window Version"
end if
if myRegExp.Test(objOperatingSystem.Version) then
' Enable Use Legacy Console in Windows 10
if bDebug then
Wscript.echo "Will need to Enable Use Legacy Console"
end if

Dim objStdRegProv: Set objStdRegProv = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

Dim strKeyPath: strKeyPath = "Console"
Dim strValueName: strValueName = "ForceV2"
Dim strValue
objStdRegProv.GetDwordValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
if strValue <> 0 then
objStdRegProv.SetDwordValue HKEY_CURRENT_USER,strKeyPath,strValueName,0
if bDebug then
Wscript.echo "Enabled Use Legacy Console in Windows 10"
end if
else
if bDebug then
Wscript.echo "Use Legacy Console is already Enabled"
end If
end if
end if
Next