Серый форум — AHK: Gui, Add, Hotkey, Как поставить свою кнопку.

Re: AHK: Gui, Add, Hotkey, Как поставить свою кнопку.

null@example.com (KusochekDobra) — Thu, 19 Jul 2018 16:34:49 +0000

Здравствуйте!
Одна тема = один вопрос.
Если Вы будете всё, что Вас интересует, задавать в одной теме, то следует переименовать тему в "Беседа с DaGer" и придётся разбираться с дяденькой модератором.

SplashImage - окно, не картинка. Лучше опишите цель, возможно, что есть другие способы её достичь.

И, пожалуйста, пользуйтесь знаками препинания. Они такие же участники в передаче смысла, как и слова:

... и что можно придумать в место Sleepa к примеру активация на кнопку кнопки окно появляется и закрывается

Ничего не понятно из словосочетания(казнить нельзя помиловать).

Re: AHK: Gui, Add, Hotkey, Как поставить свою кнопку.

null@example.com (DaGer) — Thu, 19 Jul 2018 15:40:41 +0000


   SplashImage,, y450 x800 w100 h50 ,, 
   Sleep 8000

Люди добрые подскажите, как поставить в окошко это картинку, как сделать чтобы мышкой нельзя было нажимать, игнорировать случайное нажатие на нее, и что можно придумать в место Sleepa к примеру активация на кнопку кнопки окно появляется и закрывается

Re: AHK: Gui, Add, Hotkey, Как поставить свою кнопку.

null@example.com (DaGer) — Thu, 19 Jul 2018 15:22:00 +0000

qqlexa Не нужно это, я просто код с черновика скопировал для примера

Re: AHK: Gui, Add, Hotkey, Как поставить свою кнопку.

null@example.com (serzh82saratov) — Thu, 19 Jul 2018 14:44:55 +0000

qqlexa пишет:

serzh82saratov, всё понятно кроме этого:

ТС точно знает зачем, но никому не рассказывает.

Re: AHK: Gui, Add, Hotkey, Как поставить свою кнопку.

null@example.com (DaGer) — Thu, 19 Jul 2018 14:12:44 +0000

Ооо Спасибо большое

Re: AHK: Gui, Add, Hotkey, Как поставить свою кнопку.

null@example.com (qqlexa) — Thu, 19 Jul 2018 14:11:00 +0000

serzh82saratov, всё понятно кроме этого:


Key1:
	Loop 1 ; Зачем это
	{
		if not GetKeyState("Key1" "P") ; Что и зачем это
			SendInput, {1}{2}{3}{4}{5}
	}
	return

Key2:
	Loop 1 ; Зачем это
	{
		if not GetKeyState("Key2" "P") ; Что и зачем это
			SendInput, Всем привет!
	}
	return

Re: AHK: Gui, Add, Hotkey, Как поставить свою кнопку.

null@example.com (serzh82saratov) — Thu, 19 Jul 2018 13:59:10 +0000

Так проще?


#UseHook
IniRead, Key1, IniFile.ini, Section, Key1, % A_Space
IniRead, Key2, IniFile.ini, Section, Key2, % A_Space 

Gui, Add, Hotkey, x12 y9 w90 h30 vKey1, % Key1
Gui, Add, Hotkey, x12 y49 w90 h30 vKey2, % Key2

Gui, Add, Button, x112 y9 w30 h30 gButton1, Button
Gui, Add, Button, x112 y49 w30 h30 gButton2, Button
Gui, Show, w157 h96, Untitled GUI
return

Button1:
	Gui, Submit, NoHide
	Hotkey, % PrKey1, off, UseErrorLevel
	Hotkey, % PrKey1 := Key1, Key1, on, UseErrorLevel
	IniWrite, % Key1, IniFile.ini, Section, Key1
	return

Button2:
	Gui, Submit, NoHide
	Hotkey, % PrKey2, off, UseErrorLevel
	Hotkey, % PrKey2 := Key2, Key2, on, UseErrorLevel
	IniWrite, % Key1, IniFile.ini, Section, Key2
	return 
	
Key1:
	Loop 1
	{
		if not GetKeyState("Key1" "P")
			SendInput, {1}{2}{3}{4}{5}
	}
	return

Key2:
	Loop 1
	{
		if not GetKeyState("Key2" "P")
			SendInput, Всем привет!
	}
	return

GuiClose:
	ExitApp

Re: AHK: Gui, Add, Hotkey, Как поставить свою кнопку.

null@example.com (DaGer) — Thu, 19 Jul 2018 12:01:46 +0000

