易启发资源网一个让你成为创客的知识源泉,一个让你梦想成真的家园。
【按键精灵】微信半自动加人源码
  • 首页 > 编程语言
  • 作者:打雨伞的兔子
  • 2019年11月8日 10:30 星期五
  • 浏览:13
  • 字号:
  • 评论:0
  •  工作天天需要加人,好烦就自己做了一个微信半自动加入的脚本!

    功能:需要自己的手动复制微信号,可以自动备注、后面的动作都是全自动。

    ps:主要是微信加入有限制,所以就做了半自动的,这样对我的工作也很大的效率

    现在开源给需要的朋友吧,欢迎一起讨论,我也是一个喜欢研究的小可爱哦~~~

    附件图 根据坐标找一下吧, - - 
    [Visual Basic] 纯文本查看 复制代码
    ?
    01
    02
    03
    04
    05
    06
    07
    08
    09
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    Dim intX1,intY1, intX2, intY2, intX3, intY3,intX4, intY4,intX5, intY5,微信号,备注,布局控件名,结果,临时路径
    Function 布局显示事件()
        '添加一个名称为"文字框1",初始内容为"姓名:"的文字框控件
        UI.AddTextView 布局控件名, "文字框1", "微信号:"
        '添加一个名称为"输入框1",初始内容为"请在此输入内容"的文本框控件
        UI.AddEditText 布局控件名, "输入框1", "", 300, 50
        UI.AddTextView(布局控件名, "文字框2", "微信备注:"
        '添加一个名称为"输入框1",初始内容为"请在此输入内容"的文本框控件
        UI.AddEditText 布局控件名, "输入框2", "wsx ", 100
    End Function 
    临时路径 = GetTempDir()
    TracePrint 临时路径&"wxbzdjr/"
    PutAttachment 临时路径&"wxbzdjr/", "*.png"
    While 1 = 1
        FindPic 2,217,719,692, "Attachment:添加.png", "000000", 0, 0.9, intX1, intY1
        FindPic 52, 45, 81, 71, "Attachment:验证申请.png", "000000", 0, 0.9, intX2, intY2
        FindPic 57, 45, 81, 70, "Attachment:详细资料.png", "000000", 0, 0.9, intX3, intY3
        FindPic 19, 42, 51, 76, "Attachment:输入微信界面.png", "000000", 0, 1.0, intX4, intY4
        FindPic 152, 88, 574, 219, "Attachment:添加好友频繁.png", "000000", 0, 0.9, intX5, intY5
        If intX3 > -1 And intY3 > -1 Then
            TracePrint "详细资料"
            If intX1 > -1 And intY1 > -1 Then
                TracePrint "添加好友"
                Tap intX1,intY1
            Else
                TracePrint "没有添加好友"
            End If
        ElseIf intX2 > -1 And intY2 > -1 Then
            TracePrint "验证申请"
            Tap 679,279 //删除已经备注
            Delay 200
            Tap 679,279 //激活备注
            Delay 200
            // InputText 备注["输入框2"]
            结果 = UTF8.Len(备注["输入框2"])
            For i = 1 To 结果
                KeyPress UTF8.StrGetAt(备注["输入框2"], i)
            Next
            Delay 200
            Tap 663,62 //发送
            Delay 2000
            KeyPress "Back"
        ElseIf intX4 > -1 And intY4 > -1 Then 
            If intX5 > -1 And intY5 > -1 Then
                Dialog.MsgBox("操作过于频繁,请稍后再试,意思就是你加人次数太快了休息一下,再来加人吧!",0)
                EndScript
            Else
                ShowMessage "请输入微信号!!!"
                //UI.Show ("布局控件名")
                布局控件名 = "请输入需要添加的微信号和备注"
                '创建一个名称为"layout1"的布局控件
                UI.NewLayout (布局控件名)
                UI.SetOnShow(布局控件名, 布局显示事件)
                TracePrint UI.Show (布局控件名)
                备注 = UI.GetValue("输入框2")
                微信号 = UI.GetValue("输入框1")
                TracePrint 微信号["输入框1"]
                Tap 687,61 //删除已输入微信号
                Delay 200
                //InputText 微信号["输入框1"]
                If 微信号["输入框1"] <> "" Then
                    结果 = UTF8.Len(微信号["输入框1"])
                    For i = 1 To 结果
                        KeyPress UTF8.StrGetAt(微信号["输入框1"], i)
                    Next
                    Delay 1000
                    Tap 293,125 //查找
                    Delay 1000
                Else
                    Dialog.MsgBox("请输入或者复制你要添加的微信号,我才能自动帮你加微信好友啊!",0)
                End If
            End If
        End If
        TracePrint "检测中"
        Delay 500
    Wend
      您阅读这篇文章共花了:  
     本文无需标签!
    二维码加载中...
    本文作者:打雨伞的兔子      文章标题: 【按键精灵】微信半自动加人源码
    本文地址:http://www.1316178.com/post-733.html
    版权声明:若无注明,本文皆为“易启发资源网”原创,转载请保留文章出处。

    版权所有:《易启发资源网
    文章标题:《【按键精灵】微信半自动加人源码
    除非注明,文章均为 《易启发资源网》 原创
    转载请注明本文短网址:http://www.1316178.com/post-733.html  [生成短网址]

    返回顶部| 首页| 手气不错| 捐赠支持| 留言板| 自定义链接| 自定义链接| sitemap| 手机版本|后花园

    Copyright © 2017-2018 易启发资源网   粤ICP备18033131号-4

    2. 3.