Серый форум — AHK: Избежать прерывания процесса выполнения

Re: AHK: Избежать прерывания процесса выполнения

null@example.com (YMP) — Wed, 02 Jul 2014 03:01:32 +0000

Если всё ещё не понятно, куда совать, то можно так:


#SingleInstance off

Param = %1%
IsFunc(Param) ? %Param%() : proc1() 
Return

proc1()  {
    Hotkey, $vk20, Sub1                                                
    Run, %A_ScriptFullPath% proc2 
    loop
        ToolTip % A_ThisFunc "`n" A_TickCount "`nProcessId = " DllCall("GetCurrentProcessId"),111,111
}

proc2()  {
    loop
        ToolTip % A_ThisFunc "`n" A_TickCount "`nProcessId = " DllCall("GetCurrentProcessId"),111,222
}

Sub1:  
Loop  
{
    if not GetKeyState("vk20", "P")  
        break 
send {Space down}
sleep, 20
send {Space up}
sleep, 20
send {Space down}
sleep, 20
send {Space up}
sleep, 20
send {Space down}
sleep, 20    
send {Space up}
sleep, 20
send {Space down}
sleep, 20
send {Space up}
sleep, 20
send {Space down}
sleep, 20
send {Space up}
sleep, 20
send {Space down}
sleep, 20
send {Space up}
sleep, 20
}
return

Re: AHK: Избежать прерывания процесса выполнения

null@example.com (Dworkin) — Tue, 01 Jul 2014 22:32:07 +0000

teadrinker пишет:

Dworkin, что у нас ставится в конце предложения?

Всего одну точку пропустил) Изменил. Можете удалять эти сообщения.

Re: AHK: Избежать прерывания процесса выполнения

null@example.com (teadrinker) — Tue, 01 Jul 2014 22:06:22 +0000

Dworkin, что у нас ставится в конце предложения?

Re: AHK: Избежать прерывания процесса выполнения

null@example.com (Dworkin) — Tue, 01 Jul 2014 21:15:17 +0000

Прочитал в справке про Hotkey и все равно не понял куда его сувать.

Re: AHK: Избежать прерывания процесса выполнения

null@example.com (serzh82saratov) — Tue, 01 Jul 2014 20:24:14 +0000

Не охота сейчас вникать, но у тебя ведь хоткей $vk20:: сразу в 2 скриптах.
Думаю что нужно использовать команду Hotkey только в нужном.

AHK: Избежать прерывания процесса выполнения

null@example.com (Dworkin) — Tue, 01 Jul 2014 19:18:01 +0000

На этом сайте нашел скрипт для запуска двух процессов из одного файла. Он мне как раз нужен был.

#SingleInstance off

Param = %1%
IsFunc(Param) ? %Param%() : proc1() 
Return

proc1()  {  
    Run, %A_ScriptFullPath% proc2 
    loop
        ToolTip % A_ThisFunc "`n" A_TickCount "`nProcessId = " DllCall("GetCurrentProcessId"),111,111
}

proc2()  {
    loop
        ToolTip % A_ThisFunc "`n" A_TickCount "`nProcessId = " DllCall("GetCurrentProcessId"),111,222
}

Но мне как-то нужно туда еще запихнуть этот скрипт:

$vk20::  
Loop  
{
    if not GetKeyState("vk20", "P")  
        break 
send {Space down}
sleep, 20
send {Space up}
sleep, 20
send {Space down}
sleep, 20
send {Space up}
sleep, 20
send {Space down}
sleep, 20    
send {Space up}
sleep, 20
send {Space down}
sleep, 20
send {Space up}
sleep, 20
send {Space down}
sleep, 20
send {Space up}
sleep, 20
send {Space down}
sleep, 20
send {Space up}
sleep, 20
}
return

Если их соединить таким образом:

#SingleInstance off

Param = %1%
IsFunc(Param) ? %Param%() : proc1() 
Return

proc1()  {  
    Run, %A_ScriptFullPath% proc2 
    loop
        ToolTip % A_ThisFunc "`n" A_TickCount "`nProcessId = " DllCall("GetCurrentProcessId"),111,111
}

proc2()  {
    loop
        ToolTip % A_ThisFunc "`n" A_TickCount "`nProcessId = " DllCall("GetCurrentProcessId"),111,222
}

$vk20::  
Loop  
{
    if not GetKeyState("vk20", "P")  
        break 
send {Space down}
sleep, 20
send {Space up}
sleep, 20
send {Space down}
sleep, 20
send {Space up}
sleep, 20
send {Space down}
sleep, 20    
send {Space up}
sleep, 20
send {Space down}
sleep, 20
send {Space up}
sleep, 20
send {Space down}
sleep, 20
send {Space up}
sleep, 20
send {Space down}
sleep, 20
send {Space up}
sleep, 20
}
return

То при зажатии пробела видно по тултипу что второй поток прерывается. Как этого избежать?
Заранее спасибо за ответ)