|
为了你 我都回错贴了 不采纳就不应该了
好人做到底吧 给你写了个代码 自己研究去吧
可能写的比较麻烦 tc好像没有获取指定子窗口句柄的函数
首先在界面上添加两个按钮 一个名称是 开始 另一个是停止
不要忘了添加这两个按钮的点击事件 还有一个界面销毁的事件- 空间 示例
- 整型 线程句柄1,线程句柄2 //定义两个全局变量
- 功能 逻辑型 线程1(字符型 句柄)
- 整型 hwnd=转换.字符型转整型(句柄,0)
- 整型 i
- 重复(1000)
- 窗口.发送字符串(hwnd,转换.整型转字符型(i)+"\r")
- i=i+1
- 辅助.等待(5)
- 重复结束
- 返回 真
- 功能结束
- 功能 逻辑型 线程2(字符型 句柄)
- 整型 hwnd=转换.字符型转整型(句柄,0)
- 整型 i=999
- 重复(1000)
- 窗口.发送字符串(hwnd,转换.整型转字符型(i)+"\r")
- i=i-1
- 辅助.等待(5)
- 重复结束
- 返回 真
- 功能结束
- 功能 逻辑型 开始_点击() // 开始按钮的点击事件
- 字符型 句柄组=系统.枚举("Notepad",1) //获取记事本的句柄组
- 如果(句柄组=="")
- 辅助.消息框("未获取到窗口句柄")
- 返回 假
- 如果结束
- 字符型[] 句柄数组
- 字符串.分割(句柄组,"|",句柄数组) //分割句柄
- 整型 数组下标
- 数组.大小(句柄数组,数组下标)
- 如果(数组下标<=0)
- 辅助.消息框("分割句柄组失败")
- 返回 假
- 如果结束
- 字符型 子窗口句柄组1=系统.枚举(句柄数组[0],3) //获取其中一个记事本的子窗口句柄组
- 如果(子窗口句柄组1=="")
- 辅助.消息框("未获取到子窗口句柄")
- 返回 假
- 如果结束
- 字符型[] 子句柄数组1
- 字符串.分割(子窗口句柄组1,"|",子句柄数组1) //分给获取到的子窗口句柄组
- 数组.大小(子句柄数组1,数组下标)
- 如果(数组下标<=0)
- 辅助.消息框("分割句柄组失败")
- 返回 假
- 如果结束
- 字符型 类名=窗口.类名(转换.字符型转整型(子句柄数组1[0],0)) //获取其中一个子窗口句柄的类名
- 字符型 子句柄1
- 如果(类名=="Edit") //判断是否是类名为"Edit"的句柄 并且把句柄赋值给子句柄1 因为记事本只有两个子窗口 所以不是子句柄数组1[0] 就是子句柄数组1[1]
- 子句柄1=子句柄数组1[0]
- 否则
- 子句柄1=子句柄数组1[1]
- 如果结束
- 字符型 子窗口句柄组2=系统.枚举(句柄数组[1],3)//获取另一个记事本的子窗口句柄组 以下同上
- 如果(子窗口句柄组2=="")
- 辅助.消息框("未获取到子窗口句柄")
- 返回 假
- 如果结束
- 字符型[] 子句柄数组2
- 字符串.分割(子窗口句柄组2,"|",子句柄数组2)
- 数组.大小(子句柄数组2,数组下标)
- 如果(数组下标<=0)
- 辅助.消息框("分割句柄组失败")
- 返回 假
- 如果结束
- 类名=窗口.类名(转换.字符型转整型(子句柄数组2[0],0))
- 字符型 子句柄2
- 如果(类名=="Edit")
- 子句柄2=子句柄数组2[0]
- 否则
- 子句柄2=子句柄数组2[1]
- 如果结束
- 线程句柄1=线程.开启("示例.线程1",子句柄1) //开启线程1
- 线程句柄2=线程.开启("示例.线程2",子句柄2) //开启线程2
- 返回 真
- 功能结束
- 功能 逻辑型 停止_点击() //按钮停止点击事件
- 线程.关闭(线程句柄1) //关闭线程1
- 线程.关闭(线程句柄2) //关闭线程2
- 返回 真
- 功能结束
- 功能 逻辑型 销毁() //窗口销毁的事件
- 线程.关闭(线程句柄1) //关闭线程1
- 线程.关闭(线程句柄2) //关闭线程2
- 返回 真
- 功能结束
- 空间结束
- //看我这么辛苦的帮你 不管你懂不懂 采纳是必须了的吧
复制代码
|

|