窗口操作

myogoo

ToolbarWindow32


SysTabControl32




ToolbarWindow32

afu45

myogoo 发表于 2022-8-16 19:08
.版本 2

.子程序 _按钮5_被单击

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
句柄	整数型

句柄 ＝ 查找标签 ()
鼠标_移动 (句柄, 280, 13)
鼠标_按键 (1, 1)
程序_延时 (40, )
句柄 ＝ 查找浏览按钮 ()
鼠标_移动 (句柄, 180, 100)
鼠标_按键 (1, 1)

子程序名	返回值类型	公开	备 注
查找标签	整数型		此代码由“[彗星小助手 www.it608.com]”生成,执行成功返回窗口句柄,失败返回0

变量名	类 型	静态	数组	备 注
hWnd	整数型			窗口句柄变量

hWnd ＝ FindWindow (“#32770”, “ODBC 数据源管理程序(64 位)”)  ' //窗口标题可换成“字符(0)”相当于NULL
如果真 (hWnd ＝ 0)
hWnd ＝ FindWindow (“#32770”, “ODBC 数据源管理程序(32 位)”)

hWnd ＝ GetWindow (hWnd, #GW_CHILD )
hWnd ＝ GetWindow (hWnd, #GW_HWNDNEXT )
hWnd ＝ GetWindow (hWnd, #GW_HWNDNEXT )
hWnd ＝ GetWindow (hWnd, #GW_HWNDNEXT )
hWnd ＝ GetWindow (hWnd, #GW_HWNDNEXT )
hWnd ＝ GetWindow (hWnd, #GW_HWNDNEXT )
返回 (hWnd)

子程序名	返回值类型	公开	备 注
查找浏览按钮	整数型		此代码由“[彗星小助手 www.it608.com]”生成,执行成功返回窗口句柄,失败返回0

变量名	类 型	静态	数组	备 注
hWnd	整数型			窗口句柄变量

hWnd ＝ FindWindow (“#32770”, “ODBC 数据源管理程序(64 位)”)  ' //窗口标题可换成“字符(0)”相当于NULL
如果真 (hWnd ＝ 0)
hWnd ＝ FindWindow (“#32770”, “ODBC 数据源管理程序(32 位)”)

hWnd ＝ GetWindow (hWnd, #GW_CHILD )
hWnd ＝ GetWindow (hWnd, #GW_CHILD )
hWnd ＝ GetWindow (hWnd, #GW_HWNDNEXT )
hWnd ＝ GetWindow (hWnd, #GW_HWNDNEXT )
hWnd ＝ GetWindow (hWnd, #GW_HWNDNEXT )
返回 (hWnd)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

程序_运行Ex (“odbcad32.exe”, , , , , , )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 句柄, 整数型<br /> <br /> 句柄 ＝ 查找标签 ()<br /> 鼠标_移动 (句柄, 280, 13)<br /> 鼠标_按键 (1, 1)<br /> 程序_延时 (40, )<br /> 句柄 ＝ 查找浏览按钮 ()<br /> 鼠标_移动 (句柄, 180, 100)<br /> 鼠标_按键 (1, 1)<br /> <br /> <br /> .子程序 查找标签, 整数型, , 此代码由“[彗星小助手 www.it608.com]”生成,执行成功返回窗口句柄,失败返回0<br /> .局部变量 hWnd, 整数型, , , 窗口句柄变量<br /> <br /> hWnd ＝ FindWindow (“#32770”, “ODBC 数据源管理程序(64 位)”)  ' //窗口标题可换成“字符(0)”相当于NULL<br /> .如果真 (hWnd ＝ 0)<br />     hWnd ＝ FindWindow (“#32770”, “ODBC 数据源管理程序(32 位)”)<br /> .如果真结束<br /> <br /> hWnd ＝ GetWindow (hWnd, #GW_CHILD)<br /> hWnd ＝ GetWindow (hWnd, #GW_HWNDNEXT)<br /> hWnd ＝ GetWindow (hWnd, #GW_HWNDNEXT)<br /> hWnd ＝ GetWindow (hWnd, #GW_HWNDNEXT)<br /> hWnd ＝ GetWindow (hWnd, #GW_HWNDNEXT)<br /> hWnd ＝ GetWindow (hWnd, #GW_HWNDNEXT)<br /> 返回 (hWnd)<br /> <br /> .子程序 查找浏览按钮, 整数型, , 此代码由“[彗星小助手 www.it608.com]”生成,执行成功返回窗口句柄,失败返回0<br /> .局部变量 hWnd, 整数型, , , 窗口句柄变量<br /> <br /> hWnd ＝ FindWindow (“#32770”, “ODBC 数据源管理程序(64 位)”)  ' //窗口标题可换成“字符(0)”相当于NULL<br /> .如果真 (hWnd ＝ 0)<br />     hWnd ＝ FindWindow (“#32770”, “ODBC 数据源管理程序(32 位)”)<br /> .如果真结束<br /> <br /> hWnd ＝ GetWindow (hWnd, #GW_CHILD)<br /> hWnd ＝ GetWindow (hWnd, #GW_CHILD)<br /> hWnd ＝ GetWindow (hWnd, #GW_HWNDNEXT)<br /> hWnd ＝ GetWindow (hWnd, #GW_HWNDNEXT)<br /> hWnd ＝ GetWindow (hWnd, #GW_HWNDNEXT)<br /> 返回 (hWnd)<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 程序_运行Ex (“odbcad32.exe”, , , , , , )

afu45

窗口_枚举
模拟按键

myogoo

afu45 发表于 2022-8-15 23:50
窗口_枚举
模拟按键

.版本 2

.子程序 _按钮5_被单击
.局部变量 精易_窗口信息, 精易_窗口信息, , "0"
.局部变量 局_计次, 整数型

窗口_枚举 (精易_窗口信息)
.计次循环首 (取数组成员数 (精易_窗口信息), 局_计次)
    编辑框1.加入文本 (“--------------” ＋ 到文本 (局_计次) ＋ “--------------” ＋ #换行符)
    编辑框1.加入文本 (到文本 (精易_窗口信息 [局_计次].进程ID) ＋ #换行符)
    编辑框1.加入文本 (到文本 (精易_窗口信息 [局_计次].线程ID) ＋ #换行符)
    编辑框1.加入文本 (到文本 (精易_窗口信息 [局_计次].窗口句柄) ＋ #换行符)
    编辑框1.加入文本 (到文本 (精易_窗口信息 [局_计次].窗口标题) ＋ #换行符)
    编辑框1.加入文本 (到文本 (精易_窗口信息 [局_计次].窗口类名) ＋ #换行符)
    编辑框1.加入文本 (“--------------” ＋ 到文本 (局_计次) ＋ “--------------” ＋ #换行符)
.计次循环尾 ()


经测试，找不到要的句柄 ，比如“浏览(&B)...”

myogoo

afu45 发表于 2022-8-16 21:03
[e=0].版本 2

.程序集 窗口程序集_启动窗口

在广西框内输入CMD回车，没反应！