|
功能 逻辑型 第一读取_点击()
辅助.等待(2000)
整型 句柄 = 网页.得到窗口句柄("浏览器0")//找到 句柄
整型 x屏幕,y屏幕,x窗口,y窗口
鼠标.获取坐标(x屏幕,y屏幕) //获取屏幕坐标
编辑框.设置文本("编辑框2",转换.整型转字符型(x屏幕))//保存屏幕坐标
编辑框.设置文本("编辑框3",转换.整型转字符型(y屏幕))
窗口.屏幕转窗口(句柄,x屏幕,y屏幕,x窗口,y窗口) //转换成窗口坐标
编辑框.设置文本("编辑框0",转换.整型转字符型(x窗口))
编辑框.设置文本("编辑框1",转换.整型转字符型(y窗口)) //保存窗口坐标
辅助.等待(100)
返回 真
功能结束
功能 逻辑型 第一测试_点击()
整型 句柄 = 网页.得到窗口句柄("浏览器0") //找到 句柄
字符型 x=编辑框.获得文本("编辑框2")
字符型 y=编辑框.获得文本("编辑框3") //获取 屏幕坐标
整型 x1=转换.字符型转整型(x,0)
整型 y1=转换.字符型转整型(y,0)
整型 x2,y2
窗口.屏幕转窗口(句柄,x1,y1,x2,y2) //转换窗口坐标
dm.MoveTo(x2,y2) //后台鼠标 移动到 窗口指定坐标
dm.LeftClick() //左键点击
返回 真
功能结束
绿色代码 以上操作 测试可以实现
下面黑色代码 测试 不可以 不知道为什么 研究好久 实在不知道问题所在 。。。。。
功能 逻辑型 热键0_热键()
如果(状态==0)
线程句柄=线程.开启("农场.自动收金钱","")
整型 句柄=窗口.自身句柄()
窗口.设置标题(句柄,"运行中.....")
状态=1
否则
线程.关闭(线程句柄)
整型 句柄=窗口.自身句柄()
窗口.设置标题(句柄,"停止了")
状态=0
如果结束
整型 线程句柄,线程句柄1,状态
功能 逻辑型 自动收金钱()
整型 句柄 = 网页.得到窗口句柄("浏览器0")
整型 句柄=窗口.找到窗口("农场")
字符型 x=编辑框.获得文本("编辑框2")
字符型 y=编辑框.获得文本("编辑框3")
整型 x1=转换.字符型转整型(x,0)
整型 y1=转换.字符型转整型(y,0)
整型 x2,y2
窗口.屏幕转窗口(句柄,x1,y1,x2,y2)
dm.MoveTo(x2,y2)
dm.LeftClick()
返回 真
功能结束
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
|