Серый форум — AHK: Некорректные действия скрипта

Re: AHK: Некорректные действия скрипта

null@example.com (Maxfashko) — Thu, 06 Dec 2012 09:49:47 +0000

Мысль с классом правильная:)
spy показал ahk_class adobe photoshop
его и использовал=)

Спасибо!

Re: AHK: Некорректные действия скрипта

null@example.com (serzh82saratov) — Thu, 06 Dec 2012 09:47:29 +0000

И что по счёт переменной "KeepRunning".

Re: AHK: Некорректные действия скрипта

null@example.com (serzh82saratov) — Thu, 06 Dec 2012 09:45:15 +0000

Значит неправильно задан критерий поиска. Пробуйте:

ahk_class adobe photoshop CS3

AU3_Spy пользуете?
И ждёт он не активации, а существования.

Re: AHK: Некорректные действия скрипта

null@example.com (Maxfashko) — Thu, 06 Dec 2012 09:37:27 +0000

serzh82saratov

Скрипт ждёт активации окна adobe photoshop CS3 и не идёт дальше.

Re: AHK: Некорректные действия скрипта

null@example.com (serzh82saratov) — Thu, 06 Dec 2012 07:55:15 +0000

Maxfashko посмотрите на этот код:


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 вы пишете "{" ?

Re: AHK: Некорректные действия скрипта

null@example.com (ypppu) — Thu, 06 Dec 2012 07:34:59 +0000

В ходе проверки условия ifWinExist, Adode Photoshop CS3 скрипт выявил, что такого окна не существует. Поэтому он перешёл к выполнению секции:

     {
      Run, C:\Program Files (x86)\Adobe\Adobe Photoshop CS3\Photoshop.exe
      WinActivate
Send {F12}
     }

Был ли на самом деле при этом запущен Photoshop, знаете только Вы. Если он не был запущен, конечно, нажатие F12 сработает до того, как он успеет загрузиться.
Если он был запущен, и его окно было активно, нажатие F12 должно было передаться.

Re: AHK: Некорректные действия скрипта

null@example.com (Maxfashko) — Thu, 06 Dec 2012 02:14:53 +0000

Вот

{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)

Re: AHK: Некорректные действия скрипта

null@example.com (ypppu) — Wed, 05 Dec 2012 18:36:15 +0000

Выложите ещё раз полный код и отчёт дебаггера.

Re: AHK: Некорректные действия скрипта

null@example.com (teadrinker) — Wed, 05 Dec 2012 18:17:27 +0000

Maxfashko, используй знаки препинания.

Re: AHK: Некорректные действия скрипта

null@example.com (Maxfashko) — Wed, 05 Dec 2012 18:04:48 +0000

Он пролетает мимо send
завершая процесс

Re: AHK: Некорректные действия скрипта

null@example.com (ypppu) — Wed, 05 Dec 2012 15:31:01 +0000

А что показывает дебаггер?

Re: AHK: Некорректные действия скрипта

null@example.com (Maxfashko) — Wed, 05 Dec 2012 15:23:18 +0000

ypppu пишет:

В Вашем коде команда 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

Re: AHK: Некорректные действия скрипта

null@example.com (ypppu) — Wed, 05 Dec 2012 13:54:08 +0000

В Вашем коде команда Send встречается только один раз, после активации окна "Вариограф". Добавьте соответствующую команду после активации окна Photoshop.

Re: AHK: Некорректные действия скрипта

null@example.com (Maxfashko) — Wed, 05 Dec 2012 13:14:40 +0000

именно в photoshop, он активен

Re: AHK: Некорректные действия скрипта

null@example.com (ypppu) — Wed, 05 Dec 2012 12:35:41 +0000

Не посылаются нажатия клавиш в окно Variograph или в Photoshop?