1 Тема от shahlik007 (изменено: shahlik007, 2016-06-06 13:29:07)

  • shahlik007
  • Заблокирован
  • Неактивен

Тема: Gui, Add, Hotkey помогите пожалуйста)

Доброго времени суток!)

Помогите разобраться с Gui интерфейсом , а именно Gui, Add, Hotkey . Создавать поле под параметр я уже научился , но только вывести его не знаю как . (скриптовик AutoHotKey)

Задумка следующая:


1.  Скрипт создает окно.
2.  Прикрепляет к нему поле Hotkey.
3.  Я ввожу кнопку на которую хочу забиндить действие в открытом окне.
4.  И тут-же , не закрывая скрипт и не перезапуская , могу пользоваться этой кнопкой.




IniRead, knopka, %A_ScriptDir%\config.ini, Skill, knopka
Gui,+ToolWindow +AlwaysOnTop
Gui, Add, Hotkey, x10 y10 w50 h20
Gui, Show,x800 w150 h100,окно
Return

%введеная мною кнопка%::
Msgbox победа!
Return

GuiClose:
IniWrite ,% knopka% ,%A_ScriptDir%\config.ini, Skill, knopka
Exitapp




Заранее спасибо!))

2 Ответ от ypppu

  • ypppu
  • Разработчик
  • Неактивен

Re: Gui, Add, Hotkey помогите пожалуйста)

shahlik007, в названии темы должен быть префикс скриптового языка. Код должен быть оформлен тегом code. Отредактируйте!

Правила  Поиск  Русский язык  Слова-паразиты
AHK: [ENG] [RUS]
+ shahlik007

3 Ответ от shahlik007

  • shahlik007
  • Заблокирован
  • Неактивен

Re: Gui, Add, Hotkey помогите пожалуйста)

сорян) просто первый раз тут спс что помог оформлить , держи плюсик

4 Ответ от Alectric (изменено: ypppu, 2016-06-05 11:39:00)

  • Alectric
  • Разработчик
  • Неактивен

Re: Gui, Add, Hotkey помогите пожалуйста)

http://i.smiles2k.net/icq_smiles/23.gif

+ открыть спойлер
IniRead, key, %A_ScriptDir%\config.ini, Skill, key
Hotkey,% Key,Label,useerrorlevel
oldkey:=key

Gui,+ToolWindow +AlwaysOnTop
Gui, Add, Hotkey, x10 y10 w50 h20 vKey gchange,% key
Gui, Show,x800 w150 h100,окно
return

change:
tooltip,% key
Hotkey,% oldKey,off,useerrorlevel
Hotkey,% Key,Label,useerrorlevel
oldkey:=key
return

