【按键精灵】IOS微X群成员ID获取源码

龙不死

需求：在不是好友情况下收集公司微信群所有人微信名与微信号
解决思路：
1，在群成员页面   
2，点击起始头像位置坐标进入名片，并通过循环累加偏移变量J 顺序进入后面4个群名片   （问题所在） 【通过调整滑动函数，在每次滑动之后横向滑动1个像素可以有效避免滑动误差】代码就不更新了 没多少人用得到吧。

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



源码：

[C] 纯文本查看 复制代码

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 65 Step 1
        Delay 1000
        j=0
        For i = 1 To 5 Step 1
                Delay 1000
                Call 进入头像(100 + j, 180)
                Delay 1000
                Call 复制微信名()
                Delay 1000
                Call 复制微信号()
                Delay 1000
                j = j + 135
                Call 后退()
                Delay 1000
        Next
Call 换行()
Next
ShowMessage "结束程序"
Delay 3000
End Function

Function 进入头像(xx , yy)
[color=#ff0000]        Tap xx , yy        //点击头像
        TracePrint xx&":"&yy[/color]
End Function

Function 复制微信名()
                Touch 225, 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

herozhi0821

链接：https://pan.baidu.com/s/1vQqfihchrC-Q-vpM547kYA
提取码：52pj
你要的java，没那么大权限，在这给你吧

木易Oppa

多半是换行的问题   之前写过一个6SP的脚本  批量上传图片，是把当前一页的所有图片弄完后 然后翻页，用的是紫猫的精准滑动插件
Sub 翻页
    For j
        zm.Swipe 618,1787, 616, 200, 100, -2  //苹果6sp之前试过 好像只有-2这个能用 别的不行
            TouchDown 618, 1776, 0
            Delay 100
            TouchUp 0
            Delay 200
    Next
End Sub

诗木

是不是滑到头了

龙不死

诗木 发表于 2020-7-6 11:45
是不是滑到头了

肯定不是的吖 我看着呢 设置60多次循环有60多行 300多个成员呢

52HLW

表示看不懂

诗木

龙不死 发表于 2020-7-6 12:25
肯定不是的吖 我看着呢 设置60多次循环有60多行 300多个成员呢

调出显示触摸点，可能是位置偏差

Dream：

有点厉害的样子

龙不死

诗木 发表于 2020-7-6 12:50
调出显示触摸点，可能是位置偏差

如何调出显示触摸点 ios13.1

chboy

Dream： 发表于 2020-7-6 12:54
有点厉害的样子

请勿灌水，提高回帖质量是每位会员应尽的义务！

wilison1992

如果用python，推荐itchat

龙不死

wilison1992 发表于 2020-7-6 14:09
如果用python，推荐itchat

要在苹果6s上跑的脚本 python行吗？新手不懂 还请大佬详细说说