<![CDATA[Серый форум — AHK: Настраиваемый макро менеджер]]> http://forum.script-coding.com/viewtopic.php?id=11064 Mon, 21 Dec 2015 12:02:11 +0000 PunBB <![CDATA[Re: AHK: Настраиваемый макро менеджер]]> http://forum.script-coding.com/viewtopic.php?pid=99839#p99839 Этот код лишний:

HKLabel := !HKLabel

Переключение происходит в переменной LoopON:
Checkbox

+ открыть спойлер

Если флажок установлен, то выходной переменной, ассоциированной с флажком (если таковая переменная существует), будет присвоено число 1, если снят - 0, а если элемент управления не определен/серый – число -1.

Gui, Add, Checkbox, gLoopON vLoopON, Loop

Сейчас я немного занят...

]]> Mon, 21 Dec 2015 12:02:11 +0000 http://forum.script-coding.com/viewtopic.php?pid=99839#p99839 <![CDATA[Re: AHK: Настраиваемый макро менеджер]]> http://forum.script-coding.com/viewtopic.php?pid=99825#p99825 Вообще вот так работает только не отключается цикл. Помогите не пойму в чём проблема. Нужно что бы с галочкой "Checkbox" (1 раз нажал на "Клавишу управления" цикл запустился, 2 раз  нажал цикл остановился). Без галочки "Checkbox" держишь "Клавишу управления" работает , отпустил не работает.


#NoEnv
#UseHook
#HotkeyInterval 1
#MaxHotkeysPerInterval 999
#MaxThreadsPerHotkey 2
#SingleInstance Force  
OnExit("GuiClose")
Hotkey_Arr("OnlyEngSym", True)
Menu, Menu, Add, Удалить, Delete 
Menu, Menu, Add, Удалить Всё, Delete_All

Gui, -DPIScale
Gui,Font, s10 Bold, Cambria
Gui, Add, Text, cBlue ,Клавиша управления:
Gui, Add, Edit, w100 cRed vKY  hwndh2 , % Hotkey_Set("B2")
Gui, Add, Text, cBlue ,Нажмите клавишу :
Gui, Add, Edit, w100 cRed  vKl gkeys hwndh1, % Hotkey_Set("B1")
Gui, Add, Text, cBlue ,Задержка милесекундах :
Gui, Add, Edit,  w100 cRed  vSleep , 65 
Gui, Add, Button, x130 y137 w70 h20 hwndh4 gSleepr, Добавить
Gui, Add, Button,x20 y170 w100 h20 gOpen, открыть
Gui, Add, Button, x20 y200 w100 h20 gSaves, сохранить
Gui, Add, Button, x20 y230 w100 h20 gwrite, Записать
Gui, Add, Checkbox,  gLoopON vLoopON, Loop
Gui, Add, Listview, x300 y100 w490 h480 cBlue AltSubmit gListview NoSortHdr -Multi,Действие|Значение
GuiControl, Focus, Sleep 
Hotkey_Register(["B1",h1,"KMLRJS"], ["B2",h2,"KMLRJS"])
Gui, Show 
Return



Listview:
	if A_GuiEvent=RightClick
	{
		if selected:=A_EventInfo
			menu,menu,show
	}
	else if A_GuiEvent=D
	{
		mousegetpos,,MenuY
		keywait,lbutton,L
		mousegetpos,,MenuYY
		LV_GetText(tmp_action,A_EventInfo,1)
		LV_GetText(tmp_value,A_EventInfo,2)
		LV_GetText(tmp_vk,A_EventInfo,3)
		if (MenuY>MenuYY and A_EventInfo>1)
		RowNumb:=A_EventInfo-1
		else if (A_EventInfo<LV_GetCount())
		RowNumb:=A_EventInfo+1
		LV_GetText(tmp2_action,RowNumb,1)
		LV_GetText(tmp2_value,RowNumb,2)
		LV_GetText(tmp2_vk,RowNumb,3)
		LV_Modify(A_EventInfo,,tmp2_action,tmp2_value,tmp2_vk)
		LV_Modify(RowNumb,,tmp_action,tmp_value,tmp_vk)
	}
	return
	
Delete:
	LV_Delete(selected)
	return
	
Delete_All:
	LV_Delete()
	return
	
~vk79::
	Suspend, Off
	ExitApp 
