TC官方合作论坛

标题: 求大神指导循环采集问题， [打印本页]

---

作者: 5905203    时间: 2013-10-22 15:38
标题: 求大神指导循环采集问题，
功能 坐标拆分()
    //测试采集.免注册大漠()
    变量 坐标数组,XY坐标数组,XY坐标,计次=0
    变量 采集坐标值,长度,坐标_X,坐标_Y
    变量 intX,intY

    采集坐标值=编辑框.获得文本("编辑框_采集坐标集")
    字符串.分割(采集坐标值,"|",坐标数组)
    数组空间.大小(坐标数组,长度)

    循环(真)



        遍历(i=0;i<长度;i++)

            字符串.分割(坐标数组,",",XY坐标数组)
            //调试输出("坐标数组X" & XY坐标数组[0] & "坐标数组Y" & XY坐标数组[1])
            //新问题.循环到这里坐标会每次都计算.

            坐标_X=类型.转整型((XY坐标数组[0]-305)*0.85+305)
            坐标_Y=类型.转整型((XY坐标数组[1]-83)*0.85+119)

            //可能是
            测试采集.地图单击(坐标_X,坐标_Y)

            测试采集.寻路判断(坐标_X,坐标_Y)

            循环(真)
                辅助.等待(辅助.随机数(100,300))
                dm.FindPic(268,77,814,605,"石芒铁矿.bmp","000000",0.9,0,intX,intY)  

                如果(intX >= 0 && intY >= 0)

                    dm.MoveTo(intX,intY+110)

                    dm.LeftDoubleClick()


                    dm.FindPic(272,414,823,722,"挖矿读取条.bmp","000000",0.9,0,intX,intY)

                    如果(intX >= 0 && intY >= 0)
                        辅助.等待(辅助.随机数(4000,6000))
                        dm.KeyPress(90)
                        辅助.等待(辅助.随机数(50,100))
                        dm.KeyPress(90)

                        跳出
                    如果结束
                否则

                    跳出
                如果结束
            循环结束

            dm_ret = dm.UnBindWindow()

            调试输出(坐标_X)
            调试输出(坐标_Y)
        遍历结束


        //循环结束问题.
        //调试输出("111111111"&坐标_X)
        //调试输出("111111111"&坐标_Y)

    循环结束

跑第一点是对的，调试输出注释             //测试采集.地图单击(坐标_X,坐标_Y)  // 测试采集.寻路判断(坐标_X,坐标_Y)     这2条，那他输出又是对的。

---

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

Powered by Discuz! X3.1