Спасибо!
]]>ahk_class adobe photoshop CS3
AU3_Spy пользуете?
И ждёт он не активации, а существования.
Скрипт ждёт активации окна adobe photoshop CS3 и не идёт дальше.
]]>
IfWinNotExist, Вариограф ; поиск окна "vg"
{
Run, C:\Program Files (x86)\Variograph 4.6.44\vg.exe ; запуск vg
WinWait, Вариограф
}
WinActivate, Вариограф
FileRead, FileName, D:\work\Script VAR\1.txt
RegExMatch(FileName, "m`a).*>.*", FileName)
Stringreplace,FileName,FileName, >, _
FileName := RegExReplace(FileName, ".jpg|.png|.psd")
DropFiles( "D:\work\Script VAR\готовые\" FileName ".psd", "Вариограф" )
DropFiles(ByRef fileList, windowTitle )
{
offset := 20
VarSetCapacity(dropFiles, StrLen(fileList) + offset, 0)
pDP := &dropFiles
loop, parse, fileList, `n, `r
StrPut(A_LoopField, pDP + offset, StrLen(A_LoopField), "CP0")
, offset += StrLen(A_LoopField) + 4
, NumPut(0, pDP + offset - 4, "UInt")
NumPut(0, pDP + offset, "UInt")
NumPut(20, pDP + 0, "UInt")
NumPut(0, pDP + 16, "UInt")
nSize := offset + 4
hDrop := DllCall("GlobalAlloc", "UInt", 0x42, "UInt", nSize, "Ptr")
pData := DllCall("GlobalLock", "Ptr", hDrop, "Ptr")
DllCall("RtlMoveMemory", "Ptr", pData, "Ptr", pDP, "UInt", nSize)
DllCall("GlobalUnlock", "Ptr", hDrop)
PostMessage, 0x233, hDrop, 0, %ctrl%, %windowTitle%
}
return
F9::
if KeepRunning = y; проверка переменной, она будет отвечать за вкл либо выкл цикла.
KeepRunning = y; запуск, переменная создана (следующее нажатие кнопки F9 кадрирование)
Send ^{vk43}
Sleep, 500
Send {Enter}
KeyWait, F9
IfWinNotExist, Adode Photoshop CS3
Run, C:\Program Files (x86)\Adobe\Adobe Photoshop CS3\Photoshop.exe
WinWait, Adode Photoshop CS3
WinActivate
Send {F12}
ExitApp
Нмкак не смог понять зачем это:
{if KeepRunning = y; проверка переменной, она будет отвечать за вкл либо выкл цикла.
KeepRunning = y; запуск, переменная создана (следующее нажатие кнопки F9 кадрирование)
Если "KeepRunning = y" то зачем ей в этом случае присваивать тоже значение, если оно и так ему равно? И где переменная "KeepRunning" вообще используется?
И зачем перед if вы пишете "{" ?
{
Run, C:\Program Files (x86)\Adobe\Adobe Photoshop CS3\Photoshop.exe
WinActivate
Send {F12}
}Был ли на самом деле при этом запущен Photoshop, знаете только Вы. Если он не был запущен, конечно, нажатие F12 сработает до того, как он успеет загрузиться.
Если он был запущен, и его окно было активно, нажатие F12 должно было передаться.
{ifWinExist, Вариограф ; поиск окна "vg"
{
WinActivate ; активация окна
}
else ; или
{
Run, C:\Program Files (x86)\Variograph 4.6.44\vg.exe ; запуск vg
WinWait, C:\Program Files (x86)\Variograph 4.6.44\vg.exe; ожидание появления окна "vg"
WinActivate ; активация окна
}
}
FileRead, FileName, D:\work\Script VAR\1.txt
RegExMatch(FileName, "m`a).*>.*", FileName)
Stringreplace,FileName,FileName, >, _
FileName := RegExReplace(FileName, ".jpg|.png|.psd")
DropFiles( "D:\work\Script VAR\готовые\" FileName ".psd", "Вариограф" )
DropFiles(ByRef fileList, windowTitle := "", ctrl := "", x := 0, y := 0, NCA := 0)
{
offset := 20
VarSetCapacity(dropFiles, StrLen(fileList) + offset, 0)
pDP := &dropFiles
loop, parse, fileList, `n, `r
StrPut(A_LoopField, pDP + offset, StrLen(A_LoopField), "CP0")
, offset += StrLen(A_LoopField) + 4
, NumPut(0, pDP + offset - 4, "UInt")
NumPut(0, pDP + offset, "UInt")
NumPut(20, pDP + 0, "UInt")
NumPut(x, pDP + 4, "UInt")
NumPut(y, pDP + 8, "UInt")
NumPut(NCA, pDP + 12, "UInt")
NumPut(0, pDP + 16, "UInt")
nSize := offset + 4
hDrop := DllCall("GlobalAlloc", "UInt", 0x42, "UInt", nSize, "Ptr")
pData := DllCall("GlobalLock", "Ptr", hDrop, "Ptr")
DllCall("RtlMoveMemory", "Ptr", pData, "Ptr", pDP, "UInt", nSize)
DllCall("GlobalUnlock", "Ptr", hDrop)
PostMessage, 0x233, hDrop, 0, %ctrl%, %windowTitle%
}
return
F9::
{if KeepRunning = y; проверка переменной, она будет отвечать за вкл либо выкл цикла.
KeepRunning = y; запуск, переменная создана (следующее нажатие кнопки F9 кадрирование)
Send ^{vk43}
Sleep, 500
Send {Enter}
}
KeyWait, F9
{ifWinExist, Adode Photoshop CS3
{
WinActivate
}
else
{
Run, C:\Program Files (x86)\Adobe\Adobe Photoshop CS3\Photoshop.exe
WinActivate
Send {F12}
}
}
Дебаггер:
001: {
001: IfWinExist,Вариограф
004: WinActivate (0.13)
005: }
013: }
015: FileRead,FileName,D:\work\Script VAR\1.txt
016: RegExMatch(FileName, "m).*>.*", FileName)
017: StringReplace,FileName,FileName,>,_
018: FileName := RegExReplace(FileName, ".jpg|.png|.psd")
019: DropFiles( "D:\work\Script VAR\готовые\" FileName ".psd", "Вариограф" )
023: offset := 20
024: VarSetCapacity(dropFiles, StrLen(fileList) + offset, 0)
025: pDP := &dropFiles
027: Loop,parse,fileList,
,
028: StrPut(A_LoopField, pDP + offset, StrLen(A_LoopField), "CP0"), offset += StrLen(A_LoopField) + 4, NumPut(0, pDP + offset - 4, "UInt")
032: NumPut(0, pDP + offset, "UInt")
033: NumPut(20, pDP + 0, "UInt")
034: NumPut(x, pDP + 4, "UInt")
035: NumPut(y, pDP + 8, "UInt")
036: NumPut(NCA, pDP + 12, "UInt")
037: NumPut(0, pDP + 16, "UInt")
039: nSize := offset + 4
040: hDrop := DllCall("GlobalAlloc", "UInt", 0x42, "UInt", nSize, "Ptr")
041: pData := DllCall("GlobalLock", "Ptr", hDrop, "Ptr")
042: DllCall("RtlMoveMemory", "Ptr", pData, "Ptr", pDP, "UInt", nSize)
043: DllCall("GlobalUnlock", "Ptr", hDrop)
045: PostMessage,0x233,hDrop,0,%ctrl%,%windowTitle%
046: }
022: {
047: Return (1.64)
050: {
050: if KeepRunning = y; проверка переменной, она будет отвечать за вкл либо выкл цикла.
055: Send,^{vk43} (0.03)
056: Sleep,500 (0.50)
057: Send,{Enter} (0.01)
059: }
060: KeyWait,F9
061: {
061: IfWinExist,Adode Photoshop CS3
067: Run,C:\Program Files (x86)\Adobe\Adobe Photoshop CS3\Photoshop.exe (0.25)
068: WinActivate
069: Send,{F12} (0.02)
070: }
071: }
072: Exit (17.59)В Вашем коде команда Send встречается только один раз, после активации окна "Вариограф". Добавьте соответствующую команду после активации окна Photoshop.
Это и было сделано ранее)
К примеру
KeyWait, F9
{ifWinExist, Adode Photoshop CS3
{
WinActivate
}
else
{
Run, C:\Program Files (x86)\Adobe\Adobe Photoshop CS3\Photoshop.exe
WinActivate
}
}
Send {F12}
Process, close, Drag and Drop.exe