return

Saves:
	Gui Submit, NoHide
	FileSelectFile, SelectedFile, S24, , Сохранить макрос, *.ini
	if !instr(SelectedFile,".ini")
		SelectedFile.=".ini"
	IniWrite, %KY%, %SelectedFile%,KY,KY
	IniWrite, % LV_GetCount(), %SelectedFile%,KY,count
	Loop % LV_GetCount()
	{
		LV_GetText(action,A_Index,1)
		LV_GetText(value,A_Index,2)
		LV_GetText(vk,A_Index,3)
		IniWrite, %action%, %SelectedFile%,data,action%A_Index%
		IniWrite, %value%, %SelectedFile%,data,value%A_Index%
		IniWrite, %vk%, %SelectedFile%,data,vk%A_Index%
	} 
	Return

Open:
	Gui Submit, NoHide
	FileSelectFile, SelectedFile, 24, , Загрузить макрос, *.ini
	if ErrorLevel
	  return
	LV_Delete()
	IniRead,KY,%SelectedFile%,KY,KY
	Control,ChooseString,% KY,Edit1
	IniRead,count,%SelectedFile%,KY,count
	loop,% count
	{


		IniRead,action,%SelectedFile%,data,action%A_Index%
		IniRead,value,%SelectedFile%,data,value%A_Index%
		IniRead,vk,%SelectedFile%,data,vk%A_Index%
		if (action="Задержка")
			LV_Add(,"Задержка",value)
		else if (action="Нажатие")
			LV_Add(,"Нажатие",value,vk)
		else if (action="Отпускание")
			LV_Add(,"Отпускание",value,vk)
	}
	GuiControl,, KY, % KY

         
	Return

keys:
	Gui Submit, NoHide
	LV_Add(,"Нажатие",Kl)
	LV_Add(,"Задержка",Sleep)
	LV_Add(,"Отпускание",Kl)
	LV_Add(,"Задержка",Sleep)
	Return

Sleepr:
	Gui Submit, NoHide
	LV_Add(,"Задержка",Sleep)
	Return

write:
Gui Submit, NoHide

act:=LV_GetCount()
	Loop % LV_GetCount()
	{
		LV_GetText(action,A_Index,1)
		LV_GetText(value,A_Index,2)
		LV_GetText(vk,A_Index,3)

		if (action="Задержка")
		{
			act%A_Index%:="sleep"
			val%A_Index%:=value
		}
		else if (action="Нажатие")
		{
			act%A_Index%:="key"
			val%A_Index%:=value " down"
		}
		else if (action="Отпускание")
		{
			act%A_Index%:="key"
			val%A_Index%:=value " up"
		}
	} 

        Hotkey := Hotkey_Value("B2")
        Hotkey, % Hotkey, HKLabel, Off UseErrorLevel
	Hotkey, % Hotkey, HKLabel, On UseErrorLevel

        Return


LoopON:
	Gui Submit, NoHide
          HKLabel := !HKLabel
        Return


HKLabel:
       while (GetKeyState(Hotkey,"P") if HKLabel) 
       {
          loop, % act 
          {
            if (act%A_Index%="sleep")
			sleep,% val%A_Index%
               else if (act%A_Index%="key")
			sendevent,% "{" val%A_Index% "}"
               }

             }
Return



GuiClose() {
	Hotkey_Exit()
	ExitApp
}
]]> Sun, 20 Dec 2015 23:21:27 +0000 http://forum.script-coding.com/viewtopic.php?pid=99825#p99825 <![CDATA[Re: AHK: Настраиваемый макро менеджер]]> http://forum.script-coding.com/viewtopic.php?pid=99797#p99797 Alectric Так как предложили вы не работает .

]]> Sun, 20 Dec 2015 13:08:59 +0000 http://forum.script-coding.com/viewtopic.php?pid=99797#p99797 <![CDATA[Re: AHK: Настраиваемый макро менеджер]]> http://forum.script-coding.com/viewtopic.php?pid=99793#p99793 
Gui, Add, Checkbox, gLoopON vLoopON, Loop

LoopON:
	Gui Submit, NoHide
    Return

HKLabel:
	while (GetKeyState(Hotkey,"P") and LoopON)
