基于易语言的his菜单自动点击

基于易语言的his菜单自动点击

.子程序 _按钮1_被单击
.局部变量 弹出菜单句柄, 整数型
.局部变量 菜单数, 整数型
.局部变量 菜单标题, 文本型
.局部变量 子菜单数, 整数型
.局部变量 p, 整数型
.局部变量 i, 整数型
.局部变量 父, 整数型
.局部变量 子, 整数型

' hwnd ＝ FindWindow (“Notepad”, “无标题 - 记事本”)
hwnd ＝ 窗口标题取句柄 (“系统管理与实施工具[信息中心——系统管理/0000]     [zyyfsyy]     ”, 假)
树型框1.清空 ()
菜单标题 ＝ 取空白文本 (255)
窗口菜单句柄 ＝ GetMenu (hwnd)
菜单数 ＝ GetMenuItemCount (窗口菜单句柄)
.计次循环首 (菜单数, i)
    GetMenuString (窗口菜单句柄, i － 1, 菜单标题, 255, 1024)
    父 ＝ 树型框1.加入项目 (, 菜单标题, , , )
    弹出菜单句柄 ＝ GetSubMenu (窗口菜单句柄, i － 1)
    子菜单数 ＝ GetMenuItemCount (弹出菜单句柄)
    加入成员 (菜单结构, 子菜单数 ＋ 1)  ' 为什么要加一呢，因为树形框里的子菜单的标题也算一项

    输出调试文本 (子菜单数)

    .计次循环首 (子菜单数, p)
        GetMenuString (弹出菜单句柄, p － 1, 菜单标题, 255, 1024)
        子 ＝ 树型框1.加入项目 (父, 菜单标题, , , )
        树型框1.扩展 (父)
        树型框1.扩展 (子)
    .计次循环尾 ()
.计次循环尾 ()

.版本 2
.支持库 iext

.子程序 _树型框1_项目被选择
.参数 选择方式, 整数型
.局部变量 项数, 整数型
.局部变量 n, 整数型
.局部变量 子菜单句柄, 整数型

项数 ＝ 树型框1.现行选中项

输出调试文本 (项数)

' 输出调试文本 (项数)
.计次循环首 (取数组成员数 (菜单结构), n)
    项数 ＝ 项数 － 菜单结构 [n]
    .判断开始 (项数 ≤ 0)  ' 表示就在这一项子菜单里
        项数 ＝ 项数 ＋ 菜单结构 [n]  ' 得到选中的是子菜单的第几项
        子菜单句柄 ＝ GetSubMenu (窗口菜单句柄, n － 1)
        发送消息_ (hwnd, 273, 到数值 (GetMenuItemID (子菜单句柄, 项数 － 1)), 0)
        跳出循环 ()

    .默认

    .判断结束

.计次循环尾 ()