Тема: AHK: Не могу подгрузить информация в биндере
Я не понимаю почему бинды работают только тогда когда открыто меню с редактированием биндов. Мне нужно что бы работали бинды всегда
Я пытался подгрузить но у меня не получилось.
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Я не понимаю почему бинды работают только тогда когда открыто меню с редактированием биндов. Мне нужно что бы работали бинды всегда
Я пытался подгрузить но у меня не получилось.
#UseHook
#SingleInstance, Force
#NoEnv
#MaxHotkeysPerInterval 99000000
#HotkeyInterval 99000000
#KeyHistory 0
SetKeyDelay
SetWorkingDir %A_ScriptDir%
SplashTextoff
ListLines Off
Process, Priority, ahk_exe , H
full_command_line := DllCall("GetCommandLine", "str")
if not (A_IsAdmin or RegExMatch(full_command_line, " /restart(?!\S)")) {
try {
if A_IsCompiled
Run *RunAs "%A_ScriptFullPath%" /restart
else
Run *RunAs "%A_AhkPath%" /restart "%A_ScriptFullPath%"
}
ExitApp
}
;======================================================================================================================Скачка файлов
IfnotExist, %A_ScriptDir%\Profiles
{
FileCreateDir, %A_ScriptDir%\Profiles
}
Gui, 2: Color, 1e2124,
Gui, 2: Add, Button, x402 y100 w150 h30 gBind, Бинды
Gui, 2: Show, w577 h450, Binder
return
Bind:
Gui, 2: Destroy
Gui, -MaximizeBox
Gui, Show, w580 h414, Бинды
Gui, Color, c4c4c4
Gui, Font, c0x000000
mediaDir = %A_WinDir%\Media
chatwait := 0
NumMenu := 0
Gui, -SysMenu
Gui, Add, Text, x19 y36 w70 h20 +BackgroundTrans,Клавиша
Gui, Add, Text, x106 y36 w90 h20 +BackgroundTrans,Кол-во строк
Gui, Add, Text, x246 y36 w100 h20 +BackgroundTrans,Название бинда
Gui, Add, Text, x434 y36 w108 h20 +BackgroundTrans,Настройка хоткея
Gui, Add, GroupBox, x12 y24 w556 h30 cA52A2A,
loop, 1
{
Gui, Font , norm,
yPos := 70
loop, 10
{
NumMenu++
Gui, Add, Hotkey, x12 y%yPos% w66 h20 vHot%NumMenu%,
Gui, Add, Edit, Center x100 y%yPos% w80 h20 cblack Number vString%NumMenu%,
Gui, Add, Edit, Center x202 y%yPos% w180 h20 Limit30 cblack vBindName%NumMenu%,
Gui, Add, Button, x404 y%yPos% w164 h20 gSettingBind%NumMenu%, Настройки
yPos := yPos + 31
}
}
Gui, Add, GroupBox, x0 y370 w260 h43 cA52A2A , Активный профиль
Gui, Add, DropDownList, x12 y386 w130 vDrop gLoad,
Gui, Add, Button, x146 y386 w100 h20 gCreateProfil, Создать новый
Gui, Add, Button, x404 y386 w164 h20 vSave gSave, Сохранить
Loop, %A_WorkingDir%\Profiles\*profile, , 1
{
NameProfile=%A_LoopFileName%
StringReplace, NameProfile, NameProfile, .profile,, all
GuiControl,, Drop, %NameProfile%
}
IniRead, Profil, %A_WorkingDir%\Profiles\Settings, Main, Profile, %A_Space%
StringReplace, Profil, Profil, .profile,, all
GuiControl, ChooseString, Drop, %Profil%
Goto, Load
return
;===================================================================================
Load:
GuiControlGet, Drop
if Drop=
{
GuiControl, Choose, Drop, 1
GuiControlGet, Drop
Goto, LoadProfile
}
else
{
Goto, LoadProfile
}
return
;===================================================================================
Save:
Gui, Submit, NoHide
Goto, SaveProfile
return
;===================================================================================
LoadProfile:
loop, 11
Hotkey, % Hot%A_Index%, Off, UseErrorLevel
Index=0
pr=0
loop, 11
{
pr++
Hot%pr%=
String%pr%=
Index++
loop, 11
{
%Index%Bind%A_Index%=
%Index%BindName%A_Index%=
%Index%EnterOn%A_Index%=0
%Index%ShiftOn%A_Index%=0
%Index%ScreenOn%A_Index%=0
%Index%TimerOn%A_Index%=0
%Index%Delay%A_Index%=
}
}
Index=0
loop, 11
{
Index++
loop, 11
{
%Index%LoadBind%A_Index%=
%Index%LoadBindName%A_Index%=
%Index%LoadEnterOn%A_Index%=
%Index%LoadShiftOn%A_Index%=
%Index%LoadScreenOn%A_Index%=
%Index%LoadTimerOn%A_Index%=
%Index%LoadDelay%A_Index%=
}
}
loop, 11
{
IniRead, LoadHot%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, Key, HotKey%A_Index%, %A_Space%
IniRead, LoadString%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, Key, NumberString%A_Index%, %A_Space%
IniRead, LoadBindName%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, Key, BindName%A_Index%, %A_Space%
GuiControl,, Hot%A_Index%, % LoadHot%A_Index%
GuiControl,, String%A_Index%, % LoadString%A_Index%
GuiControl,, BindName%A_Index%, % LoadBindName%A_Index%
}
Gosub, Settingbind11
Gui, 8:Destroy
Index=0
loop, 11
{
Index++
Loop, % String%A_Index%
{
Gui, 8:Default
IniRead, %Index%LoadBind%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, SettingBind№%Index%, NumberBind%A_Index%, %A_Space%
IniRead, %Index%LoadEnterOn%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, SettingBind№%Index%, NumberEnter%A_Index%, %A_Space%
IniRead, %Index%LoadShiftOn%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, SettingBind№%Index%, NumberShift%A_Index%, %A_Space%
IniRead, %Index%LoadScreenOn%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, SettingBind№%Index%, NumberScreen%A_Index%, %A_Space%
IniRead, %Index%LoadTimerOn%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, SettingBind№%Index%, NumberTimer%A_Index%, %A_Space%
IniRead, %Index%LoadDelay%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, SettingBind№%Index%, NumberDelay%A_Index%, %A_Space%
}
}
IniWrite, %Drop%.profile, %A_WorkingDir%\Profiles\Settings, Main, Profile
Gosub, BinderActive
return
;===================================================================================
SaveProfile:
num:=0
SoundPlay, %A_ScriptDir%\res\WaitComplite.wav
loop, 11
{
num++
loop, % LoadString%num%
{
%num%Bind%A_Index%= % %num%LoadBind%A_Index%
%num%EnterOn%A_Index%= % %num%LoadEnterOn%A_Index%
%num%ShiftOn%A_Index%= % %num%LoadShiftOn%A_Index%
%num%ScreenOn%A_Index%= % %num%LoadScreenOn%A_Index%
%num%TimerOn%A_Index%= % %num%LoadTimerOn%A_Index%
%num%Delay%A_Index%= % %num%LoadDelay%A_Index%
}
}
loop, 11
{
IniWrite, % Hot%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile , Key, HotKey%A_Index%
IniWrite, % String%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile , Key, NumberString%A_Index%
IniWrite, % BindName%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile , Key, BindName%A_Index%
}
Index=0
loop, 11
{
Index++
loop % String%A_Index%
{
IniWrite, % %Index%Bind%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, SettingBind№%Index%, NumberBind%A_Index%
IniWrite, % %Index%EnterOn%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, SettingBind№%Index%, NumberEnter%A_Index%
IniWrite, % %Index%ShiftOn%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, SettingBind№%Index%, NumberShift%A_Index%
IniWrite, % %Index%ScreenOn%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, SettingBind№%Index%, NumberScreen%A_Index%
IniWrite, % %Index%TimerOn%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, SettingBind№%Index%, NumberTimer%A_Index%
IniWrite, % %Index%Delay%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, SettingBind№%Index%, NumberDelay%A_Index%
}
}
reload
return
;===================================================================================
SettingBind1:
Gui, Submit, NoHide
if String1<1
{
Tooltip, Ошибка! Вы не ввели количество строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip1, -5000
return
RemoveToolTip1:
ToolTip
return
}
else if String1>30
{
Tooltip, Ошибка! Нельзя создавать больше 30 строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip11, -5000
return
RemoveToolTip11:
ToolTip
return
}
yPos := 30
yDelay := 60
NumMenu1 := 0
Gui, 8:Destroy
Gui, 8:Add, Text, x15 y10 w280 h20 cwhite , Бинд (строка с текстом или командой)
Gui, 8:Add, Text, x528 y10 w120 h20 cwhite, Задержка (мс)
Gui, 8:Add, Text, x624 y10 w40 h20 cwhite, Enter
Gui, 8:Add, Text, x672 y10 w40 h20 cwhite, RShift
Gui, 8:Add, Text, x720 y10 w40 h20 cwhite, Screen
loop, %String1%
{
NumMenu1++
Gui, 8:Font, norm,
Gui, 8:Add, Edit, Center x520 y%yPos% w90 h20 +Number v1Delay%NumMenu1%,
Gui, 8:Add, Edit, x15 y%yPos% w490 h20 v1Bind%NumMenu1%,
Gui, 8:Add, CheckBox, x630 y%yPos% w20 h20 v1EnterOn%NumMenu1%,
Gui, 8:Add, CheckBox, x680 y%yPos% w20 h20 v1ShiftOn%NumMenu1%,
Gui, 8:Add, CheckBox, x730 y%yPos% w20 h20 v1ScreenOn%NumMenu1%,
yPos := yPos + 30
}
Gui, 8:add, button, y%yPos% x15 gPrimenit, Применить
yPos+=30
Gui, 8:Show, center h%yPos% w770, Настройки %BindName1%
Gui, 8:Color, 1e2124
loop %String1%
{
Gui, 8:Default
GuiControl,, 1Bind%A_Index%, % 1LoadBind%A_Index%
GuiControl,, 1EnterOn%A_Index%, % 1LoadEnterOn%A_Index%
GuiControl,, 1ShiftOn%A_Index%, % 1LoadShiftOn%A_Index%
GuiControl,, 1ScreenOn%A_Index%, % 1LoadScreenOn%A_Index%
GuiControl,, 1TimerOn%A_Index%, % 1LoadTimerOn%A_Index%
GuiControl,, 1Delay%A_Index%, % 1LoadDelay%A_Index%
}
Gosub, BinderActive
return
;===================================================================================
SettingBind2:
Gui, Submit, NoHide
if String2<1
{
Tooltip, Ошибка! Вы не ввели количество строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip2, -5000
return
RemoveToolTip2:
ToolTip
return
}
else if String2>30
{
Tooltip, Ошибка! Нельзя создавать больше 30 строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip22, -5000
return
RemoveToolTip22:
ToolTip
return
}
yPos := 30
yDelay := 60
NumMenu1 := 0
Gui, 8:Destroy
Gui, 8:Add, Text, x15 y10 w280 h20 cwhite , Бинд (строка с текстом или командой)
Gui, 8:Add, Text, x528 y10 w120 h20 cwhite, Задержка (мс)
Gui, 8:Add, Text, x624 y10 w40 h20 cwhite, Enter
Gui, 8:Add, Text, x672 y10 w40 h20 cwhite, RShift
Gui, 8:Add, Text, x720 y10 w40 h20 cwhite, Screen
loop, %String2%
{
NumMenu1++
Gui, 8:Font, norm,
Gui, 8:Add, Edit, Center x520 y%yPos% w90 h20 +Number v2Delay%NumMenu1%,
Gui, 8:Add, Edit, x15 y%yPos% w490 h20 v2Bind%NumMenu1%,
Gui, 8:Add, CheckBox, x630 y%yPos% w20 h20 v2EnterOn%NumMenu1%,
Gui, 8:Add, CheckBox, x680 y%yPos% w20 h20 v2ShiftOn%NumMenu1%,
Gui, 8:Add, CheckBox, x730 y%yPos% w20 h20 v2ScreenOn%NumMenu1%,
yPos := yPos + 30
}
Gui, 8:add, button, y%yPos% x15 gPrimenit, Применить
yPos+=30
Gui, 8:Show, center h%yPos% w770, Настройки %BindName2%
Gui, 8:Color, 1e2124
loop %String2%
{
Gui, 8:Default
GuiControl,, 2Bind%A_Index%, % 2LoadBind%A_Index%
GuiControl,, 2EnterOn%A_Index%, % 2LoadEnterOn%A_Index%
GuiControl,, 2ShiftOn%A_Index%, % 2LoadShiftOn%A_Index%
GuiControl,, 2ScreenOn%A_Index%, % 2LoadScreenOn%A_Index%
GuiControl,, 2Delay%A_Index%, % 2LoadDelay%A_Index%
}
Gosub, BinderActive
return
;===================================================================================
SettingBind3:
Gui, Submit, NoHide
if String3<1
{
Tooltip, Ошибка! Вы не ввели количество строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip3, -5000
return
RemoveToolTip3:
ToolTip
return
}
else if String3>30
{
Tooltip, Ошибка! Нельзя создавать больше 30 строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip33, -5000
return
RemoveToolTip33:
ToolTip
return
}
yPos := 30
yDelay := 60
NumMenu1 := 0
Gui, 8:Destroy
Gui, 8:Add, Text, x15 y10 w280 h20 cwhite , Бинд (строка с текстом или командой)
Gui, 8:Add, Text, x528 y10 w120 h20 cwhite, Задержка (мс)
Gui, 8:Add, Text, x624 y10 w40 h20 cwhite, Enter
Gui, 8:Add, Text, x672 y10 w40 h20 cwhite, RShift
Gui, 8:Add, Text, x720 y10 w40 h20 cwhite, Screen
loop, %String3%
{
NumMenu1++
Gui, 8:Font, norm,
Gui, 8:Add, Edit, Center x520 y%yPos% w90 h20 +Number v3Delay%NumMenu1%,
Gui, 8:Add, Edit, x15 y%yPos% w490 h20 v3Bind%NumMenu1%,
Gui, 8:Add, CheckBox, x630 y%yPos% w20 h20 v3EnterOn%NumMenu1%,
Gui, 8:Add, CheckBox, x680 y%yPos% w20 h20 v3ShiftOn%NumMenu1%,
Gui, 8:Add, CheckBox, x730 y%yPos% w20 h20 v3ScreenOn%NumMenu1%,
yPos := yPos + 30
}
Gui, 8:add, button, y%yPos% x15 gPrimenit, Применить
yPos+=30
Gui, 8:Show, center h%yPos% w770, Настройки %BindName3%
Gui, 8:Color, 1e2124
loop %String3%
{
Gui, 8:Default
GuiControl,, 3Bind%A_Index%, % 3LoadBind%A_Index%
GuiControl,, 3EnterOn%A_Index%, % 3LoadEnterOn%A_Index%
GuiControl,, 3ShiftOn%A_Index%, % 3LoadShiftOn%A_Index%
GuiControl,, 3ScreenOn%A_Index%, % 3LoadScreenOn%A_Index%
GuiControl,, 3Delay%A_Index%, % 3LoadDelay%A_Index%
}
Gosub, BinderActive
return
;===================================================================================
SettingBind4:
Gui, Submit, NoHide
if String4<1
{
Tooltip, Ошибка! Вы не ввели количество строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip4, -5000
return
RemoveToolTip4:
ToolTip
return
}
else if String4>30
{
Tooltip, Ошибка! Нельзя создавать больше 30 строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip44, -5000
return
RemoveToolTip44:
ToolTip
return
}
yPos := 30
yDelay := 60
NumMenu1 := 0
Gui, 8:Destroy
Gui, 8:Add, Text, x15 y10 w280 h20 cwhite , Бинд (строка с текстом или командой)
Gui, 8:Add, Text, x528 y10 w120 h20 cwhite, Задержка (мс)
Gui, 8:Add, Text, x624 y10 w40 h20 cwhite, Enter
Gui, 8:Add, Text, x672 y10 w40 h20 cwhite, RShift
Gui, 8:Add, Text, x720 y10 w40 h20 cwhite, Screen
loop, %String4%
{
NumMenu1++
Gui, 8:Font, norm,
Gui, 8:Add, Edit, Center x520 y%yPos% w90 h20 +Number v4Delay%NumMenu1%,
Gui, 8:Add, Edit, x15 y%yPos% w490 h20 v4Bind%NumMenu1%,
Gui, 8:Add, CheckBox, x630 y%yPos% w20 h20 v4EnterOn%NumMenu1%,
Gui, 8:Add, CheckBox, x680 y%yPos% w20 h20 v4ShiftOn%NumMenu1%,
Gui, 8:Add, CheckBox, x730 y%yPos% w20 h20 v4ScreenOn%NumMenu1%,
yPos := yPos + 30
}
Gui, 8:add, button, y%yPos% x15 gPrimenit, Применить
yPos+=30
Gui, 8:Show, center h%yPos% w770, Настройки %BindName4%
Gui, 8:Color, 1e2124
loop %String4%
{
Gui, 8:Default
GuiControl,, 4Bind%A_Index%, % 4LoadBind%A_Index%
GuiControl,, 4EnterOn%A_Index%, % 4LoadEnterOn%A_Index%
GuiControl,, 4ShiftOn%A_Index%, % 4LoadShiftOn%A_Index%
GuiControl,, 4ScreenOn%A_Index%, % 4LoadScreenOn%A_Index%
GuiControl,, 4Delay%A_Index%, % 4LoadDelay%A_Index%
}
Gosub, BinderActive
return
;===================================================================================
SettingBind5:
Gui, Submit, NoHide
if String5<1
{
Tooltip, Ошибка! Вы не ввели количество строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip5, -5000
return
RemoveToolTip5:
ToolTip
return
}
else if String5>30
{
Tooltip, Ошибка! Нельзя создавать больше 30 строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip55, -5000
return
RemoveToolTip55:
ToolTip
return
}
yPos := 30
yDelay := 60
NumMenu1 := 0
Gui, 8:Destroy
Gui, 8:Add, Text, x15 y10 w280 h20 cwhite , Бинд (строка с текстом или командой)
Gui, 8:Add, Text, x528 y10 w120 h20 cwhite, Задержка (мс)
Gui, 8:Add, Text, x624 y10 w40 h20 cwhite, Enter
Gui, 8:Add, Text, x672 y10 w40 h20 cwhite, RShift
Gui, 8:Add, Text, x720 y10 w40 h20 cwhite, Screen
loop, %String5%
{
NumMenu1++
Gui, 8:Font, norm,
Gui, 8:Add, Edit, Center x520 y%yPos% w90 h20 +Number v5Delay%NumMenu1%,
Gui, 8:Add, Edit, x15 y%yPos% w490 h20 v5Bind%NumMenu1%,
Gui, 8:Add, CheckBox, x630 y%yPos% w20 h20 v5EnterOn%NumMenu1%,
Gui, 8:Add, CheckBox, x680 y%yPos% w20 h20 v5ShiftOn%NumMenu1%,
Gui, 8:Add, CheckBox, x730 y%yPos% w20 h20 v5ScreenOn%NumMenu1%,
yPos := yPos + 30
}
Gui, 8:add, button, y%yPos% x15 gPrimenit, Применить
yPos+=30
Gui, 8:Show, center h%yPos% w770, Настройки %BindName5%
Gui, 8:Color, 1e2124
loop %String5%
{
Gui, 8:Default
GuiControl,, 5Bind%A_Index%, % 5LoadBind%A_Index%
GuiControl,, 5EnterOn%A_Index%, % 5LoadEnterOn%A_Index%
GuiControl,, 5ShiftOn%A_Index%, % 5LoadShiftOn%A_Index%
GuiControl,, 5ScreenOn%A_Index%, % 5LoadScreenOn%A_Index%
GuiControl,, 5Delay%A_Index%, % 5LoadDelay%A_Index%
}
Gosub, BinderActive
return
;===================================================================================
SettingBind6:
Gui, Submit, NoHide
if String6<1
{
Tooltip, Ошибка! Вы не ввели количество строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip6, -5000
return
RemoveToolTip6:
ToolTip
return
}
else if String6>30
{
Tooltip, Ошибка! Нельзя создавать больше 30 строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip66, -5000
return
RemoveToolTip66:
ToolTip
return
}
yPos := 30
yDelay := 60
NumMenu1 := 0
Gui, 8:Destroy
Gui, 8:Add, Text, x15 y10 w280 h20 cwhite , Бинд (строка с текстом или командой)
Gui, 8:Add, Text, x528 y10 w120 h20 cwhite, Задержка (мс)
Gui, 8:Add, Text, x624 y10 w40 h20 cwhite, Enter
Gui, 8:Add, Text, x672 y10 w40 h20 cwhite, RShift
Gui, 8:Add, Text, x720 y10 w40 h20 cwhite, Screen
loop, %String6%
{
NumMenu1++
Gui, 8:Font, norm,
Gui, 8:Add, Edit, Center x520 y%yPos% w90 h20 +Number v6Delay%NumMenu1%,
Gui, 8:Add, Edit, x15 y%yPos% w490 h20 v6Bind%NumMenu1%,
Gui, 8:Add, CheckBox, x630 y%yPos% w20 h20 v6EnterOn%NumMenu1%,
Gui, 8:Add, CheckBox, x680 y%yPos% w20 h20 v6ShiftOn%NumMenu1%,
Gui, 8:Add, CheckBox, x730 y%yPos% w20 h20 v6ScreenOn%NumMenu1%,
yPos := yPos + 30
}
Gui, 8:add, button, y%yPos% x15 gPrimenit, Применить
yPos+=30
Gui, 8:Show, center h%yPos% w770, Настройки %BindName6%
Gui, 8:Color, 1e2124
loop %String6%
{
Gui, 8:Default
GuiControl,, 6Bind%A_Index%, % 6LoadBind%A_Index%
GuiControl,, 6EnterOn%A_Index%, % 6LoadEnterOn%A_Index%
GuiControl,, 6ShiftOn%A_Index%, % 6LoadShiftOn%A_Index%
GuiControl,, 6ScreenOn%A_Index%, % 6LoadScreenOn%A_Index%
GuiControl,, 6Delay%A_Index%, % 6LoadDelay%A_Index%
}
Gosub, BinderActive
return
;===================================================================================
SettingBind7:
Gui, Submit, NoHide
if String7<1
{
Tooltip, Ошибка! Вы не ввели количество строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip7, -5000
return
RemoveToolTip7:
ToolTip
return
}
else if String7>30
{
Tooltip, Ошибка! Нельзя создавать больше 30 строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip77, -5000
return
RemoveToolTip77:
ToolTip
return
}
yPos := 30
yDelay := 60
NumMenu1 := 0
Gui, 8:Destroy
Gui, 8:Add, Text, x15 y10 w280 h20 cwhite , Бинд (строка с текстом или командой)
Gui, 8:Add, Text, x528 y10 w120 h20 cwhite, Задержка (мс)
Gui, 8:Add, Text, x624 y10 w40 h20 cwhite, Enter
Gui, 8:Add, Text, x672 y10 w40 h20 cwhite, RShift
Gui, 8:Add, Text, x720 y10 w40 h20 cwhite, Screen
loop, %String7%
{
NumMenu1++
Gui, 8:Font, norm,
Gui, 8:Add, Edit, Center x520 y%yPos% w90 h20 +Number v7Delay%NumMenu1%,
Gui, 8:Add, Edit, x15 y%yPos% w490 h20 v7Bind%NumMenu1%,
Gui, 8:Add, CheckBox, x630 y%yPos% w20 h20 v7EnterOn%NumMenu1%,
Gui, 8:Add, CheckBox, x680 y%yPos% w20 h20 v7ShiftOn%NumMenu1%,
Gui, 8:Add, CheckBox, x730 y%yPos% w20 h20 v7ScreenOn%NumMenu1%,
yPos := yPos + 30
}
Gui, 8:add, button, y%yPos% x15 gPrimenit, Применить
yPos+=30
Gui, 8:Show, center h%yPos% w770, Настройки %BindName7%
Gui, 8:Color, 1e2124
loop %String7%
{
Gui, 8:Default
GuiControl,, 7Bind%A_Index%, % 7LoadBind%A_Index%
GuiControl,, 7EnterOn%A_Index%, % 7LoadEnterOn%A_Index%
GuiControl,, 7ShiftOn%A_Index%, % 7LoadShiftOn%A_Index%
GuiControl,, 7ScreenOn%A_Index%, % 7LoadScreenOn%A_Index%
GuiControl,, 7Delay%A_Index%, % 7LoadDelay%A_Index%
}
Gosub, BinderActive
return
;===================================================================================
SettingBind8:
Gui, Submit, NoHide
if String8<1
{
Tooltip, Ошибка! Вы не ввели количество строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip8, -5000
return
RemoveToolTip8:
ToolTip
return
}
else if String8>30
{
Tooltip, Ошибка! Нельзя создавать больше 30 строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip88, -5000
return
RemoveToolTip88:
ToolTip
return
}
yPos := 30
yDelay := 60
NumMenu1 := 0
Gui, 8:Destroy
Gui, 8:Add, Text, x15 y10 w280 h20 cwhite , Бинд (строка с текстом или командой)
Gui, 8:Add, Text, x528 y10 w120 h20 cwhite, Задержка (мс)
Gui, 8:Add, Text, x624 y10 w40 h20 cwhite, Enter
Gui, 8:Add, Text, x672 y10 w40 h20 cwhite, RShift
Gui, 8:Add, Text, x720 y10 w40 h20 cwhite, Screen
loop, %String8%
{
NumMenu1++
Gui, 8:Font, norm,
Gui, 8:Add, Edit, Center x520 y%yPos% w90 h20 +Number v8Delay%NumMenu1%,
Gui, 8:Add, Edit, x15 y%yPos% w490 h20 v8Bind%NumMenu1%,
Gui, 8:Add, CheckBox, x630 y%yPos% w20 h20 v8EnterOn%NumMenu1%,
Gui, 8:Add, CheckBox, x680 y%yPos% w20 h20 v8ShiftOn%NumMenu1%,
Gui, 8:Add, CheckBox, x730 y%yPos% w20 h20 v8ScreenOn%NumMenu1%,
yPos := yPos + 30
}
Gui, 8:add, button, y%yPos% x15 gPrimenit, Применить
yPos+=30
Gui, 8:Show, center h%yPos% w770, Настройки %BindName8%
Gui, 8:Color, 1e2124
loop %String8%
{
Gui, 8:Default
GuiControl,, 8Bind%A_Index%, % 8LoadBind%A_Index%
GuiControl,, 8EnterOn%A_Index%, % 8LoadEnterOn%A_Index%
GuiControl,, 8ShiftOn%A_Index%, % 8LoadShiftOn%A_Index%
GuiControl,, 8ScreenOn%A_Index%, % 8LoadScreenOn%A_Index%
GuiControl,, 8Delay%A_Index%, % 8LoadDelay%A_Index%
}
Gosub, BinderActive
return
;===================================================================================
SettingBind9:
Gui, Submit, NoHide
if String9<1
{
Tooltip, Ошибка! Вы не ввели количество строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip9, -5000
return
RemoveToolTip9:
ToolTip
return
}
else if String9>30
{
Tooltip, Ошибка! Нельзя создавать больше 30 строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip99, -5000
return
RemoveToolTip99:
ToolTip
return
}
yPos := 30
yDelay := 60
NumMenu1 := 0
Gui, 8:Destroy
Gui, 8:Add, Text, x15 y10 w280 h20 cwhite , Бинд (строка с текстом или командой)
Gui, 8:Add, Text, x528 y10 w120 h20 cwhite, Задержка (мс)
Gui, 8:Add, Text, x624 y10 w40 h20 cwhite, Enter
Gui, 8:Add, Text, x672 y10 w40 h20 cwhite, RShift
Gui, 8:Add, Text, x720 y10 w40 h20 cwhite, Screen
loop, %String9%
{
NumMenu1++
Gui, 8:Font, norm,
Gui, 8:Add, Edit, Center x520 y%yPos% w90 h20 +Number v9Delay%NumMenu1%,
Gui, 8:Add, Edit, x15 y%yPos% w490 h20 v9Bind%NumMenu1%,
Gui, 8:Add, CheckBox, x630 y%yPos% w20 h20 v9EnterOn%NumMenu1%,
Gui, 8:Add, CheckBox, x680 y%yPos% w20 h20 v9ShiftOn%NumMenu1%,
Gui, 8:Add, CheckBox, x730 y%yPos% w20 h20 v9ScreenOn%NumMenu1%,
yPos := yPos + 30
}
Gui, 8:add, button, y%yPos% x15 gPrimenit, Применить
yPos+=30
Gui, 8:Show, center h%yPos% w770, Настройки %BindName9%
Gui, 8:Color, 1e2124
loop %String9%
{
Gui, 8:Default
GuiControl,, 9Bind%A_Index%, % 9LoadBind%A_Index%
GuiControl,, 9EnterOn%A_Index%, % 9LoadEnterOn%A_Index%
GuiControl,, 9ShiftOn%A_Index%, % 9LoadShiftOn%A_Index%
GuiControl,, 9ScreenOn%A_Index%, % 9LoadScreenOn%A_Index%
GuiControl,, 9Delay%A_Index%, % 9LoadDelay%A_Index%
}
Gosub, BinderActive
return
;===================================================================================
SettingBind10:
Gui, Submit, NoHide
if String10<1
{
Tooltip, Ошибка! Вы не ввели количество строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip10, -5000
return
RemoveToolTip10:
ToolTip
return
}
else if String10>30
{
Tooltip, Ошибка! Нельзя создавать больше 30 строк!, 180, 222
soundbeep
SetTimer, RemoveToolTip101, -5000
return
RemoveToolTip101:
ToolTip
return
}
yPos := 30
yDelay := 60
NumMenu1 := 0
Gui, 8:Destroy
Gui, 8:Add, Text, x15 y10 w280 h20 cwhite , Бинд (строка с текстом или командой)
Gui, 8:Add, Text, x528 y10 w120 h20 cwhite, Задержка (мс)
Gui, 8:Add, Text, x624 y10 w40 h20 cwhite, Enter
Gui, 8:Add, Text, x672 y10 w40 h20 cwhite, RShift
Gui, 8:Add, Text, x720 y10 w40 h20 cwhite, Screen
loop, %String10%
{
NumMenu1++
Gui, 8:Font, norm,
Gui, 8:Add, Edit, Center x520 y%yPos% w90 h20 +Number v10Delay%NumMenu1%,
Gui, 8:Add, Edit, x15 y%yPos% w490 h20 v10Bind%NumMenu1%,
Gui, 8:Add, CheckBox, x630 y%yPos% w20 h20 v10EnterOn%NumMenu1%,
Gui, 8:Add, CheckBox, x680 y%yPos% w20 h20 v10ShiftOn%NumMenu1%,
Gui, 8:Add, CheckBox, x730 y%yPos% w20 h20 v10ScreenOn%NumMenu1%,
yPos := yPos + 30
}
Gui, 8:add, button, y%yPos% x15 gPrimenit, Применить
yPos+=30
Gui, 8:Show, center h%yPos% w770, Настройки %BindName10%
Gui, 8:Color, 1e2124
loop %String10%
{
Gui, 8:Default
GuiControl,, 10Bind%A_Index%, % 10LoadBind%A_Index%
GuiControl,, 10EnterOn%A_Index%, % 10LoadEnterOn%A_Index%
GuiControl,, 10ShiftOn%A_Index%, % 10LoadShiftOn%A_Index%
GuiControl,, 10ScreenOn%A_Index%, % 10LoadScreenOn%A_Index%
GuiControl,, 10Delay%A_Index%, % 10LoadDelay%A_Index%
}
Gosub, BinderActive
return
;===================================================================================
SettingBind11:
Gui, Submit, NoHide
;if String11<1
;{
;TrayTip, Ошибка!, Вы не ввели количество строк!, 5, 3
; return
;}
;else if String11>30
;{
; TrayTip, Ошибка!, Нельзя создавать больше 30 строк! Угомонись писатель!, 5, 3
; return
;}
yPos := 30
yDelay := 60
NumMenu1 := 0
Gui, 8:Destroy
Gui, 8:Add, Text, x15 y10 w280 h20 cwhite , Бинд (строка с текстом или командой)
Gui, 8:Add, Text, x528 y10 w120 h20 cwhite, Задержка (мс)
Gui, 8:Add, Text, x624 y10 w40 h20 cwhite, Enter
Gui, 8:Add, Text, x672 y10 w40 h20 cwhite, RShift
Gui, 8:Add, Text, x720 y10 w40 h20 cwhite, Screen
loop, %String11%
{
NumMenu1++
Gui, 8:Font, norm,
Gui, 8:Add, Edit, Center x520 y%yPos% w90 h20 +Number v11Delay%NumMenu1%,
Gui, 8:Add, Edit, x15 y%yPos% w490 h20 v11Bind%NumMenu1%,
Gui, 8:Add, CheckBox, x630 y%yPos% w20 h20 v11EnterOn%NumMenu1%,
Gui, 8:Add, CheckBox, x680 y%yPos% w20 h20 v11ShiftOn%NumMenu1%,
Gui, 8:Add, CheckBox, x730 y%yPos% w20 h20 v11ScreenOn%NumMenu1%,
yPos := yPos + 30
}
Gui, 8:add, button, y%yPos% x15 gPrimenit, Применить
yPos+=30
Gui, 8:Show, x1000000 h0 w0, Настройки
Gui, 8:Color, 1e2124
loop %String11%
{
Gui, 8:Default
GuiControl,, 11Bind%A_Index%, % 11LoadBind%A_Index%
GuiControl,, 11EnterOn%A_Index%, % 11LoadEnterOn%A_Index%
GuiControl,, 11ShiftOn%A_Index%, % 11LoadShiftOn%A_Index%
GuiControl,, 11ScreenOn%A_Index%, % 11LoadScreenOn%A_Index%
GuiControl,, 11Delay%A_Index%, % 11LoadDelay%A_Index%
}
Gosub, BinderActive
return
;===================================================================================
Primenit:
SoundPlay, %A_ScriptDir%\res\WaitComplite.wav
Gui, Submit
Index=0
loop, 11
{
Index++
loop, 11
{
%Index%LoadBind%A_Index%=
%Index%LoadEnterOn%A_Index%=
%Index%LoadShiftOn%A_Index%=
%Index%LoadScreenOn%A_Index%=
%Index%LoadTimerOn%A_Index%=
%Index%LoadDelay%A_Index%=
}
}
num:=0
loop, 11
{
num++
loop % String%num%
{
%num%LoadBind%A_Index%=% %num%Bind%A_Index%
%num%LoadEnterOn%A_Index%=% %num%EnterOn%A_Index%
%num%LoadShiftOn%A_Index%=% %num%ShiftOn%A_Index%
%num%LoadScreenOn%A_Index%=% %num%ScreenOn%A_Index%
%num%LoadTimerOn%A_Index%=% %num%TimerOn%A_Index%
%num%LoadDelay%A_Index%=% %num%Delay%A_Index%
}
}
num:=0
loop, 11
{
num++
loop, % LoadString%num%
{
%num%Bind%A_Index%= % %num%LoadBind%A_Index%
%num%EnterOn%A_Index%= % %num%LoadEnterOn%A_Index%
%num%ShiftOn%A_Index%= % %num%LoadShiftOn%A_Index%
%num%ScreenOn%A_Index%= % %num%LoadScreenOn%A_Index%
%num%TimerOn%A_Index%= % %num%LoadTimerOn%A_Index%
%num%Delay%A_Index%= % %num%LoadDelay%A_Index%
}
}
loop, 11
{
IniWrite, % Hot%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile , Key, HotKey%A_Index%
IniWrite, % String%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile , Key, NumberString%A_Index%
IniWrite, % BindName%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile , Key, BindName%A_Index%
}
Index=0
loop, 11
{
Index++
loop % String%A_Index%
{
IniWrite, % %Index%Bind%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, SettingBind№%Index%, NumberBind%A_Index%
IniWrite, % %Index%EnterOn%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, SettingBind№%Index%, NumberEnter%A_Index%
IniWrite, % %Index%ShiftOn%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, SettingBind№%Index%, NumberShift%A_Index%
IniWrite, % %Index%ScreenOn%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, SettingBind№%Index%, NumberScreen%A_Index%
IniWrite, % %Index%TimerOn%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, SettingBind№%Index%, NumberTimer%A_Index%
IniWrite, % %Index%Delay%A_Index%, %A_WorkingDir%\Profiles\%Drop%.profile, SettingBind№%Index%, NumberDelay%A_Index%
}
}
return
;===================================================================================
BinderActive:
num:=0
loop, 11
{
num++
loop, % LoadString%num%
{
%num%Bind%A_Index%= % %num%LoadBind%A_Index%
%num%EnterOn%A_Index%= % %num%LoadEnterOn%A_Index%
%num%ShiftOn%A_Index%= % %num%LoadShiftOn%A_Index%
%num%ScreenOn%A_Index%= % %num%LoadScreenOn%A_Index%
%num%TimerOn%A_Index%= % %num%LoadTimerOn%A_Index%
%num%Delay%A_Index%= % %num%LoadDelay%A_Index%
}
}
loop, 11
Hotkey, % Hot%A_Index%, Off, UseErrorLevel
Gui, Submit, NoHide
loop, 11
Hotkey, % Hot%A_Index%, Activ%A_Index%, On, UseErrorLevel
return
;===================================================================================
Activ1:
if (hotkeyinprogress) {
;SoundBeep, 200, 200
return
}
hotkeyinprogress := true
loop, %String1%
{
SendMessage, 0x50,, 0x4190419,, A
SendInput, % "{T}"
Sleep, %chatwait%
SendInput, % "{Text}" 1Bind%A_Index%
if 1EnterOn%A_Index% > 0
Sendinput, % "{enter}"
if 1ShiftOn%A_Index% > 0
{
SendMessage, 0x50,, 0x4190419,, A
SoundPlay, %A_WorkingDir%\Res\Wait.mp3
Gui, wait:Destroy
Gui, wait:+LastFound +AlwaysOnTop -Caption +ToolWindow +E0x20
Gui, wait:Color, cRed
Gui, wait:Font, s30 cRed, Verdana
Gui, wait:Add, Text, , Нажмите правый Shift
WinSet, TransColor, cRed
Gui, wait:Show, center NoActivate
KeyWait, RShift, D
KeyWait, RShift
Gui, wait:Destroy
;SoundPlay, %A_WorkingDir%\Res\WaitComplite.mp3
}
if 1ScreenOn%A_Index% > 0
{
sleep, 600
Run, "%A_WorkingDir%\Res\i_view32.exe" /capture=3 /convert=%A_WorkingDir%\Screenshots\%BindName1% $U(`%Y-`%m-`%d)\$U(`%H-`%M-`%S).jpg
SoundPlay, %A_WorkingDir%\Res\camera.mp3
}
sleep % 1Delay%A_Index%
}
hotkeyinprogress := false
return
;===================================================================================
Activ2:
if (hotkeyinprogress) {
;SoundBeep, 200, 200
return
}
hotkeyinprogress := true
loop, %String2%
{
SendMessage, 0x50,, 0x4190419,, A
SendInput, % "{T}"
Sleep, %chatwait%
SendInput, % "{Text}" 2Bind%A_Index%
if 2EnterOn%A_Index% > 0
Sendinput, % "{enter}"
if 2ShiftOn%A_Index% > 0
{
SendMessage, 0x50,, 0x4190419,, A
SoundPlay, %A_WorkingDir%\Res\Wait.mp3
Gui, wait:Destroy
Gui, wait:+LastFound +AlwaysOnTop -Caption +ToolWindow +E0x20
Gui, wait:Color, cRed
Gui, wait:Font, s30 cRed, Verdana
Gui, wait:Add, Text, , Нажмите правый Shift
WinSet, TransColor, cRed
Gui, wait:Show, center NoActivate
KeyWait, RShift, D
KeyWait, RShift
Gui, wait:Destroy
;SoundPlay, %A_WorkingDir%\Res\WaitComplite.mp3
}
if 2ScreenOn%A_Index% > 0
{
sleep, 600
Run, "%A_WorkingDir%\Res\i_view32.exe" /capture=3 /convert=%A_WorkingDir%\Screenshots\%BindName2% $U(`%Y-`%m-`%d)\$U(`%H-`%M-`%S).jpg
SoundPlay, %A_WorkingDir%\Res\camera.mp3
}
sleep % 2Delay%A_Index%
}
hotkeyinprogress := false
return
;===================================================================================
Activ3:
if (hotkeyinprogress) {
;SoundBeep, 200, 200
return
}
hotkeyinprogress := true
loop, %String3%
{
SendMessage, 0x50,, 0x4190419,, A
SendInput, % "{T}"
Sleep, %chatwait%
SendInput, % "{Text}" 3Bind%A_Index%
if 3EnterOn%A_Index% > 0
Sendinput, % "{enter}"
if 3ShiftOn%A_Index% > 0
{
SendMessage, 0x50,, 0x4190419,, A
SoundPlay, %A_WorkingDir%\Res\Wait.mp3
Gui, wait:Destroy
Gui, wait:+LastFound +AlwaysOnTop -Caption +ToolWindow +E0x20
Gui, wait:Color, cRed
Gui, wait:Font, s30 cRed, Verdana
Gui, wait:Add, Text, , Нажмите правый Shift
WinSet, TransColor, cRed
Gui, wait:Show, center NoActivate
KeyWait, RShift, D
KeyWait, RShift
Gui, wait:Destroy
;SoundPlay, %A_WorkingDir%\Res\WaitComplite.mp3
}
if 3ScreenOn%A_Index% > 0
{
sleep, 600
Run, "%A_WorkingDir%\Res\i_view32.exe" /capture=3 /convert=%A_WorkingDir%\Screenshots\%BindName3% $U(`%Y-`%m-`%d)\$U(`%H-`%M-`%S).jpg
SoundPlay, %A_WorkingDir%\Res\camera.mp3
}
sleep % 3Delay%A_Index%
}
hotkeyinprogress := false
return
;===================================================================================
Activ4:
if (hotkeyinprogress) {
;SoundBeep, 200, 200
return
}
hotkeyinprogress := true
loop, %String4%
{
SendMessage, 0x50,, 0x4190419,, A
SendInput, % "{T}"
Sleep, %chatwait%
SendInput, % "{Text}" 4Bind%A_Index%
if 4EnterOn%A_Index% > 0
Sendinput, % "{enter}"
if 4ShiftOn%A_Index% > 0
{
SendMessage, 0x50,, 0x4190419,, A
SoundPlay, %A_WorkingDir%\Res\Wait.mp3
Gui, wait:Destroy
Gui, wait:+LastFound +AlwaysOnTop -Caption +ToolWindow +E0x20
Gui, wait:Color, cRed
Gui, wait:Font, s30 cRed, Verdana
Gui, wait:Add, Text, , Нажмите правый Shift
WinSet, TransColor, cRed
Gui, wait:Show, center NoActivate
KeyWait, RShift, D
KeyWait, RShift
Gui, wait:Destroy
;SoundPlay, %A_WorkingDir%\Res\WaitComplite.mp3
}
if 4ScreenOn%A_Index% > 0
{
sleep, 600
Run, "%A_WorkingDir%\Res\i_view32.exe" /capture=3 /convert=%A_WorkingDir%\Screenshots\%BindName4% $U(`%Y-`%m-`%d)\$U(`%H-`%M-`%S).jpg
SoundPlay, %A_WorkingDir%\Res\camera.mp3
}
sleep % 4Delay%A_Index%
}
hotkeyinprogress := false
return
;===================================================================================
Activ5:
if (hotkeyinprogress) {
;SoundBeep, 200, 200
return
}
hotkeyinprogress := true
loop, %String5%
{
SendMessage, 0x50,, 0x4190419,, A
SendInput, % "{T}"
Sleep, %chatwait%
SendInput, % "{Text}" 5Bind%A_Index%
if 5EnterOn%A_Index% > 0
Sendinput, % "{enter}"
if 5ShiftOn%A_Index% > 0
{
SendMessage, 0x50,, 0x4190419,, A
SoundPlay, %A_WorkingDir%\Res\Wait.mp3
Gui, wait:Destroy
Gui, wait:+LastFound +AlwaysOnTop -Caption +ToolWindow +E0x20
Gui, wait:Color, cRed
Gui, wait:Font, s30 cRed, Verdana
Gui, wait:Add, Text, , Нажмите правый Shift
WinSet, TransColor, cRed
Gui, wait:Show, center NoActivate
KeyWait, RShift, D
KeyWait, RShift
Gui, wait:Destroy
;SoundPlay, %A_WorkingDir%\Res\WaitComplite.mp3
}
if 5ScreenOn%A_Index% > 0
{
sleep, 600
Run, "%A_WorkingDir%\Res\i_view32.exe" /capture=3 /convert=%A_WorkingDir%\Screenshots\%BindName5% $U(`%Y-`%m-`%d)\$U(`%H-`%M-`%S).jpg
SoundPlay, %A_WorkingDir%\Res\camera.mp3
}
sleep % 5Delay%A_Index%
}
hotkeyinprogress := false
return
;===================================================================================
Activ6:
if (hotkeyinprogress) {
;SoundBeep, 200, 200
return
}
hotkeyinprogress := true
loop, %String6%
{
SendMessage, 0x50,, 0x4190419,, A
SendInput, % "{T}"
Sleep, %chatwait%
SendInput, % "{Text}" 6Bind%A_Index%
if 6EnterOn%A_Index% > 0
Sendinput, % "{enter}"
if 6ShiftOn%A_Index% > 0
{
SendMessage, 0x50,, 0x4190419,, A
SoundPlay, %A_WorkingDir%\Res\Wait.mp3
Gui, wait:Destroy
Gui, wait:+LastFound +AlwaysOnTop -Caption +ToolWindow +E0x20
Gui, wait:Color, cRed
Gui, wait:Font, s30 cRed, Verdana
Gui, wait:Add, Text, , Нажмите правый Shift
WinSet, TransColor, cRed
Gui, wait:Show, center NoActivate
KeyWait, RShift, D
KeyWait, RShift
Gui, wait:Destroy
;SoundPlay, %A_WorkingDir%\Res\WaitComplite.mp3
}
if 6ScreenOn%A_Index% > 0
{
sleep, 600
Run, "%A_WorkingDir%\Res\i_view32.exe" /capture=3 /convert=%A_WorkingDir%\Screenshots\%BindName6% $U(`%Y-`%m-`%d)\$U(`%H-`%M-`%S).jpg
SoundPlay, %A_WorkingDir%\Res\camera.mp3
}
sleep % 6Delay%A_Index%
}
hotkeyinprogress := false
return
;===================================================================================
Activ7:
if (hotkeyinprogress) {
;SoundBeep, 200, 200
return
}
hotkeyinprogress := true
loop, %String7%
{
SendMessage, 0x50,, 0x4190419,, A
SendInput, % "{T}"
Sleep, %chatwait%
SendInput, % "{Text}" 7Bind%A_Index%
if 7EnterOn%A_Index% > 0
Sendinput, % "{enter}"
if 7ShiftOn%A_Index% > 0
{
SendMessage, 0x50,, 0x4190419,, A
SoundPlay, %A_WorkingDir%\Res\Wait.mp3
Gui, wait:Destroy
Gui, wait:+LastFound +AlwaysOnTop -Caption +ToolWindow +E0x20
Gui, wait:Color, cRed
Gui, wait:Font, s30 cRed, Verdana
Gui, wait:Add, Text, , Нажмите правый Shift
WinSet, TransColor, cRed
Gui, wait:Show, center NoActivate
KeyWait, RShift, D
KeyWait, RShift
Gui, wait:Destroy
;SoundPlay, %A_WorkingDir%\Res\WaitComplite.mp3
}
if 7ScreenOn%A_Index% > 0
{
sleep, 600
Run, "%A_WorkingDir%\Res\i_view32.exe" /capture=3 /convert=%A_WorkingDir%\Screenshots\%BindName7% $U(`%Y-`%m-`%d)\$U(`%H-`%M-`%S).jpg
SoundPlay, %A_WorkingDir%\Res\camera.mp3
}
sleep % 7Delay%A_Index%
}
hotkeyinprogress := false
return
;===================================================================================
Activ8:
if (hotkeyinprogress) {
;SoundBeep, 200, 200
return
}
hotkeyinprogress := true
loop, %String8%
{
SendMessage, 0x50,, 0x4190419,, A
SendInput, % "{T}"
Sleep, %chatwait%
SendInput, % "{Text}" 8Bind%A_Index%
if 8EnterOn%A_Index% > 0
Sendinput, % "{enter}"
if 8ShiftOn%A_Index% > 0
{
SendMessage, 0x50,, 0x4190419,, A
SoundPlay, %A_WorkingDir%\Res\Wait.mp3
Gui, wait:Destroy
Gui, wait:+LastFound +AlwaysOnTop -Caption +ToolWindow +E0x20
Gui, wait:Color, cRed
Gui, wait:Font, s30 cRed, Verdana
Gui, wait:Add, Text, , Нажмите правый Shift
WinSet, TransColor, cRed
Gui, wait:Show, center NoActivate
KeyWait, RShift, D
KeyWait, RShift
Gui, wait:Destroy
;SoundPlay, %A_WorkingDir%\Res\WaitComplite.mp3
}
if 8ScreenOn%A_Index% > 0
{
sleep, 600
Run, "%A_WorkingDir%\Res\i_view32.exe" /capture=3 /convert=%A_WorkingDir%\Screenshots\%BindName8% $U(`%Y-`%m-`%d)\$U(`%H-`%M-`%S).jpg
SoundPlay, %A_WorkingDir%\Res\camera.mp3
}
sleep % 8Delay%A_Index%
}
hotkeyinprogress := false
return
;===================================================================================
Activ9:
if (hotkeyinprogress) {
;SoundBeep, 200, 200
return
}
hotkeyinprogress := true
loop, %String9%
{
SendMessage, 0x50,, 0x4190419,, A
SendInput, % "{T}"
Sleep, %chatwait%
SendInput, % "{Text}" 9Bind%A_Index%
if 9EnterOn%A_Index% > 0
Sendinput, % "{enter}"
if 9ShiftOn%A_Index% > 0
{
SendMessage, 0x50,, 0x4190419,, A
SoundPlay, %A_WorkingDir%\Res\Wait.mp3
Gui, wait:Destroy
Gui, wait:+LastFound +AlwaysOnTop -Caption +ToolWindow +E0x20
Gui, wait:Color, cRed
Gui, wait:Font, s30 cRed, Verdana
Gui, wait:Add, Text, , Нажмите правый Shift
WinSet, TransColor, cRed
Gui, wait:Show, center NoActivate
KeyWait, RShift, D
KeyWait, RShift
Gui, wait:Destroy
;SoundPlay, %A_WorkingDir%\Res\WaitComplite.mp3
}
if 9ScreenOn%A_Index% > 0
{
sleep, 600
Run, "%A_WorkingDir%\Res\i_view32.exe" /capture=3 /convert=%A_WorkingDir%\Screenshots\%BindName9% $U(`%Y-`%m-`%d)\$U(`%H-`%M-`%S).jpg
SoundPlay, %A_WorkingDir%\Res\camera.mp3
}
sleep % 9Delay%A_Index%
}
hotkeyinprogress := false
return
;===================================================================================
Activ10:
if (hotkeyinprogress) {
;SoundBeep, 200, 200
return
}
hotkeyinprogress := true
loop, %String10%
{
SendMessage, 0x50,, 0x4190419,, A
SendInput, % "{T}"
Sleep, %chatwait%
SendInput, % "{Text}" 10Bind%A_Index%
if 10EnterOn%A_Index% > 0
Sendinput, % "{enter}"
if 10ShiftOn%A_Index% > 0
{
SendMessage, 0x50,, 0x4190419,, A
SoundPlay, %A_WorkingDir%\Res\Wait.mp3
Gui, wait:Destroy
Gui, wait:+LastFound +AlwaysOnTop -Caption +ToolWindow +E0x20
Gui, wait:Color, cRed
Gui, wait:Font, s30 cRed, Verdana
Gui, wait:Add, Text, , Нажмите правый Shift
WinSet, TransColor, cRed
Gui, wait:Show, center NoActivate
KeyWait, RShift, D
KeyWait, RShift
Gui, wait:Destroy
;SoundPlay, %A_WorkingDir%\Res\WaitComplite.mp3
}
if 10ScreenOn%A_Index% > 0
{
sleep, 600
Run, "%A_WorkingDir%\Res\i_view32.exe" /capture=3 /convert=%A_WorkingDir%\Screenshots\%BindName10% $U(`%Y-`%m-`%d)\$U(`%H-`%M-`%S).jpg
SoundPlay, %A_WorkingDir%\Res\camera.mp3
}
sleep % 10Delay%A_Index%
}
hotkeyinprogress := false
return
;===================================================================================
Activ11:
if (hotkeyinprogress) {
;SoundBeep, 200, 200
return
}
hotkeyinprogress := true
loop, %String11%
{
SendMessage, 0x50,, 0x4190419,, A
SendInput, % "{T}"
Sleep, %chatwait%
SendInput, % "{Text}" 11Bind%A_Index%
if 11EnterOn%A_Index% > 0
Sendinput, % "{enter}"
if 11ShiftOn%A_Index% > 0
{
SendMessage, 0x50,, 0x4190419,, A
SoundPlay, %A_WorkingDir%\Res\Wait.mp3
Gui, wait:Destroy
Gui, wait:+LastFound +AlwaysOnTop -Caption +ToolWindow +E0x20
Gui, wait:Color, cRed
Gui, wait:Font, s30 cRed, Verdana
Gui, wait:Add, Text, , Нажмите правый Shift
WinSet, TransColor, cRed
Gui, wait:Show, center NoActivate
KeyWait, RShift, D
KeyWait, RShift
Gui, wait:Destroy
;SoundPlay, %A_WorkingDir%\Res\WaitComplite.mp3
}
if 11ScreenOn%A_Index% > 0
{
sleep, 600
Run, "%A_WorkingDir%\Res\i_view32.exe" /capture=3 /convert=%A_WorkingDir%\Screenshots\%BindName11% $U(`%Y-`%m-`%d)\$U(`%H-`%M-`%S).jpg
SoundPlay, %A_WorkingDir%\Res\camera.mp3
}
sleep % 11Delay%A_Index%
}
hotkeyinprogress := false
return
;===================================================================================
CreateProfil:
Gui, 3:Destroy
Gui, 3:Add, GroupBox, x6 y10 w230 h80 cA52A2A, Создание профиля
Gui, 3:Add, Text, x16 y30 w80 h20 cwhite, Имя профиля:
Gui, 3:Add, Edit, x96 y30 w130 h20 vNewNameProfil,
Gui, 3:Add, Button, x96 y60 w60 h20 gCreate, Создать
Gui, 3:Add, Button, x166 y60 w60 h20 gClose, Отмена
Gui, 3:Show, center h98 w243, Создать профиль
Gui, 3:Color, 1e2124
return
;===================================================================================
Create:
GuiControlGet, NewNameProfil
if NewNameProfil=
{
CoordMode, ToolTip, Relative
Tooltip, Ошибка! Вы не ввели Имя профиля., 16, 56
soundbeep
SetTimer, RemoveToolTip_1, -2000
return
RemoveToolTip_1:
ToolTip
Return
}
IfExist, %A_WorkingDir%\Profiles\%NewNameProfil%.profile
{
MsgBox, 52, Внимание , Профиль %NewNameProfil% уже существует!`nСтарый профиль будет удален.`n`nВы уверены что хотите сделать это?,
IfMsgBox, No
return
IfMsgBox, Yes
FileDelete, %A_WorkingDir%\Profiles\%NewNameProfil%.profile
fileCreateDir, %A_WorkingDir%\Profiles
IniWrite, new, %A_WorkingDir%\Profiles\%NewNameProfil%.profile, Key, HotKey1
MsgBox,64, Перезапись профиля, Профиль %NewNameProfil% успешно перезаписан!`nСейчас биндер будет перезапущен.
IniWrite, %NewNameProfil%.profile, %A_WorkingDir%\Profiles\Settings, Main, Profile
Sleep 400
reload
}
else
{
ifnotexist, %A_WorkingDir%\Profiles
fileCreateDir, %A_WorkingDir%\Profiles
IniWrite, new, %A_WorkingDir%\Profiles\%NewNameProfil%.profile, Key, HotKey1
MsgBox, 64, Создание профиля, Профиль %NewNameProfil% успешно создан!`nСейчас биндер будет перезапущен.
IniWrite, %NewNameProfil%.profile, %A_WorkingDir%\Profiles\Settings, Main, Profile
Sleep 400
reload
}
!R::Reload ; Перезапустить скрипт, бинд: Alt+R
Вряд ли кто-то захочет разбираться с кодом в полторы тысячи строк (во всяком случае бесплатно). Попробуйте создать короткий код, демонстрирующий проблему, либо создайте тему в Коммерческом разделе и назначьте цену.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться