|
|
|
|
||
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 窗口坐标结构, 矩形坐标结构
.局部变量 窗口句柄, 整数型
窗口句柄 = 标取句柄 (, “计算器”) ' 取计算器窗口句柄
编辑框1.内容 = 到文本 (窗口句柄) ' 显示窗口句柄
.如果 (窗口句柄 ≠ 0)
取窗口矩形坐标 (窗口句柄, 窗口坐标结构) ' 取计算器矩形坐标
' 按下数字8
置鼠标坐标 (350 + 窗口坐标结构.左边, 150 + 窗口坐标结构.顶边)
鼠标左键按下 (350 + 窗口坐标结构.左边, 150 + 窗口坐标结构.顶边)
延时 (500)
鼠标左键弹起 (350 + 窗口坐标结构.左边, 150 + 窗口坐标结构.顶边)
' 按下数字5
置鼠标坐标 (350 + 窗口坐标结构.左边, 180 + 窗口坐标结构.顶边)
鼠标左键按下 (350 + 窗口坐标结构.左边, 180 + 窗口坐标结构.顶边)
延时 (500)
鼠标左键弹起 (350 + 窗口坐标结构.左边, 180 + 窗口坐标结构.顶边)
' 按下数字4
置鼠标坐标 (308 + 窗口坐标结构.左边, 180 + 窗口坐标结构.顶边)
鼠标左键按下 (308 + 窗口坐标结构.左边, 180 + 窗口坐标结构.顶边)
延时 (500)
鼠标左键弹起 (308 + 窗口坐标结构.左边, 180 + 窗口坐标结构.顶边)
' 按下数字4
置鼠标坐标 (308 + 窗口坐标结构.左边, 180 + 窗口坐标结构.顶边)
鼠标左键按下 (308 + 窗口坐标结构.左边, 180 + 窗口坐标结构.顶边)
延时 (500)
鼠标左键弹起 (308 + 窗口坐标结构.左边, 180 + 窗口坐标结构.顶边)
' 按下数字8
置鼠标坐标 (350 + 窗口坐标结构.左边, 150 + 窗口坐标结构.顶边)
鼠标左键按下 (350 + 窗口坐标结构.左边, 150 + 窗口坐标结构.顶边)
延时 (500)
鼠标左键弹起 (350 + 窗口坐标结构.左边, 150 + 窗口坐标结构.顶边)
' 按下数字7
置鼠标坐标 (306 + 窗口坐标结构.左边, 150 + 窗口坐标结构.顶边)
鼠标左键按下 (306 + 窗口坐标结构.左边, 150 + 窗口坐标结构.顶边)
延时 (500)
鼠标左键弹起 (306 + 窗口坐标结构.左边, 150 + 窗口坐标结构.顶边)
' 按下数字9
置鼠标坐标 (387 + 窗口坐标结构.左边, 150 + 窗口坐标结构.顶边)
鼠标左键按下 (387 + 窗口坐标结构.左边, 150 + 窗口坐标结构.顶边)
延时 (500)
鼠标左键弹起 (387 + 窗口坐标结构.左边, 150 + 窗口坐标结构.顶边)
' 按下数字1
置鼠标坐标 (308 + 窗口坐标结构.左边, 210 + 窗口坐标结构.顶边)
鼠标左键按下 (308 + 窗口坐标结构.左边, 210 + 窗口坐标结构.顶边)
延时 (500)
鼠标左键弹起 (308 + 窗口坐标结构.左边, 210 + 窗口坐标结构.顶边)
' 按下数字5
置鼠标坐标 (350 + 窗口坐标结构.左边, 180 + 窗口坐标结构.顶边)
鼠标左键按下 (350 + 窗口坐标结构.左边, 180 + 窗口坐标结构.顶边)
延时 (500)
鼠标左键弹起 (350 + 窗口坐标结构.左边, 180 + 窗口坐标结构.顶边)
.否则
.如果结束
.版本 2
.DLL命令 查找窗口_, 整数型, "user32", "FindWindowA"
.参数 窗口类名, 文本型
.参数 窗口标题, 文本型
.DLL命令 置鼠标坐标, 整数型, "user32", "SetCursorPos"
.参数 鼠标坐标X, 整数型
.参数 鼠标坐标Y, 整数型
.DLL命令 取窗口矩形坐标, 整数型, "user32", "GetWindowRect"
.参数 窗口句柄, 整数型
.参数 坐标结构, 矩形坐标结构
.DLL命令 模拟鼠标操作_, , "user32", "mouse_event"
.参数 操作标志, 整数型
.参数 目的坐标x, 整数型
.参数 目的坐标y, 整数型
.参数 数据信息, 整数型, , cButtons
.参数 扩展数据信息, 整数型, , dwExtraInfo
.版本 2
.程序集 API简化
.子程序 类取句柄, 整数型, , 以窗口类名取窗口句柄
.参数 窗口类名, 文本型
.参数 窗口标题, 文本型, 可空
.局部变量 句柄, 整数型
' 句柄 = 查找窗口_ (窗口类名, 窗口标题)
' 返回 (句柄)
返回 (查找窗口_ (窗口类名, 窗口标题))
.子程序 标取句柄, 整数型, , 以窗口标题取窗口句柄
.参数 窗口类名, 文本型, 可空
.参数 窗口标题, 文本型
返回 (查找窗口_ (窗口类名, 窗口标题))
.子程序 鼠标左键按下, , , 模拟鼠标左键按下
.参数 x, 整数型, , 目标坐标x
.参数 y, 整数型, , 目标坐标y
模拟鼠标操作_ (#MOUSEEVENTF_LEFTDOWN, x, y, 0, 0)
.子程序 鼠标左键弹起, , , 模拟鼠标左键弹起
.参数 x, 整数型, , 目标坐标x
.参数 y, 整数型, , 目标坐标y
模拟鼠标操作_ (#MOUSEEVENTF_LEFTUP, x, y, 0, 0)
.版本 2
.数据类型 矩形坐标结构, , RECT
.成员 左边, 整数型
.成员 顶边, 整数型
.成员 右边, 整数型
.成员 底边, 整数型
.版本 2
.常量 常量1, "<文本长度: 0>"
.常量 MOUSEEVENTF_ABSOLUTE, "32768", , dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中,屏幕在水平和垂直方向上均匀分割成65535×65535个单元
.常量 MOUSEEVENTF_MOVE, "1", , 鼠标移动
.常量 MOUSEEVENTF_LEFTDOWN, "2"
.常量 MOUSEEVENTF_LEFTUP, "4"
.常量 MOUSEEVENTF_RIGHTDOWN, "8"
.常量 MOUSEEVENTF_RIGHTUP, "16"
.常量 MOUSEEVENTF_MIDDLEDOWN, "32", , 鼠标中键按下
.常量 MOUSEEVENTF_MIDDLEUP, "64", , 鼠标中键弹起