Отключить все эффекты

[SharkyEXE [?]]

InnI

Здравствуйте.

Честное слово , не обижайтесь , я не знал , даже думать страшно , что x86 приложения могут коряво не работать на x64 системах , всегда компилировал x86 Autoit - всегда отлично работало и на х86, и на х64 - первый случай, когда х86 не работает на х64, честное слово

Я вот тут что обнаружил.

1) Компиляция скрипта как x86

(нажмите для показа/скрытия)

Код: AutoIt [Выделить]

AutoItSetOption ( "WinTitleMatchMode" , 2 )

RunWait("control.exe")

# Ожидаем появления окна с заголовком " Панель управления "
WinWait ( "управления", "" )

# Активируем окно с заголовком " Панель управления "
WinActivate ( "управления", "" )

WinWaitActive ( "управления", "" )

WinSetOnTop ( "управления", "", 1 )

ControlSend("", "", "[CLASS:DirectUIHWND; INSTANCE:2]", "Звук")
ControlSend("", "", "[CLASS:DirectUIHWND; INSTANCE:2]", "^{Enter}")

# Ожидаем появления окна с заголовком " Звук "
WinWait ( "Звук", "" )

# Активируем окно с заголовком " Звук "
WinActivate ( "Звук", "" )

WinWaitActive ( "Звук", "" )

WinSetOnTop ( "Звук", "", 1 )

$iItem = ControlListView("Звук", "", "SysListView321", "FindItem", "Динамики")
ControlListView("Звук", "", "SysListView321", "Select", $iItem)
ControlSend("Звук", "", "SysListView321", "{space}")

WinWaitActive("Свойства: Динамики")

Send("^{tab 2}")
For $i = 0 To 9
  If ControlCommand("Свойства: Динамики", "", "Откл&ючить все эффекты", "IsEnabled") Then ExitLoop
  Sleep(30)
Next
If $i = 10 Then Exit MsgBox(262144, "Ошибка", "Переключатель 'Отключить все эффекты' не найден")
If ControlCommand("Свойства: Динамики", "", "Откл&ючить все эффекты", "IsChecked") Then
# В окне с заголовком " Свойства: Динамики " нажать кнопку " Отмена "
  ControlFocus ( "Свойства: Динамики", "", "[CLASS:Button; INSTANCE:15]" )
  ControlClick ( "Свойства: Динамики", "", "[CLASS:Button; INSTANCE:15]" )
  WinWaitClose("Свойства: Динамики")
# В окне с заголовком " Звук " нажать кнопку " Отмена "
  ControlFocus ( "Звук", "", "[CLASS:Button; INSTANCE:5]" )
  ControlClick ( "Звук", "", "[CLASS:Button; INSTANCE:5]" )
# Закрыть окно с заголовком " Панель управления "
  WinClose("управления")
Else
# Поставить птичку/галочку " Отключить все эффекты "
  ControlClick("Свойства: Динамики", "", "Откл&ючить все эффекты")
# В окне с заголовком " Свойства: Динамики " нажать кнопку " Применить "
  ControlFocus ( "Свойства: Динамики", "", "[CLASS:Button; INSTANCE:16]" )
  ControlClick ( "Свойства: Динамики", "", "[CLASS:Button; INSTANCE:16]" )
# В окне с заголовком " Свойства: Динамики " нажать кнопку " ОК "
  ControlFocus ( "Свойства: Динамики", "", "[CLASS:Button; INSTANCE:14]" )
  ControlClick ( "Свойства: Динамики", "", "[CLASS:Button; INSTANCE:14]" )
  WinWaitClose("Свойства: Динамики")
# В окне с заголовком " Звук " нажать кнопку " ОК "
  ControlFocus ( "Звук", "", "[CLASS:Button; INSTANCE:4]" )
  ControlClick ( "Звук", "", "[CLASS:Button; INSTANCE:4]" )
# Закрыть окно с заголовком " Панель управления "
  WinClose("управления")
EndIf

