Что нового

Как можно переключиться на нужную вкладку зная заголовки вкладок

Автор
B

bigarN

Новичок
Сообщения
50
Репутация
0
Dm666
Спасибо. Запустил. Пишет Can`t find window". :scratch:
Подумал может проблема в фотошопе.Не.

Нашел проблему в этой строке
$aPos = WinGetPos($sClass, "Actions") а конкретно в "Actions"

Исправил так ( у вас ведь английская версия )

$aPos = WinGetPos($sClass, "Операции") не то.Потом все "Actions" в скрипте заменил на "Операции".
Запустил скрипт и
Все ОК. Вы выполнили невыполнимую. :smile:
Одно но. Как сделать чтоб скрипт во всех версиях работал. :-[
 

Dm666

Осваивающий
Сообщения
221
Репутация
48
bigarN
Как сделать чтоб скрипт во всех версиях работал.
Проверить, понятное дело, не могу, но должно работать
Код:
Opt("WinDetectHiddenText", 1) ;0=don't detect, 1=do detect
HotKeySet('{Esc}', '_Exit')
HotKeySet('{F2}', '_Tabs')
Global $sClass = "[CLASS:OWL.TabGroup]"

While 1
	Sleep(100)
WEnd

Func _Tabs()
; Check Photoshop is started
	If Not ProcessExists("photoshop.exe") Then 
		MsgBox(48, "Adobe Photoshop CS3 required", "Please launch Adobe Photoshop CS3" & @CRLF & "[ESC] - Exit script")
		Return
	EndIf

; Check Photoshop language
	If WinExists($sClass, "Actions") Then 
		Local $sText = "Actions"
	ElseIf WinExists($sClass, "Операции") Then
		Local $sText = "Операции"
	Else
		MsgBox(16, "Fatal Error", "Cant detect Photoshop language")
		Exit
	EndIf

	WinActivate($sClass, $sText)
	If WinGetState($sClass, $sText) = 13 Then Return ; Do nothing if window inaccessible

	$aPos = WinGetPos($sClass, $sText)
	If Not IsArray($aPos) Then
		MsgBox(16, "Error", "Cant find window")
		Return
	EndIf

	BlockInput(1)
	If ControlCommand($sClass, $sText, "[CLASS:OWL.Palette; INSTANCE:1]", "IsVisible", "") = 1 Then ; Actions active
		MouseClick("", $aPos[0] + 30, $aPos[1] - 10, 1, 1) ;His
	Else
		MouseClick("", $aPos[0] + 85, $aPos[1] - 10, 1, 1) ; Act
	EndIf
	BlockInput(0)
EndFunc   ;==>_Tabs

Func _Exit()
	Exit
EndFunc   ;==>_Exit
 
Автор
B

bigarN

Новичок
Сообщения
50
Репутация
0
Dm666
Привет. :smile: Проверил скрипт ,работает . :ok:
Если будут еще какие нить дополнения прошу сообщить. Буду рад. :IL_AutoIt_1:
Остается сказать с уважением, Спасибо вам большое. Удачи вам.
 
Верх