...
]]> Sun, 20 Dec 2015 05:05:24 +0000 http://forum.script-coding.com/viewtopic.php?pid=99793#p99793 <![CDATA[Re: AHK: Настраиваемый макро менеджер]]> http://forum.script-coding.com/viewtopic.php?pid=99790#p99790 Доброго времени суток. Подскажите пожалуйста как можно сделать зацикливание по метке "Checkbox". Так как показано в коде не работает.


#NoEnv
#UseHook
#HotkeyInterval 1
#MaxHotkeysPerInterval 999
#SingleInstance Force  
OnExit("GuiClose")
Hotkey_Arr("OnlyEngSym", True)
Menu, Menu, Add, Удалить, Delete 
Menu, Menu, Add, Удалить Всё, Delete_All

Gui, -DPIScale
Gui,Font, s10 Bold, Cambria
Gui, Add, Text, cBlue ,Клавиша управления:
Gui, Add, Edit, w100 cRed vKY  hwndh2 , % Hotkey_Set("B2")
Gui, Add, Text, cBlue ,Нажмите клавишу :
Gui, Add, Edit, w100 cRed  vKl gkeys hwndh1, % Hotkey_Set("B1")
Gui, Add, Text, cBlue ,Задержка милесекундах :
Gui, Add, Edit,  w100 cRed  vSleep , 65 
Gui, Add, Button, x130 y137 w70 h20 hwndh4 gSleepr, Добавить
Gui, Add, Button,x20 y170 w100 h20 gOpen, открыть
Gui, Add, Button, x20 y200 w100 h20 gSaves, сохранить
Gui, Add, Button, x20 y230 w100 h20 gwrite, Записать
Gui, Add, Checkbox, gLoopON, Loop
Gui, Add, Listview, x300 y100 w490 h480 cBlue AltSubmit gListview NoSortHdr -Multi,Действие|Значение
GuiControl, Focus, Sleep 
Hotkey_Register(["B1",h1,"KMLRJS"], ["B2",h2,"KMLRJS"])
Gui, Show 
Return



Listview:
	if A_GuiEvent=RightClick
	{
		if selected:=A_EventInfo
			menu,menu,show
	}
	else if A_GuiEvent=D
	{
		mousegetpos,,MenuY
		keywait,lbutton,L
		mousegetpos,,MenuYY
		LV_GetText(tmp_action,A_EventInfo,1)
		LV_GetText(tmp_value,A_EventInfo,2)
		LV_GetText(tmp_vk,A_EventInfo,3)
		if (MenuY>MenuYY and A_EventInfo>1)
		RowNumb:=A_EventInfo-1
		else if (A_EventInfo<LV_GetCount())
		RowNumb:=A_EventInfo+1
		LV_GetText(tmp2_action,RowNumb,1)
		LV_GetText(tmp2_value,RowNumb,2)
		LV_GetText(tmp2_vk,RowNumb,3)
		LV_Modify(A_EventInfo,,tmp2_action,tmp2_value,tmp2_vk)
		LV_Modify(RowNumb,,tmp_action,tmp_value,tmp_vk)
	}
	return
	
Delete:
	LV_Delete(selected)
	return
	
Delete_All:
	LV_Delete()
	return
	
~vk79::
	Suspend, Off
	ExitApp 
return

Saves:
	Gui Submit, NoHide
	FileSelectFile, SelectedFile, S24, , Сохранить макрос, *.ini
	if !instr(SelectedFile,".ini")
		SelectedFile.=".ini"
	IniWrite, %KY%, %SelectedFile%,KY,KY
	IniWrite, % LV_GetCount(), %SelectedFile%,KY,count
	Loop % LV_GetCount()
	{
		LV_GetText(action,A_Index,1)
		LV_GetText(value,A_Index,2)
		LV_GetText(vk,A_Index,3)
		IniWrite, %action%, %SelectedFile%,data,action%A_Index%
		IniWrite, %value%, %SelectedFile%,data,value%A_Index%
		IniWrite, %vk%, %SelectedFile%,data,vk%A_Index%
	} 
	Return