label:
msgbox победа!`nКнопка: %key%
return

GuiClose:
IniWrite ,% key ,%A_ScriptDir%\config.ini, Skill, key
Exitapp
Win 10 x64
AHK v1.1.33.02
                       Справка тебе в помощь.

5 Ответ от ypppu

  • ypppu
  • Разработчик
  • Неактивен

Re: Gui, Add, Hotkey помогите пожалуйста)

shahlik007, требования по заголовку не выполнены.
Предложения должны начинаться с заглавной буквы и заканчиваться точкой.

Запрещается отвечать в теме до внесения исправлений. Ответ от Alectric пока спрятал.

Правила  Поиск  Русский язык  Слова-паразиты
AHK: [ENG] [RUS]
+ Alectric

6 Ответ от shahlik007

  • shahlik007
  • Заблокирован
  • Неактивен

Re: Gui, Add, Hotkey помогите пожалуйста)

Ну "спасибо" вам большое все модераторы , я сам разобрался. Кому интересно оставляю весь код скрипта:


p1=1

IniRead, hec, %A_ScriptDir%\config.ini, Skill, hec
IniRead , Key , %A_ScriptDir%\config.ini, Skills, Key
IniRead , val , %A_ScriptDir%\config.ini, Skills, val
IniRead, DownList1, %A_ScriptDir%\config.ini, Skill, DownList1

Gui,+ToolWindow +AlwaysOnTop
Gui, Add, Checkbox, x210 y90 vhec checked%hec% gSave , Нажатия по координатам
Gui, Add, Text, x30  y11 w35 h20  vstate1  , %val%
Gui, Add, hotkey, x210 y10 w50 h20  vkey gSave 10, %Key%
Gui, Add, Button , x10 y40 w40 h22 gPerexod1, +1
Gui, Add, Button , x10 y65 w40 h22 gPerexod2 4, -1
Gui, Add, Button , x55 y40 w40 h22 gPerexod3, +10
Gui, Add, Button , x55 y65 w40 h22 gPerexod4 4, -10
Gui, Add, Button , x265 y40 w90 h22 gПрименить 4, Применить
Gui, Add, Button , x265 y65 w90 h22 gПерезапустить, Перезапустить
Gui, Add, Text , x65 y11 ,Нажатий в секунду
Gui, Add, Text , x265 y12 ,Кнопка запуска

Gui, Add, DropDownList, x210 y40 w55 h80 vDownList1 gSave, |Left|Right|Middle
GuiControl, ChooseString, DownList1, %DownList1%

Gui, Show,x800 w400 h300,кликер
l2:
    if(p1=1)
	{
	sleep 400
	goto l2
	}
    if(p1=0)
	{
	IniWrite, %DownList1%, %A_ScriptDir%\config.ini, Skill, DownList1
	IniRead,   DownList1 , %A_ScriptDir%\config.ini, Skill, DownList1
	mousebutton=%DownList1%
	 slep=1000
     envdiv, slep,%val%
	 click %mousebutton% %xpos% %ypos%	 sleep %slep%

    }
    goto l2
Return

!2::
msgbox %p1%
Reload
return


Button1:
if (hec=1)
{
MouseGetPos, xpos, ypos
}
if(hec=0)
{
xpos=
ypos=
}
if(p1=0)
{
p1=1
return
}
if(p1=1)
{
p1=0
}
return

Save:
Gui, Submit, NoHide
IniWrite, %DownList1%, %A_ScriptDir%\config.ini, Skill, DownList1
IniWrite , %val% , %A_ScriptDir%\config.ini, Skills, val
IniWrite , %Key% , %A_ScriptDir%\config.ini, Skills, Key
IniWrite, %hec%, %A_ScriptDir%\config.ini, Skill, hec
return
Перезапустить:
Gui, Submit, NoHide
IniWrite, %DownList1%, %A_ScriptDir%\config.ini, Skill, DownList1
IniWrite , %val% , %A_ScriptDir%\config.ini, Skills, val
IniWrite , %Key% , %A_ScriptDir%\config.ini, Skills, Key
IniWrite, %hec%, %A_ScriptDir%\config.ini, Skill, hec
Reload
return
Применить:
Hotkey, %Key% ,off,UseErrorLevel
Gui, Submit , NoHide
Hotkey, %Key% , Button1 ,on,UseErrorLevel
return
GuiClose:
Gui, Submit, NoHide
IniWrite , %Key% , %A_ScriptDir%\config.ini, Skills, Key
IniWrite, %DownList1%, %A_ScriptDir%\config.ini, Skill, DownList1
IniWrite , %val% , %A_ScriptDir%\config.ini, Skills, val
IniWrite, %hec%, %A_ScriptDir%\config.ini, Skill, hec
ExitApp
return
метка:
GuiControl,,  state1, %val%
return
Perexod1:
envadd, val , 1
goto метка
Perexod2:
envadd, val , -1
if (val<0)
{
val=0
}
goto метка
Perexod3:
envadd, val , 10
goto метка
Perexod4:
envadd, val , -10
if (val<0)
{
val=0
}
goto метка