Итого - запускается и работает на x86 системе, но запускается и не работает на x64 системе

2) Компиляция скрипта как x64 - все тоже самое , что x86 , только в самом верху добавлена строка

(нажмите для показа/скрытия)

Код: AutoIt [Выделить]

#AutoIt3Wrapper_UseX64=y

(нажмите для показа/скрытия)

Код: AutoIt [Выделить]

#AutoIt3Wrapper_UseX64=y

AutoItSetOption ( "WinTitleMatchMode" , 2 )

RunWait("control.exe")

# Ожидаем появления окна с заголовком " Панель управления "
WinWait ( "управления", "" )

# Активируем окно с заголовком " Панель управления "
WinActivate ( "управления", "" )

WinWaitActive ( "управления", "" )

WinSetOnTop ( "управления", "", 1 )

ControlSend("", "", "[CLASS:DirectUIHWND; INSTANCE:2]", "Звук")
ControlSend("", "", "[CLASS:DirectUIHWND; INSTANCE:2]", "^{Enter}")

# Ожидаем появления окна с заголовком " Звук "
WinWait ( "Звук", "" )

# Активируем окно с заголовком " Звук "
WinActivate ( "Звук", "" )

WinWaitActive ( "Звук", "" )

WinSetOnTop ( "Звук", "", 1 )

$iItem = ControlListView("Звук", "", "SysListView321", "FindItem", "Динамики")
ControlListView("Звук", "", "SysListView321", "Select", $iItem)
ControlSend("Звук", "", "SysListView321", "{space}")

WinWaitActive("Свойства: Динамики")

Send("^{tab 2}")
For $i = 0 To 9
  If ControlCommand("Свойства: Динамики", "", "Откл&ючить все эффекты", "IsEnabled") Then ExitLoop
  Sleep(30)
Next
If $i = 10 Then Exit MsgBox(262144, "Ошибка", "Переключатель 'Отключить все эффекты' не найден")
If ControlCommand("Свойства: Динамики", "", "Откл&ючить все эффекты", "IsChecked") Then
# В окне с заголовком " Свойства: Динамики " нажать кнопку " Отмена "
  ControlFocus ( "Свойства: Динамики", "", "[CLASS:Button; INSTANCE:15]" )
  ControlClick ( "Свойства: Динамики", "", "[CLASS:Button; INSTANCE:15]" )
  WinWaitClose("Свойства: Динамики")
# В окне с заголовком " Звук " нажать кнопку " Отмена "
  ControlFocus ( "Звук", "", "[CLASS:Button; INSTANCE:5]" )
  ControlClick ( "Звук", "", "[CLASS:Button; INSTANCE:5]" )
# Закрыть окно с заголовком " Панель управления "
  WinClose("управления")
Else
# Поставить птичку/галочку " Отключить все эффекты "
  ControlClick("Свойства: Динамики", "", "Откл&ючить все эффекты")
# В окне с заголовком " Свойства: Динамики " нажать кнопку " Применить "
  ControlFocus ( "Свойства: Динамики", "", "[CLASS:Button; INSTANCE:16]" )
  ControlClick ( "Свойства: Динамики", "", "[CLASS:Button; INSTANCE:16]" )
# В окне с заголовком " Свойства: Динамики " нажать кнопку " ОК "
  ControlFocus ( "Свойства: Динамики", "", "[CLASS:Button; INSTANCE:14]" )
  ControlClick ( "Свойства: Динамики", "", "[CLASS:Button; INSTANCE:14]" )
  WinWaitClose("Свойства: Динамики")
# В окне с заголовком " Звук " нажать кнопку " ОК "
  ControlFocus ( "Звук", "", "[CLASS:Button; INSTANCE:4]" )
  ControlClick ( "Звук", "", "[CLASS:Button; INSTANCE:4]" )
# Закрыть окно с заголовком " Панель управления "
  WinClose("управления")
EndIf

Итого - запускается и работает на x64 системе, но не запускается и не работает на x86 системе