Open:
	Gui Submit, NoHide
	FileSelectFile, SelectedFile, 24, , Загрузить макрос, *.ini
	if ErrorLevel
	  return
	LV_Delete()
	IniRead,KY,%SelectedFile%,KY,KY
	Control,ChooseString,% KY,Edit1
	IniRead,count,%SelectedFile%,KY,count
	loop,% count
	{


		IniRead,action,%SelectedFile%,data,action%A_Index%
		IniRead,value,%SelectedFile%,data,value%A_Index%
		IniRead,vk,%SelectedFile%,data,vk%A_Index%
		if (action="Задержка")
			LV_Add(,"Задержка",value)
		else if (action="Нажатие")
			LV_Add(,"Нажатие",value,vk)
		else if (action="Отпускание")
			LV_Add(,"Отпускание",value,vk)
	}
	GuiControl,, KY, % KY

         
	Return

keys:
	Gui Submit, NoHide
	LV_Add(,"Нажатие",Kl)
	LV_Add(,"Задержка",Sleep)
	LV_Add(,"Отпускание",Kl)
	LV_Add(,"Задержка",Sleep)
	Return

Sleepr:
	Gui Submit, NoHide
	LV_Add(,"Задержка",Sleep)
	Return

write:
act:=LV_GetCount()
	Loop % LV_GetCount()
	{
		LV_GetText(action,A_Index,1)
		LV_GetText(value,A_Index,2)
		LV_GetText(vk,A_Index,3)

		if (action="Задержка")
		{
			act%A_Index%:="sleep"
			val%A_Index%:=value
		}
		else if (action="Нажатие")
		{
			act%A_Index%:="key"
			val%A_Index%:=value " down"
		}
		else if (action="Отпускание")
		{
			act%A_Index%:="key"
			val%A_Index%:=value " up"
		}
	} 

	HKLabel := Hotkey_Value("B2")
	Hotkey := Hotkey_Value("B2")
        Hotkey, % Hotkey, HKLabel, Off UseErrorLevel
	Hotkey, % Hotkey, HKLabel, On

        Return

LoopON:
LoopON := !LoopON

Return


HKLabel:


	while GetKeyState(Hotkey,"P")

Loop
	{

if LoopON
break

               loop,% act
              {

	        if (act%A_Index%="sleep")
			sleep,% val%A_Index%
		else if (act%A_Index%="key")
			sendevent,% "{" val%A_Index% "}"
		}

             }
 

	Return

GuiClose() {
	Hotkey_Exit()
	ExitApp
}
]]> Sat, 19 Dec 2015 23:47:48 +0000 http://forum.script-coding.com/viewtopic.php?pid=99790#p99790 <![CDATA[Re: AHK: Настраиваемый макро менеджер]]> http://forum.script-coding.com/viewtopic.php?pid=99657#p99657 Всё правильно serzh82saratov . Хотя это можно решить через костыль("ControlSend").

]]> Sat, 12 Dec 2015 22:41:23 +0000 http://forum.script-coding.com/viewtopic.php?pid=99657#p99657 <![CDATA[Re: AHK: Настраиваемый макро менеджер]]> http://forum.script-coding.com/viewtopic.php?pid=99656#p99656 Доброго времени суток . Подскажите пожалуйста как можно модифицировать несколько  клавиш . Что бы можно было изменять не одну клавшу а несколько.


#NoEnv
#UseHook
#HotkeyInterval 1
#MaxHotkeysPerInterval 999
#SingleInstance Force  
OnExit("GuiClose")
Hotkey_Arr("OnlyEngSym", True)
Menu, Menu, Add, Удалить, Delete 
Menu, Menu, Add, Удалить Всё, Delete_All

Gui, -DPIScale
Gui,Font, s10 Bold, Cambria
Gui, Add, Text, cBlue ,Клавиша управления:
Gui, Add, Edit, w100 cRed vKY hwndh2, % Hotkey_Set("B2")
Gui, Add, Text, cBlue ,Нажмите клавишу :
Gui, Add, Edit, w100 cRed  vKl gkeys hwndh1, % Hotkey_Set("B1")
Gui, Add, Text, cBlue ,Задержка милесекундах :
Gui, Add, Edit,  w100 cRed  vSleep , 65 
Gui, Add, Button, x130 y137 w70 h20 hwndh4 gSleepr, Добавить
Gui, Add, Button,x20 y170 w100 h20 gOpen, открыть
Gui, Add, Button, x20 y200 w100 h20 gSaves, сохранить
Gui, Add, Button, x20 y230 w100 h20 gwrite, Записать
Gui, Add, Listview, x300 y100 w490 h480 cBlue AltSubmit gListview NoSortHdr -Multi,Действие|Значение|VK
GuiControl, Focus, Sleep 
Hotkey_Register(["B1",h1,"KMLRJS"], ["B2",h2,"KMLRJS"])
Gui, Show 
Return

