变量名 | 类 型 | 静态 | 数组 | 备 注 |
TIM | 文本型 | | |
窗口类名 | 文本型 | | |
窗口标题 | 文本型 | | |
进程结构 | 精易_进程结构 | | |
窗口句柄 | 整数型 | | |
userName | 文本型 | | 0 |
i | 整数型 | | |
j | 整数型 | | |
键代码 | 整数型 | | |
登录成功后窗口句柄 | 整数型 | | |
关闭所有TIM窗口 (“TIM”,
“TXGuiFoundation”, 725, 548, -1777860608, 524800
) 加入成员 (userName,
“xxx”)加入成员 (userName,
“xxx”)加入成员 (userName,
“xxx”)加入成员 (userName,
“xxx”)加入成员 (userName,
“xxx”)TIM=
“TIM文件路径”
计次循环首 (取数组成员数 (userName
), i
)
如果真 (运行 (TIM, 假,
))


窗口句柄 =
等待TIM登录窗口出现 (“TIM”,
“TXGuiFoundation”, 725, 548, -1777860608, 524800,
)

如果真 (窗口句柄 ≠ 0
)



程序_延时 (1000
)

窗口_激活 (窗口句柄
)




计次循环首 (9,
)


键盘_消息 (窗口句柄,
#Tab键, 5,
)


程序_延时 (100
)


计次循环尾 ()



调试输出 (“正在登录:”, userName
[i
])


计次循环首 (取文本长度 (userName
[i
]), j
)



键代码 =
取代码 (userName
[i
], j
)


键盘_消息 (窗口句柄, 键代码
)


计次循环尾 ()



程序_延时 (1000
)

键盘_消息 (窗口句柄,
#回车键, 5,
假)




登录成功后窗口句柄 =
等待TIM登录窗口出现 (“TIM”,
“TXGuiFoundation”, -1, -1, -1777401856, 525056, 30 × 1000
)


窗口句柄 =
选择 (登录成功后窗口句柄 = 0, 窗口句柄, 登录成功后窗口句柄
)



程序_延时 (2000
)

窗口_关闭 (窗口句柄
)




计次循环尾 ()返回 (0
) |
等待TIM登录窗口出现 | 整数型 | |
|
窗口标题 | 文本型 | | | |
窗口类名 | 文本型 | | | | 窗口宽度 | 整数型 | | | | 窗口高度 | 整数型 | | | | 窗口风格 | 整数型 | | | | 窗口扩展风格 | 整数型 | | | | 超时 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
启动时间 | 整数型 | | |
窗口信息 | 精易_窗口信息 | | 0 |
窗口数量 | 整数型 | | |
i | 整数型 | | |
位置和大小 | 精易_位置和大小 | | |
超时 =
选择 (是否为空 (超时
), 3000, 超时
)启动时间 =
取启动时间 ()
循环判断首 ()
窗口数量 =
窗口_枚举 (窗口信息
)
计次循环首 (窗口数量, i
)

如果真 (窗口信息
[i
].窗口标题 = 窗口标题
且 窗口信息
[i
].窗口类名 = 窗口类名
)


如果真 (窗口_取窗口属性 (窗口信息
[i
].窗口句柄,
#GWL_STYLE ) = 窗口风格
且 窗口_取窗口属性 (窗口信息
[i
].窗口句柄,
#GWL_EXSTYLE ) = 窗口扩展风格
)



如果真 (窗口宽度 = -1
且 窗口高度 = -1
)



返回 (窗口信息
[i
].窗口句柄
)








位置和大小 =
窗口_取位置和大小 (窗口信息
[i
].窗口句柄
)



如果真 (位置和大小.宽度 = 窗口宽度
且 位置和大小.高度 = 窗口高度
)



返回 (窗口信息
[i
].窗口句柄
)









处理事件 ()
计次循环尾 ()
程序_延时 (1
)
循环判断尾 (取启动时间 () - 启动时间 ≤ 超时
)返回 (0
)|
关闭所有TIM窗口 | | |
|
窗口标题 | 文本型 | | | |
窗口类名 | 文本型 | | | | 窗口宽度 | 整数型 | | | | 窗口高度 | 整数型 | | | | 窗口风格 | 整数型 | | | | 窗口扩展风格 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
窗口数量 | 整数型 | | |
窗口信息 | 精易_窗口信息 | | 0 |
i | 整数型 | | |
位置和大小 | 精易_位置和大小 | | |
窗口数量 =
窗口_枚举 (窗口信息
)
计次循环首 (窗口数量, i
)
如果真 (窗口信息
[i
].窗口标题 = 窗口标题
且 窗口信息
[i
].窗口类名 = 窗口类名
)

如果真 (窗口_取窗口属性 (窗口信息
[i
].窗口句柄,
#GWL_STYLE ) = 窗口风格
且 窗口_取窗口属性 (窗口信息
[i
].窗口句柄,
#GWL_EXSTYLE ) = 窗口扩展风格
)


如果真 (窗口宽度 = -1
且 窗口高度 = -1
)


进程_结束 (窗口信息
[i
].进程ID
)


到循环尾 ()






位置和大小 =
窗口_取位置和大小 (窗口信息
[i
].窗口句柄
)


如果真 (位置和大小.宽度 = 窗口宽度
且 位置和大小.高度 = 窗口高度
)


调试输出 (进程_结束 (窗口信息
[i
].进程ID
))







处理事件 ()
计次循环尾 ()