TC官方合作论坛

 找回密码
 立即注册
查看: 1450|回复: 6

写个脚本,遇到问题了,求大神来看下!

[复制链接]
发表于 2015-4-15 18:18:31 | 显示全部楼层 |阅读模式

马上加入TC

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
功能 摆摊喊话(下标)
    变量 intX,intY
    循环(真)
        大漠[下标].FindStr(310,614,513,695,"在线","dfdfdf-202020",1.0,intX,intY)
        如果(intX>=0)
            大漠[下标].MoveTo(intX,intY)
            辅助.等待(300)
            大漠[下标].LeftClick()//鼠标左键
            辅助.等待(200)
            大漠[下标].KeyPress(80)//键盘按一下P
        如果结束
        大漠[下标].FindStr(462,411,581,475,"确定","dfdfdf-202020",1.0,intX,intY)
        如果(intX>=0)
            大漠[下标].MoveTo(intX,intY)
            辅助.等待(300)
            大漠[下标].LeftClick()//鼠标左键
            辅助.等待(1500)
        如果结束
        返回值=大漠[下标].FindStr(284,594,537,701,"结束摆摊","dfdfdf-202020",1.0,intX,intY)//可以|正在00ff00-202020
        如果(返回值>=0)
            大漠[下标].KeyPress(80)//键盘按一下P
            辅助.等待(2000)
            跳出
        否则
            //大漠[下标].MoveTo(231,565)
            //辅助.等待(1500)
            大漠[下标].FindStr(269,536,342,603,"发送","8c7b66-303030",0.95,intX,intY)
            如果(intX>=0)
                大漠[下标].MoveTo(intX+3,intY+3)
                辅助.等待(200)
                大漠[下标].LeftClick()//鼠标左键
                辅助.等待(200)
                大漠[下标].MoveTo(1000,700)
                辅助.等待(200)
            如果结束
            大漠[下标].KeyPress(80)//键盘按一下P
            辅助.等待(1000)
            大漠[下标].FindStr(555,148,635,278,"Z","c1190c-101010|a4251a-101010",1.0,intX,intY)//拔刀状态
            如果(intX>=0)
                大漠[下标].KeyPress(90)//键盘按一下Z
                辅助.等待(3000)
            如果结束
        如果结束
        辅助.等待(100)
    循环结束
    喊话内容=辅助.读配置(下标,"编辑框7","D:\\9y配置\\9y配置.ini")
    如果(喊话内容=="")
        辅助.等待(300000)
        返回 假
    如果结束
    间隔=辅助.读配置(下标,"编辑框8","D:\\9y配置\\9y配置.ini")
    如果(间隔=="")
        间隔=30
    如果结束
    句柄=窗口数组[下标]
    遍历(i=0;i<300/间隔;i++)
        返回值=大漠[下标].FindStr(284,594,537,701,"结束摆摊","dfdfdf-202020",1.0,intX,intY)
        如果(返回值>=0)
            //大漠[下标].MoveTo(231,565)
            //辅助.等待(1500)
            大漠[下标].FindStr(269,536,342,603,"发送","8c7b66-303030",0.95,intX,intY)
            如果(intX>=0)
                大漠[下标].MoveTo(intX+3,intY+3)
                辅助.等待(200)
                大漠[下标].LeftClick()//鼠标左键
                辅助.等待(200)
                大漠[下标].MoveTo(1000,700)
                辅助.等待(200)
            如果结束
            大漠[下标].KeyPress(80)//键盘按一下P
            辅助.等待(1000)
        如果结束
        大漠[下标].FindStr(739,391,885,510,"修|炼","dfdfdf-202020",0.98,intX,intY)
        如果(intX>=0)
            大漠[下标].MoveTo(intX,intY)
            辅助.等待(200)
            大漠[下标].LeftClick()//鼠标左键点击
            辅助.等待(200)
        如果结束
        大漠[下标].MoveTo(102,567)
        辅助.等待(1000)
        大漠[下标].LeftClick()//鼠标左键
        辅助.等待(500)
        大漠[下标].SendString(句柄,喊话内容)
        辅助.等待(1000)
        大漠[下标].MoveTo(306,567)
        辅助.等待(200)
        大漠[下标].LeftClick()//鼠标左键
        辅助.等待(200)
        大漠[下标].MoveTo(1000,700)
        辅助.等待(间隔*1000)
    遍历结束
功能结束


写的是一个自动摆摊脚本,大概思路是
①区域找字
如果找到 字
则鼠标移动到坐标
鼠标左键单击
②区域找字
如果找到  字
则鼠标移动到坐标
鼠标单击

现在的主要问题是,我想在①和②之间加个一 按键P,按完P后,在区域找①中的字,如果找到则进行②,如果找不到则进行①
这个困扰我好几天了,求大神告知啊!在线等,万分感谢!
回复

使用道具 举报

发表于 2015-4-15 18:25:45 | 显示全部楼层
加一个【条件】选择不就行了
或者如果否则判断下,
回复 支持 反对

使用道具 举报

 楼主| 发表于 2015-4-15 18:29:53 | 显示全部楼层
z475547146 发表于 2015-4-15 18:25
加一个【条件】选择不就行了
或者如果否则判断下,

我新手,不怎么会,求QQ 我联系你,具体说下情况,能不能帮帮我啊
回复 支持 反对

使用道具 举报

发表于 2015-4-15 19:02:58 | 显示全部楼层
以下面这一句找字为例 加入他是你说的 1
从找://这是一个标记用于跳转
大漠[下标].FindStr(310,614,513,695,"在线","dfdfdf-202020",1.0,intX,intY)//这是你说的1
如果(intX > 0)
这调用你说的 2//找到了1就调用2
否则
跳转 从找//没找到1就跳转到标记 从新找1
如果结束
回复 支持 反对

使用道具 举报

 楼主| 发表于 2015-4-15 19:31:51 | 显示全部楼层
qw362534335 发表于 2015-4-15 19:02
以下面这一句找字为例 加入他是你说的 1
从找://这是一个标记用于跳转
大漠[下标].FindStr(310,614,513,695 ...

能加下Q吗 看的太乱,我新手,求大神帮忙了
回复 支持 反对

使用道具 举报

发表于 2015-4-15 19:41:29 | 显示全部楼层
+Q就算了吧 没空
告诉你方法了就要自己琢磨  方法已经说的很清楚了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2015-4-15 21:07:34 | 显示全部楼层
求大神,帮改下啊!
功能 摆摊喊话(下标)
    变量 intX,intY
    循环(真)
        大漠[下标].FindStr(310,614,513,695,"在线","dfdfdf-202020",1.0,intX,intY)
        如果(intX>=0)
            大漠[下标].MoveTo(intX,intY)
            辅助.等待(300)
            大漠[下标].LeftClick()//鼠标左键
            辅助.等待(200)
            大漠[下标].KeyPress(80)//键盘按一下P
        如果结束
        大漠[下标].FindStr(462,411,581,475,"确定","dfdfdf-202020",1.0,intX,intY)
        如果(intX>=0)
            大漠[下标].MoveTo(intX,intY)
            辅助.等待(300)
            大漠[下标].LeftClick()//鼠标左键
            辅助.等待(1500)
        如果结束
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18045623号)

GMT+8, 2024-6-2 08:46 , Processed in 0.036990 second(s), 22 queries .

Powered by 海安简单软件服务部

© 2008-2019 版权所有 保留所有权利

快速回复 返回顶部 返回列表