Нужна помощь в правке скрипта.

[n0n5top]

Уважаемые профессионалы!

Помогите пожалуйста до делать или переделать скрипт.

Code: Select all

$*vk45::
	while (GetKeyState("vk45", "P"))
             {
          	if (GetKeyState("Shift", "P"))
		send, {Shift Down}{vk45}{Shift Up}

                  send, {vk45}

		sleep, 150
             }
return

В общем обычный холд баттн спам скрипт. Не устраивает что с зажатым шифтом, идет спам сразу двух {vk*}, большой и маленькой.
Думаю понятно чего добиваюсь. Нужно чтоб с зажатым шифтом был спам большой буквы, а без зажатого маленькой.

Буду очень благодарен за вашу помощь.

[serzh82saratov]

Code: Select all

$*vk45::
	while (GetKeyState("vk45", "P"))
             {
          	if (GetKeyState("Shift", "P"))
		send, {Shift Down}{vk45}{Shift Up}
																																																																																																																						else
                  send, {vk45}

		sleep, 150
             }
return

[n0n5top]

serzh82saratov Спасибо!
А какая была правка?
Правку увидел! А возможно теперь это как то оптимизировать и добавить зажатые {vk*} c Ctrl и Alt?

[serzh82saratov]

Правку увидел!

Чтобы сразу видеть, соблюдайте табуляцию.

Code: Select all

$*vk45::  ;	E
	while (GetKeyState("vk45", "P"))
	{
		p1 := "", p2 := ""
		for k, v in {"Ctrl":"LCtrl","Shift":"LShift","Alt":"LAlt","LWin":"LWin","RWin":"RWin"}
			GetKeyState(k, "P") && (p1 .= "{" v " Down}") && (p2 .= "{" v " Up}")
		send, %p1%{vk45}%p2% 
		sleep, 150
	}
	return

Или так.

Code: Select all

$*vk45::  ;	E
	while (GetKeyState("vk45", "P"))
	{
		Send {Blind}{vk45}
		sleep, 150
	}
	return

[n0n5top]

Серж сп вам большое за отзыв и помощь.
2й вариант ок, а 1й с ошибкой.

Закрывайте!

[serzh82saratov]

С какой ошибкой?

[n0n5top]

При запуске AHK файла, говорит ошибка в 5й строчке. Думаю это уже не важно. А вариант с БЛАЙНДом оч нравится, оч долго искал что то подобное.