Вывод - как мне сделать универсальную версию - x86_x64 ,  чтобы на x64 отработало как x64 , а на x86 отработало как x86

[InnI [?]]

В справке по функции ControlListView сказано:
Примечания
Некоторые команды не выполняются, когда используется 32-разрядный процесс AutoIt с применением к 64-разрядному процессу. Аналогично некоторые команды не выполняются когда используется 64-разрядный процесс AutoIt с применением к 32-разрядному процессу.

Объясняю. Получить доступ к информации о пункте х64-списка может только процесс х64. То же самое для х86. Когда вы вызываете окно "Звук" из панели управления, то запускается rundll32.exe *64, которая вызывает окно "Звук" с х64-списком. Работать с этим списком вы можете только из х64 скрипта. Если бы вы использовали

Код: AutoIt [Выделить]

ShellExecute("mmsys.cpl")

то система запустила бы ту rundll32.exe, разрядности которой сам скрипт. И с этой строкой скрипт х86 работал бы на обеих системах. Поэтому, при использовании запуска через панель управления нужно два скрипта для каждой разрядности.

А то, что х64 не запускается на х86, то так и должно быть. С этим вы ничего не сделаете.

[SharkyEXE [?]]

Если бы вы использовали

Код: AutoIt [Выделить]

ShellExecute("mmsys.cpl")

то система запустила бы ту rundll32.exe, разрядности которой сам скрипт. И с этой строкой скрипт х86 работал бы на обеих системах.

Компиляция скрипта как x86

(нажмите для показа/скрытия)

Код: AutoIt [Выделить]

AutoItSetOption ( "WinTitleMatchMode" , 2 )

ShellExecute("mmsys.cpl")

# Ожидаем появления окна с заголовком " Звук "
WinWait ( "Звук", "" )

# Активируем окно с заголовком " Звук "
WinActivate ( "Звук", "" )

WinWaitActive ( "Звук", "" )

WinSetOnTop ( "Звук", "", 1 )

$iItem = ControlListView("Звук", "", "SysListView321", "FindItem", "Динамики")
ControlListView("Звук", "", "SysListView321", "Select", $iItem)
ControlSend("Звук", "", "SysListView321", "{space}")

WinWaitActive("Свойства: Динамики")

Send("^{tab 2}")
For $i = 0 To 9
  If ControlCommand("Свойства: Динамики", "", "Откл&ючить все эффекты", "IsEnabled") Then ExitLoop
  Sleep(30)
Next
If $i = 10 Then Exit MsgBox(262144, "Ошибка", "Переключатель 'Отключить все эффекты' не найден")
If ControlCommand("Свойства: Динамики", "", "Откл&ючить все эффекты", "IsChecked") Then
# В окне с заголовком " Свойства: Динамики " нажать кнопку " Отмена "
  ControlFocus ( "Свойства: Динамики", "", "[CLASS:Button; INSTANCE:15]" )
  ControlClick ( "Свойства: Динамики", "", "[CLASS:Button; INSTANCE:15]" )
  WinWaitClose("Свойства: Динамики")
# В окне с заголовком " Звук " нажать кнопку " Отмена "
  ControlFocus ( "Звук", "", "[CLASS:Button; INSTANCE:5]" )
  ControlClick ( "Звук", "", "[CLASS:Button; INSTANCE:5]" )
# Закрыть окно с заголовком " Панель управления "
  WinClose("управления")
Else
# Поставить птичку/галочку " Отключить все эффекты "
  ControlClick("Свойства: Динамики", "", "Откл&ючить все эффекты")
# В окне с заголовком " Свойства: Динамики " нажать кнопку " Применить "
  ControlFocus ( "Свойства: Динамики", "", "[CLASS:Button; INSTANCE:16]" )
  ControlClick ( "Свойства: Динамики", "", "[CLASS:Button; INSTANCE:16]" )
# В окне с заголовком " Свойства: Динамики " нажать кнопку " ОК "
  ControlFocus ( "Свойства: Динамики", "", "[CLASS:Button; INSTANCE:14]" )
  ControlClick ( "Свойства: Динамики", "", "[CLASS:Button; INSTANCE:14]" )
  WinWaitClose("Свойства: Динамики")
