Серый форум — AHK: Выполняется скрипт несколько раз подряд

Re: AHK: Выполняется скрипт несколько раз подряд

2017-02-19T11:42:15Z

Да, я знаю. При отладке кода желательно представлять его в читаемом виде. Я просто не привык к такому оформлению, Но это уже мои трудности.

Re: AHK: Выполняется скрипт несколько раз подряд

2017-02-19T07:21:18Z

stealzy пишет:

Во первых, прочтите справку по getkeystate.

Во-вторых, где границы цикла Loop? По-моему такой скрипт мог заработать только по странному стечению обстоятельств.

Re: AHK: Выполняется скрипт несколько раз подряд

2017-02-19T06:58:02Z

Проблема не в скрипте, а именно в настройке AHK. Раньше у меня стояла Win7 и была такая же проблема, только скрипты работали некорректно. Починил все это дело сделав совместимость с win xp через реестр, а в win 10 так сделать нельзя, поэтому мне надо как-нибудь изменить совместимость, но дело в том что у меня нет возможности это сделать, я не знаю почему там нет win xp sp3.
https://pp.vk.me/c639724/v639724785/bb2 … z9YV0Q.jpg

Re: AHK: Выполняется скрипт несколько раз подряд

2017-02-18T11:00:36Z

stealzy, скажите, пожалуйста, в чем практическое отличие Вашего примера от этого?

i:=0
Space::
If GetKeyState("Space") {
	ToolTip % ++i
}
return

Re: AHK: Выполняется скрипт несколько раз подряд

2017-02-18T07:48:10Z

Во первых, прочтите справку по getkeystate.
Во вторых, если я правильно понял ваш диалект, ваша проблема в автоповторе нажатия клавиши системой.
Я решаю это так:

i:=0
Space::
if !down
	ToolTip % ++i
; down:=true
Return

; Space Up::down:=false

AHK: Выполняется скрипт несколько раз подряд

2017-02-18T03:39:18Z

Здравствуйте! Раньше использовал скрипты и все было нормально, скрипты выполняли свое действие только при зажатии хоткеев, но вот сейчас при запуске и зажатии хоткеев скрипт выполняется бесконечное кол-во раз. Подскажите в чем может быть проблема? Вот скрипт для примера. Всем заранее спасибо.
P.s. Windows 10
P.s.s. Знаю что это связано с режимом совместимости, но если я пытаюсь поставить режим совместимости, то у меня есть на выбор windows 7;8;8.1 подскажите как в режим совмести можно добавить windows xp sp3?

#NoEnv
SendMode Input

~F6::Suspend

~\::Pause

~End::ExitApp

LCtrl & ~LButton::
Loop
	If GetKeyState("LButton", "LCtrl") {
		Sleep, 7
		moveAmount := (moveAmount = 2) ? 1 : -2
 		mouseXY(moveAmount,6.4)
		
	}
	else
	break
	
Return



mouseXY(x,y)
{
DllCall("mouse_event",int,2,int,x,int,y,uint,0,uint,0)
}