Listview:
	if A_GuiEvent=RightClick
	{
		if selected:=A_EventInfo
			menu,menu,show
	}
	else if A_GuiEvent=D
	{
		mousegetpos,,MenuY
		keywait,lbutton,L
		mousegetpos,,MenuYY
		LV_GetText(tmp_action,A_EventInfo,1)
		LV_GetText(tmp_value,A_EventInfo,2)
		LV_GetText(tmp_vk,A_EventInfo,3)
		if (MenuY>MenuYY and A_EventInfo>1)
		RowNumb:=A_EventInfo-1
		else if (A_EventInfo<LV_GetCount())
		RowNumb:=A_EventInfo+1
		LV_GetText(tmp2_action,RowNumb,1)
		LV_GetText(tmp2_value,RowNumb,2)
		LV_GetText(tmp2_vk,RowNumb,3)
		LV_Modify(A_EventInfo,,tmp2_action,tmp2_value,tmp2_vk)
		LV_Modify(RowNumb,,tmp_action,tmp_value,tmp_vk)
	}
	return
	
Delete:
	LV_Delete(selected)
	return
	
Delete_All:
	LV_Delete()
	return
	
~vk79::
	Suspend, Off
	ExitApp 
return

Saves:
	Gui Submit, NoHide
	FileSelectFile, SelectedFile, S24, , Сохранить макрос, *.ini
	if !instr(SelectedFile,".ini")
		SelectedFile.=".ini"
	IniWrite, %KY%, %SelectedFile%,KY,KY
	IniWrite, % LV_GetCount(), %SelectedFile%,KY,count
	Loop % LV_GetCount()
	{
		LV_GetText(action,A_Index,1)
		LV_GetText(value,A_Index,2)
		LV_GetText(vk,A_Index,3)
		IniWrite, %action%, %SelectedFile%,data,action%A_Index%
		IniWrite, %value%, %SelectedFile%,data,value%A_Index%
		IniWrite, %vk%, %SelectedFile%,data,vk%A_Index%
	} 
	Return

Open:
	Gui Submit, NoHide
	FileSelectFile, SelectedFile, 24, , Загрузить макрос, *.ini
	if ErrorLevel
	  return
	LV_Delete()
	IniRead,KY,%SelectedFile%,KY,KY
	Control,ChooseString,% KY,Edit1
	IniRead,count,%SelectedFile%,KY,count
	loop,% count
	{
		IniRead,action,%SelectedFile%,data,action%A_Index%
		IniRead,value,%SelectedFile%,data,value%A_Index%
		IniRead,vk,%SelectedFile%,data,vk%A_Index%
		if (action="Задержка")
			LV_Add(,"Задержка",value)
		else if (action="Нажатие")
			LV_Add(,"Нажатие",value,vk)
		else if (action="Отпускание")
			LV_Add(,"Отпускание",value,vk)
	}
	GuiControl,, KY, % KY
	Return

keys:
	Gui Submit, NoHide
	Vitkode := Format("{:#x}", GetKeyVK(Kl))
	LV_Add(,"Нажатие",Kl,Vitkode)
	LV_Add(,"Задержка",Sleep)
	Vitkode := Format("{:#x}", GetKeyVK(Kl))
	LV_Add(,"Отпускание",Kl,Vitkode)
	LV_Add(,"Задержка",Sleep)
	Return

Sleepr:
	Gui Submit, NoHide
	LV_Add(,"Задержка",Sleep)
	Return

write:
	Gui Submit, NoHide
	act:=LV_GetCount()
	Loop % LV_GetCount()
	{
		LV_GetText(action,A_Index,1)
		LV_GetText(value,A_Index,2)
		LV_GetText(vk,A_Index,3)

		if (action="Задержка")
		{
			act%A_Index%:="sleep"
			val%A_Index%:=value
		}
		else if (action="Нажатие")
		{
			act%A_Index%:="key"
			val%A_Index%:=value " down"
		}
		else if (action="Отпускание")
		{
			act%A_Index%:="key"
			val%A_Index%:=value " up"
		}
	} 
	Hotkey, %  "~" Hotkey, HKLabel, Off UseErrorLevel
	Hotkey := Hotkey_Value("B2")
	Hotkey, % "$" Hotkey, HKLabel, On
	VK := Format("{:#x}", GetKeyVK(Hotkey_Value("B1")))
	Return


