]]>Editors with AutoHotkey Support:
SciTE4AutoHotkey (Smart auto-indent)
Язык программирования Кибор имеет Си образный синтаксис.
Кибор - это язык, у него есть IDE заточенное соответственно только под него, причём тут вообще AutoHotkey?
Интегри́рованная среда́ разрабо́тки, IDE (англ. Integrated development environment) — система программных средств, используемая программистами для разработки программного обеспечения (ПО).
Вам собственно каких программных средств нехватает?
]]>Имхо, для написания скриптов для ОС и приложений Кибор не шибко-то превосходит AHK по удобству и широте возможностей.
Не понял.
Кибор - это IDE, а AHK - язык программирования.
Т.е. Вы сравниваете тёплое с пушистым.
]]>Вот чего нашёл: Кибор - среда, специально заточенная для удобного написания скриптов для автоматизации действий на компьютере.
Имхо, для написания скриптов для ОС и приложений Кибор не шибко-то превосходит AHK по удобству и широте возможностей.
P. S. Хотя в области ботописания для онлайн игр он впереди планеты всей благодаря функции анти-антикликера и возможности поиска движущихся обьектов...
]]>#SingleInstance Force
#Persistent
SetBatchLines,-1
Global bt
HookProcAdr := RegisterCallback( "HookProc", "F" ), hWinEventHook := SetWinEventHook( 0x1, 0x17, 0, HookProcAdr, 0, 0, 0 )
SetWinEventHook(eventMin, eventMax, hmodWinEventProc, lpfnWinEventProc, idProcess, idThread, dwFlags)
{
DllCall("CoInitialize", Uint, 0)
return DllCall("SetWinEventHook", Uint,eventMin , Uint,eventMax , Uint,hmodWinEventProc
, Uint,lpfnWinEventProc, Uint,idProcess, Uint,idThread, Uint,dwFlags)
}
HookProc( hWinEventHook, Event, hWnd, idObject, idChild, dwEventThread, dwmsEventTime )
{
if (Event = 6)
{
Winwait ahk_class #32768
WinGetPos,x,y,w,h,ahk_id %hWnd%
WinMove ahk_id %hWnd%,,%x%,%y%,%w%,% h+30
Gui, Add, button,% "w" w " h30 x0 y" h " Left HWNDh_bt",тест
DllCall("SetParent", "uint", h_bt, "uint", hWnd)
}
}
Getbt_32768(){
MouseGetPos, , ,id ,ctrl
if (WinExist("ahk_class #32768") = id) and !(ctrl="") and (bt:=ctrl)
return 1
}
return
#if Getbt_32768()
Lbutton::msgbox % btКонечно это не совсем контекстная кнопка а простая).
]]>hMyMenu := DllCall("CreateMenu")
DllCall("AppendMenu", Ptr, hMyMenu, UInt, MF_STRING := 0, UInt, "", Str, "Item 1")
DllCall("AppendMenu", Ptr, hMyMenu, UInt, MF_STRING := 0, UInt, "", Str, "Item 2")
if !hWnd := WinExist("ahk_class Notepad") {
Run, notepad.exe,,, PID
WinWait, ahk_pid %PID%
hWnd := WinExist("ahk_pid" PID)
}
hMenu := DllCall("GetMenu", Ptr, hWnd, Ptr)
DllCall("AppendMenu", Ptr, hMenu, UInt, MF_POPUP := 0x10, Ptr, hMyMenu, Str, "MyMenu")
DllCall("DrawMenuBar", Ptr, hWnd)
WinActivate
Return
~LButton::
DllCall("GetCursorPos", Int64P, POINT)
res := DllCall("MenuItemFromPoint", Ptr, hWnd, Ptr, hMyMenu, Int64, POINT)
if (res >= 0)
MsgBox, % res + 1
Return
Следственно и мой скрипт не сможет их определить.
]]>hSubmenu := DllCall("CreateMenu")
DllCall("AppendMenu", Ptr, hSubmenu, UInt, MF_STRING := 0, UInt, "", Str, "Item 1")
DllCall("AppendMenu", Ptr, hSubmenu, UInt, MF_STRING := 0, UInt, "", Str, "Item 2")
if !hWnd := WinExist("ahk_class Notepad") {
Run, notepad.exe,,, PID
WinWait, ahk_pid %PID%
hWnd := WinExist("ahk_pid" PID)
}
hMenu := DllCall("GetMenu", Ptr, hWnd, Ptr)
DllCall("AppendMenu", Ptr, hMenu, UInt, MF_POPUP := 0x10, Ptr, hSubmenu, Str, "MyMenu")
DllCall("DrawMenuBar", Ptr, hWnd)
WinActivateMenu, Submenu, Add, Item 1, Example
Menu, Submenu, Add, Item 2, Example
hSubmenu := GethMenu("Submenu")
if !hWnd := WinExist("ahk_class Notepad") {
Run, notepad.exe,,, PID
WinWait, ahk_pid %PID%
hWnd := WinExist("ahk_pid" PID)
}
hMenu := DllCall("GetMenu", Ptr, hWnd, Ptr)
DllCall("AppendMenu", Ptr, hMenu, UInt, MF_POPUP := 0x10, Ptr, hSubmenu, Str, "MyMenu")
DllCall("DrawMenuBar", Ptr, hWnd)
WinActivate
ExitApp
Example:
Return
GethMenu(MenuName)
{
Gui, New, +hwndhGui
Menu, _MyMenuBar, Add, File, :%MenuName%
Gui, Menu, _MyMenuBar
hMenu := DllCall("GetMenu", Ptr, hGui, Ptr)
hMenu := DllCall("GetSubMenu", Ptr, hMenu, Int, 0)
Gui, Destroy
Menu, _MyMenuBar, Delete, File
Menu, _MyMenuBar, Delete
Return hMenu
}Меню не пропадает после завершения работы скрипта. Однако метки срабатывать не будут.
Можно также добавлять пункты в уже существующие подменю, попозже напишу, если не разберётесь.
Gui, Show, w444 h444, % " "
Gui, +HWNDhGui +ReSize
OnMessage(0x112, "WM_SYSCOMMAND")
hSysMenu := DllCall("GetSystemMenu", "UInt", hGui, "UInt", 0)
DllCall("AppendMenu", "UInt", hSysMenu, "UInt", 0x00000800) ; MF_SEPARATOR
DllCall("AppendMenu", "UInt", hSysMenu, "UInt", 0, "UInt", 0x1001, "Str", "Item 1")
DllCall("AppendMenu", "UInt", hSysMenu, "UInt", 0, "UInt", 0x1002, "Str", "Item 2")
DllCall("AppendMenu", "UInt", hSysMenu, "UInt", 0, "UInt", 0x1003, "Str", "Item 3")
DllCall("DrawMenuBar", "UInt", hGui)
WM_SYSCOMMAND(wParam, lParam)
{
If wParam between 0x1001 and 0x1003
{
ToolTip % wParam
}
}
Return