Как сделать статичные кнопки я разобрался,) спасибо, буду ждать тогда.
Мне пример исходник главное, как нибудь разберусь.

Re: AHK: Gui, Add, Hotkey, Как поставить свою кнопку.

null@example.com (qqlexa) — Thu, 19 Jul 2018 11:13:34 +0000

Вот, попробуй простой пример.

Hotkey, F1, Key1
Hotkey, F2, Key2
return
Key1:
SendInput, 12345
return

Key2: 
SendInput, Всем привет!
return

Примеры скриптов выше, сложные для понимания новичкам и я думаю что стоит написать попроще примеры. Будет доступ к ПК - сделаю.

Re: AHK: Gui, Add, Hotkey, Как поставить свою кнопку.

null@example.com (DaGer) — Thu, 19 Jul 2018 10:40:53 +0000


Key1:
SendInput, 12345
return

Key2: 
SendInput, Всем привет!
return

Я и так делал не работает, за Suspend спасибо

Re: AHK: Gui, Add, Hotkey, Как поставить свою кнопку.

null@example.com (qqlexa) — Thu, 19 Jul 2018 10:01:56 +0000

Вот код для горячих клавиш:

Key1:
SendInput, 12345
return

Key2: 
SendInput, Всем привет!
return

Чтобы прекратить работу скрипта используйте ExitApp.
Для остановки/включения работы горячих клавиш Suspend.

Re: AHK: Gui, Add, Hotkey, Как поставить свою кнопку.

null@example.com (DaGer) — Thu, 19 Jul 2018 09:12:30 +0000

qqlexa Поэтому и спрашиваю как можно сделать правильно, покажите на примере моего скрипта чтобы на одну кнопку считал от 1 до 5 а на другую кнопку писал предложение "Всем привет!" и как сделать чтобы выбранную кнопку можно было подтверждать. Спасибо заранее.
И еще один вопрос. Как можно сделать чтобы определенный скрипт выключать или отключать, как те же трейнеры отключают и включают скрипт не сворачивая игру определенной кнопкой.

Re: AHK: Gui, Add, Hotkey, Как поставить свою кнопку.

null@example.com (qqlexa) — Thu, 19 Jul 2018 09:05:08 +0000

DaGer, Нет доступа к ПК, поэтому сделаю замечания на код который может вызвать проблемы в работе скрипта.
Две метки с одинаковым названием:


Gui, Add, Button, x112 y9 w30 h30 , Button
Gui, Add, Button, x112 y49 w30 h30 , Button
Gui, Show, w157 h96, Untitled GUI

return
GuiClose:
ExitApp

Button:
Gui, Submit, NoHide
Hotkey, Key1, Hotkey
return

Button:
Gui, Submit, NoHide
Hotkey, Key2, Hotkey
return

Бесполезные проверки в метках:


Key1:
Loop 1
{
if not GetKeyState("Key1" "P")
SendInput, {1}{2}{3}{4}{5}
}
return

Key2:
Loop 1
{
if not GetKeyState("Key2" "P")
SendInput, Всем привет!
}
return

Re: AHK: Gui, Add, Hotkey, Как поставить свою кнопку.

null@example.com (DaGer) — Thu, 19 Jul 2018 05:26:30 +0000

Спасибо большое, а как теперь привязать действие к кнопке чтобы он например считал или писал предложение, и как применять через Button?


IniRead, Key, IniFile.ini, Section, Key1, % A_Space
IniRead, Key, IniFile.ini, Section, Key2, % A_Space

Hotkey, % PrKey %A_DefaultGui% Key1 := Key, Action, On, UseErrorLevel
Hotkey, % PrKey %A_DefaultGui% Key2 := Key, Action, On, UseErrorLevel

Gui, Add, Hotkey, x12 y9 w90 h30 vKey1 gSave, % Key
Gui, Add, Hotkey, x12 y49 w90 h30 vKey2 gSave, % Key

Gui, Add, Button, x112 y9 w30 h30 , Button
Gui, Add, Button, x112 y49 w30 h30 , Button
Gui, Show, w157 h96, Untitled GUI

return
GuiClose:
ExitApp

Button:
Gui, Submit, NoHide
Hotkey, Key1, Hotkey
return

Button:
Gui, Submit, NoHide
Hotkey, Key2, Hotkey
return


Save:
Hotkey, % PrKey %A_Gui% %A_GuiControl%, off, UseErrorLevel
GuiControlGet, key, %A_Gui%:, %A_GuiControl%
Hotkey, % PrKey %A_Gui% %A_GuiControl% := key, Action, on, UseErrorLevel
IniWrite, % key, IniFile.ini, Section, % A_GuiControl
return

Key1:
Loop 1
{
if not GetKeyState("Key1" "P")
SendInput, {1}{2}{3}{4}{5}
}
return

Key2:
Loop 1
{
if not GetKeyState("Key2" "P")
SendInput, Всем привет!
}
return

Re: AHK: Gui, Add, Hotkey, Как поставить свою кнопку.

null@example.com (serzh82saratov) — Thu, 19 Jul 2018 00:32:25 +0000

Много контролов и окон, обработка повторов.



#SingleInstance Force
#NoEnv 

Loop 5
{
	GuiName := "Gui" A_Index 
	Gui, %GuiName%:+AlwaysOnTop -DPIScale +LabelGui
	
	Loop 15
	{
		IniRead, Key, IniFile.ini, Section, %GuiName%MyHotkey%A_Index%, % A_Space 
		func := Func("Action").Bind(GuiName, "MyHotkey" A_Index)
		Hotkey, % Arr()[GuiName "MyHotkey" A_Index] := Key, % func, On, UseErrorLevel 
		Gui, %GuiName%:Add, Text, +0x201 xm w20, % A_Index ":"
		Gui, %GuiName%:Add, Hotkey, vMyHotkey%A_Index% x+5 w200 gCheck, % Key   
	}
	Gui, %GuiName%:Show, % "x" 150 + 300 * (A_Index - 1), %GuiName%
}
Return

Check() {   
    Hotkey, % Arr()[A_Gui A_GuiControl], Off, UseErrorLevel
	func := Func("Action").Bind(A_Gui, A_GuiControl) 
    Hotkey, % Arr()[A_Gui A_GuiControl] := %A_GuiControl%, % func, On, UseErrorLevel
	IniWrite, % %A_GuiControl%, IniFile.ini, Section, % A_Gui A_GuiControl
}

Action(gui, name) {
	Static ThisPID := DllCall("GetCurrentProcessId")
	If WinActive("ahk_class AutoHotkeyGUI ahk_pid" ThisPID)  
	{
		ToolTip % "Уже назначено для:`n`n" gui "`n`n" name, 5, 5 
		SetTimer, ToolTipHide, -550
		Return
	}
    MsgBox, 262208, Hotkey,% A_ThisHotkey "`n`n" gui "`n`n" name, 0.5
}

Arr() {
	Static Arr := {}
	Return Arr
}

ToolTipHide:
	ToolTip
	Return

GuiClose:
	ExitApp

+ Простой пример с 2 окнами.


#SingleInstance Force
#NoEnv
  
Gui, New
Gui, +HWNDhGui1 +AlwaysOnTop

Loop % 15
{
	IniRead, Key, IniFile.ini, Section, Gui1MyHotkey%A_Index%, % A_Space
	func := Func("Action").Bind("Gui1", "Gui1MyHotkey" A_Index)
	Hotkey, % PrKeyGui1MyHotkey%A_Index% := Key, % func, On, UseErrorLevel
	Gui, Add, Hotkey, vMyHotkey%A_Index% gGui1, % Key
}
Gui, Show, x333

Gui, New
Gui, +HWNDhGui2 +AlwaysOnTop

Loop % 12
{
	IniRead, Key, IniFile.ini, Section, Gui2MyHotkey%A_Index%, % A_Space
	func := Func("Action").Bind("Gui2", "Gui2MyHotkey" A_Index)
	Hotkey, % PrKeyGui2MyHotkey%A_Index% := Key, % func, On, UseErrorLevel
	Gui, Add, Hotkey, vMyHotkey%A_Index% gGui2, % Key
}
Gui, Show, x666
Return

Gui1:
Gui2:
    Hotkey, % PrKey%A_ThisLabel%%A_GuiControl%, Off, UseErrorLevel
	
	func := Func("Action").Bind(A_ThisLabel, A_GuiControl)
	GuiControlGet, Key, %A_Gui%:, %A_GuiControl%
    Hotkey, % PrKey%A_ThisLabel%%A_GuiControl% := Key, % func, On, UseErrorLevel
	
	IniWrite, % Key, IniFile.ini, Section, %A_ThisLabel%%A_GuiControl%
    Return

Action(gui, name) {
	Global hGui1, hGui2
	If WinActive("ahk_id" hGui1) || WinActive("ahk_id" hGui2)
	{
		ToolTip Уже назначено, 5, 5
		SetTimer, ToolTipHide, -350
		Return
	}
    MsgBox,,, % A_ThisHotkey "`n`n" gui "`n`n" name, 0.5
}

ToolTipHide:
	ToolTip
	Return