HKLabel:

	while GetKeyState(Hotkey,"P")


	{
 
		loop,% act
		{
	        if (act%A_Index%="sleep")
			sleep,% val%A_Index%
		else if (act%A_Index%="key")
			sendevent,% "{" val%A_Index% "}"
		}

	}
	Return

GuiClose() {
	Hotkey_Exit()
	ExitApp
}
]]> Sat, 12 Dec 2015 22:32:17 +0000 http://forum.script-coding.com/viewtopic.php?pid=99656#p99656 <![CDATA[Re: AHK: Настраиваемый макро менеджер]]> http://forum.script-coding.com/viewtopic.php?pid=99383#p99383 То есть разговор про метку "Open" и ошибку с "Hotkey, % "$" Hotkey, HKLabel, On".

]]> Sun, 29 Nov 2015 22:40:04 +0000 http://forum.script-coding.com/viewtopic.php?pid=99383#p99383 <![CDATA[Re: AHK: Настраиваемый макро менеджер]]> http://forum.script-coding.com/viewtopic.php?pid=99382#p99382 serzh82saratov Не я , но я там чуток подправил.

]]> Sun, 29 Nov 2015 22:30:26 +0000 http://forum.script-coding.com/viewtopic.php?pid=99382#p99382 <![CDATA[Re: AHK: Настраиваемый макро менеджер]]> http://forum.script-coding.com/viewtopic.php?pid=99380#p99380 Ядрён пишет:

При нажатии на кнопку открыть

А кто писал код открытия?

]]> Sun, 29 Nov 2015 20:42:58 +0000 http://forum.script-coding.com/viewtopic.php?pid=99380#p99380 <![CDATA[Re: AHK: Настраиваемый макро менеджер]]> http://forum.script-coding.com/viewtopic.php?pid=99379#p99379 serzh82saratov При нажатии на кнопку открыть(соответственно при выборе ранее сохранённого "ini" файла) , возникает такая ошибка.

]]> Sun, 29 Nov 2015 20:35:02 +0000 http://forum.script-coding.com/viewtopic.php?pid=99379#p99379 <![CDATA[Re: AHK: Настраиваемый макро менеджер]]> http://forum.script-coding.com/viewtopic.php?pid=99374#p99374 Что значит при открытии, чего?

]]> Sun, 29 Nov 2015 20:09:54 +0000 http://forum.script-coding.com/viewtopic.php?pid=99374#p99374 <![CDATA[Re: AHK: Настраиваемый макро менеджер]]> http://forum.script-coding.com/viewtopic.php?pid=99372#p99372 serzh82saratov Так то всё работает , только при сохранении - открытии а точнее  только  при открытии выдаёт эту ошибку.

]]> Sun, 29 Nov 2015 19:46:46 +0000 http://forum.script-coding.com/viewtopic.php?pid=99372#p99372 <![CDATA[Re: AHK: Настраиваемый макро менеджер]]> http://forum.script-coding.com/viewtopic.php?pid=99371#p99371 Ядрён пишет:

А остальные библиотеки надо тоже ложить в папку "Lib"?

Да.

Ядрён пишет:

Выдаёт ошибку.

Значит в переменной Hotkey невалидное содержимое для назначения горячей клавиши.

]]> Sun, 29 Nov 2015 18:29:26 +0000 http://forum.script-coding.com/viewtopic.php?pid=99371#p99371 <![CDATA[Re: AHK: Настраиваемый макро менеджер]]> http://forum.script-coding.com/viewtopic.php?pid=99370#p99370 serzh82saratov Правда теперь какая то ерунда с сохранением - открытием . Всё записывает в файл , открываеш всё на своём месте все циферки а вот работать не работает .
Выдаёт ошибку.

Hotkey, % "$" Hotkey, HKLabel, On
]]> Sun, 29 Nov 2015 15:12:48 +0000 http://forum.script-coding.com/viewtopic.php?pid=99370#p99370