按键精灵_顺序点击坐标

发布于 2020-04-17
分类：未分类
阅读(1453)

Function 顺序坐标(SeZb)
    Dim xb=UBOUND(SeZb) //获取到数组的总数
    For i = 0 To xb
        TracePrint SeZb(i)//获取坐标
        Dim SeZb2=Split (SeZb(i),",") //分割坐标
        Delay 50
        TracePrint SeZb2(0),SeZb2(1)
    Next
End Function
 //作业
//  Dim Rnd2=array("600,400","600,540","600,680","600,1141","619,1297","637,1847","686,1695","657,1572","691,1449","624,1263","636,1090")//坐标收集起来 可以用遍历函数采集
//call 顺序坐标 (Rnd2)

效果图