网站 › 『编程语言区』 › 【按键精灵】IOS微X群成员ID获取源码

龙不死 发表于 2020-7-6 11:19

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

本帖最后由 龙不死 于 2020-7-24 10:04 编辑

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

3，通过长按微信名与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 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)
      Tap xx , yy      //点击头像
      TracePrint xx&":"&yy
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 发表于 2020-7-24 09:01

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

木易Oppa 发表于 2020-7-7 17:19

多半是换行的问题   之前写过一个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

本帖最后由 诗木 于 2020-7-6 11:47 编辑

{:301_1008:}是不是滑到头了

龙不死 发表于 2020-7-6 12:25

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

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

52HLW 发表于 2020-7-6 12:29

表示看不懂

诗木 发表于 2020-7-6 12:50

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

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

Dream： 发表于 2020-7-6 12:54

有点厉害的样子

龙不死 发表于 2020-7-6 13:27

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

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

chboy 发表于 2020-7-6 13:35

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

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

wilison1992 发表于 2020-7-6 14:09

如果用python，推荐itchat

龙不死 发表于 2020-7-6 15:53

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

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

查看完整版本: 【按键精灵】IOS微X群成员ID获取源码