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

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