TC官方合作论坛

标题: 写个脚本，遇到问题了，求大神来看下！ [打印本页]

作者: 一店小三一 时间: 2015-4-15 18:18
标题: 写个脚本，遇到问题了，求大神来看下！
功能摆摊喊话(下标)
变量 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后，在区域找①中的字，如果找到则进行②，如果找不到则进行①
这个困扰我好几天了，求大神告知啊！在线等，万分感谢！

作者: z475547146 时间: 2015-4-15 18:25
加一个【条件】选择不就行了
或者如果否则判断下，

作者: 一店小三一 时间: 2015-4-15 18:29

z475547146 发表于 2015-4-15 18:25
加一个【条件】选择不就行了
或者如果否则判断下，

我新手，不怎么会，求QQ 我联系你，具体说下情况，能不能帮帮我啊

作者: qw362534335 时间: 2015-4-15 19:02
以下面这一句找字为例加入他是你说的 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

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

能加下Q吗看的太乱，我新手，求大神帮忙了

作者: qw362534335 时间: 2015-4-15 19:41
+Q就算了吧没空
告诉你方法了就要自己琢磨方法已经说的很清楚了

作者: 一店小三一 时间: 2015-4-15 21:07
求大神，帮改下啊！
功能摆摊喊话(下标)
变量 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)
      如果结束

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)