不完善的IOS微X群成员ID获取源码【求大牛把脉】

longbusi

需求：在不是好友情况下收集公司微信群所有人微信名与微信号
解决思路：
1，在群成员页面   
2，点击起始头像位置坐标进入名片，并通过循环累加偏移变量J 顺序进入后面4个群名片   （问题所在）

                               
登录/注册后可看大图

3，通过长按微信名与id坐标位置，触发复制按钮，点击复制按钮并存入文档。
所遇难题：程序在运行一段时间后，点击头像位置功能出现问题，参数已经传递过去，却不能正确点击坐标位置，反复点同一个名片位置。（对应编码标红）

                               
登录/注册后可看大图

前20多次都正常

                               
登录/注册后可看大图

31到 35，36 到 40都出现了这个问题，点击的都是同一个人的名片，但是观察输出信息可以发现 tap 的参数是在变化的。

[按键精灵] 纯文本查看 复制代码

SetScreenScale 750,1334 //苹果6s		
Dim num = 1			//计数
Dim Wxname = "null"		//微信名
Dim WxID = "null"	//微信ID

Call main()

Function main()
ShowMessage "开始程序"
Delay 3000
SwipeByDzc 100, 279, 100, 229, 1000, 1000, 300	//偏移像素
Dim j
For h = 1 To 60 Step 1	//60行
	Delay 1000
	j=0
	For i = 1 To 5 Step 1	//每行5列
		Delay 1000
		Call Tap(100 + j, 185)
		TracePrint 100+j&":"&185
		Delay 1000
		Call 复制微信名()
		Delay 1000
		Call 复制微信号()
		Delay 1000
		j = j + 135
		Call 后退()
		Delay 500
	Next
Call 换行()
Next
ShowMessage "结束程序"
Delay 3000
End Function

Function 复制微信名()
		Touch 226, 160, 1500	//长按微信名
		Delay 2000
		Call 点击复制()
	Wxname = Sys.GetClipText()
	Delay 300
    ShowMessage "存入"&num&":"&Wxname
    Call file.Append("/var/mobile/Media/虚拟U盘/sd.txt", num&"    "&Wxname&"    ")
End Function

Function 复制微信号()
	Dim intXx = 0,intYy =0
		FindMultiColor 200,130,640,380,"CDCDCD-222222","1|1|808080,20|0|B8B8B8,20|1|808080,-6|13|E1E1E1,-5|13|808080,26|15|E3E3E3,25|14|808080,1|21|B2B2B2,10|30|8C8C8C",0,0.9,intXx,intYy 	
    	Touch intXx+108,intYy+15,1000	//长按微信ID
    	Delay 2000
    	Call 点击复制()
    WxID = Sys.GetClipText()
    Delay 300
    TracePrint num&":"&WxID
    ShowMessage "存入"&WxID
    Call file.Append("/var/mobile/Media/虚拟U盘/sd.txt", WxID & "\r")
    num = num + 1
    Delay 500
End Function

Function 点击复制()
	Dim intXx = 0,intYy = 0
	FindMultiColor 200, 130, 640, 380, "040404-222222", "35|18|F5F5F5", 3, 0.9, intXx, intYy
	Delay 500
	Tap intXx, intYy
	Delay 1000
End Function

Function 后退()
	Tap 40, 80
	Delay 1000
End Function

Function 换行()
	Swipe 100,440,100,224,4000             //不知道为什么精确滑动用在这里不稳定，非常大几率没反应。
	Delay 1000
End Function

Function SwipeByDzc(StartX, startY, EndX, EndY, LastTime1, LastTime2, MoveTime)	//精确滑动
    TouchDown StartX, StartY, 1
    Delay LastTime1
    TouchMove EndX, EndY, 1, MoveTime
    Delay LastTime2
    TouchUp 1
End Function

q315767552

好用啊好用啊好用啊好用啊好用啊