# В окне с заголовком " Звук " нажать кнопку " ОК "
  ControlFocus ( "Звук", "", "[CLASS:Button; INSTANCE:4]" )
  ControlClick ( "Звук", "", "[CLASS:Button; INSTANCE:4]" )
# Закрыть окно с заголовком " Панель управления "
  WinClose("управления")
EndIf
 

Итого - запускается и работает на x86 системе, но запускается и не показывает вкладку "Дополнительные возможности" на x64 системе

[InnI [?]]

SharkyEXE  [?]

не показывает вкладку "Дополнительные возможности" на x64 системе

А это вам уже в Microsoft обращаться нужно. Здесь я вам не помогу.

[SharkyEXE [?]]

InnI

Здравствуйте.

Пожалуйста, я Вас очень прошу, придумайте костыль, обход, ну неужели в 21м веке, в языке Autoit нельзя добиться универсальности, чтобы и х86, и х64

Вы упомянули
Поэтому, при использовании запуска через панель управления нужно два скрипта для каждой разрядности.

Пожалуйста, интегрируете фишку внутри одного кода, я Вас очень прошу

Тот же самый редирект, который я отключал - где нужно мне, работает 100%но

[InnI [?]]

Берёте рабочий скрипт, компилируете его под х86 и переименовываете в TurnOff.exe
Этот же скрипт компилируете под х64 и переименовываете в TurnOffx64.exe
В папке с этими двумя exe создаёте новый скрипт следующего содержания

Код: AutoIt [Выделить]

If @OSArch = "X86" Then
  FileInstall("TurnOff.exe", "*")
  RunWait("TurnOff.exe")
  FileDelete("TurnOff.exe")
Else
  FileInstall("TurnOffx64.exe", "*")
  RunWait("TurnOffx64.exe")
  FileDelete("TurnOffx64.exe")
EndIf

и компилируете этот скрипт под х86. Теперь этот (третий) exe будет содержать в себе оба предыдущих exe и при запуске распакует один из них, запустит и удалит по завершении.

[SharkyEXE [?]]

InnI

Здравствуйте.

Тут вот при тесте бяка вылезла - не нажалась вкладка Дополнительные возможности, в которой есть строка Отключить все эффекты

Пожалуйста, я Вас очень прошу, сделайте поиск вкладки Дополнительные возможности и переключить на нее, т.е. использовать не

(нажмите для показа/скрытия)

Код: AutoIt [Выделить]

Send("^{tab}")
Send("^{tab}")

а что-то типа того, что используется для поиска строки "Динамики"

(нажмите для показа/скрытия)

Код: AutoIt [Выделить]

$iItem = ControlListView("Звук", "", "SysListView321", "FindItem", "Динамики")
ControlListView("Звук", "", "SysListView321", "Select", $iItem)
ControlSend("Звук", "", "SysListView321", "{space}")

[InnI [?]]

Код: AutoIt [Выделить]

; ожидание элемента SysTabControl32
For $i = 0 To 9
  If ControlCommand("Свойства: Динамики", "", "SysTabControl321", "IsVisible") Then ExitLoop
  Sleep(30)
Next

; теперь выбирайте:

; или просто переключение на вкладку справа (2 раза)
ControlCommand("Свойства: Динамики", "", "SysTabControl321", "TabRight")
ControlCommand("Свойства: Динамики", "", "SysTabControl321", "TabRight")

; или поиск по названию и клик по вкладке
#include <GuiTab.au3>
$hTab = ControlGetHandle("Свойства: Динамики", "", "SysTabControl321")
$iTabItem = _GUICtrlTab_FindTab($hTab, "Дополнительные возможности")
If $iTabItem = -1 Then Exit MsgBox(262144, "Ошибка", "Вкладка 'Дополнительные возможности' не найдена")
_GUICtrlTab_ClickTab($hTab, $iTabItem)